|
Lines 39-45
use Getopt::Long;
Link Here
|
| 39 |
|
39 |
|
| 40 |
my $lost; # key=lost value, value=num days. |
40 |
my $lost; # key=lost value, value=num days. |
| 41 |
my ($charge, $verbose, $confirm, $quiet); |
41 |
my ($charge, $verbose, $confirm, $quiet); |
| 42 |
my $endrange = 366; # FIXME hardcoded - don't deal with anything overdue by more than this num days. |
42 |
my $endrange = 366; |
| 43 |
|
43 |
|
| 44 |
GetOptions( |
44 |
GetOptions( |
| 45 |
'lost=s%' => \$lost, |
45 |
'lost=s%' => \$lost, |
|
Lines 47-52
GetOptions(
Link Here
|
| 47 |
'confirm' => \$confirm, |
47 |
'confirm' => \$confirm, |
| 48 |
'verbose' => \$verbose, |
48 |
'verbose' => \$verbose, |
| 49 |
'quiet' => \$quiet, |
49 |
'quiet' => \$quiet, |
|
|
50 |
'maxdays=s' => \$endrange |
| 50 |
); |
51 |
); |
| 51 |
|
52 |
|
| 52 |
my $usage = << 'ENDUSAGE'; |
53 |
my $usage = << 'ENDUSAGE'; |
|
Lines 68-73
This script takes the following parameters :
Link Here
|
| 68 |
--confirm confirm. without this option, the script will report the number of affected items and |
69 |
--confirm confirm. without this option, the script will report the number of affected items and |
| 69 |
return without modifying any records. |
70 |
return without modifying any records. |
| 70 |
|
71 |
|
|
|
72 |
--quiet suppress summary output. |
| 73 |
|
| 74 |
--maxdays Specifies the end of the range of overdue days to deal with (defaults to 366). This |
| 75 |
value is universal to all lost num days overdue passed. |
| 76 |
|
| 71 |
examples : |
77 |
examples : |
| 72 |
$PERL5LIB/misc/cronjobs/longoverdue.pl --lost 30=1 |
78 |
$PERL5LIB/misc/cronjobs/longoverdue.pl --lost 30=1 |
| 73 |
Would set LOST=1 after 30 days (up to one year), but not charge the account. |
79 |
Would set LOST=1 after 30 days (up to one year), but not charge the account. |
| 74 |
- |
|
|