|
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 |
- |
|
|