View | Details | Raw Unified | Return to bug 7326
Collapse All | Expand All

(-)a/misc/cronjobs/longoverdue.pl (-2 / +7 lines)
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
- 

Return to bug 7326