Lines 294-299
my @myborcat;
Link Here
|
294 |
my @myborcatout; |
294 |
my @myborcatout; |
295 |
my ( $date_input, $today ); |
295 |
my ( $date_input, $today ); |
296 |
|
296 |
|
|
|
297 |
cronlogaction(join ' ', $0, @ARGV); |
297 |
GetOptions( |
298 |
GetOptions( |
298 |
'help|?' => \$help, |
299 |
'help|?' => \$help, |
299 |
'man' => \$man, |
300 |
'man' => \$man, |
Lines 315-322
GetOptions(
Link Here
|
315 |
pod2usage(1) if $help; |
316 |
pod2usage(1) if $help; |
316 |
pod2usage( -verbose => 2 ) if $man; |
317 |
pod2usage( -verbose => 2 ) if $man; |
317 |
|
318 |
|
318 |
cronlogaction(); |
|
|
319 |
|
320 |
if ( defined $csvfilename && $csvfilename =~ /^-/ ) { |
319 |
if ( defined $csvfilename && $csvfilename =~ /^-/ ) { |
321 |
warn qq(using "$csvfilename" as filename, that seems odd); |
320 |
warn qq(using "$csvfilename" as filename, that seems odd); |
322 |
} |
321 |
} |
323 |
- |
|
|