diff options
| author | Dave Whiteland <dave@mysociety.org> | 2013-02-19 15:04:08 +0000 |
|---|---|---|
| committer | Dave Whiteland <dave@mysociety.org> | 2013-02-19 15:04:08 +0000 |
| commit | eb0c0d42f3596c5dc21e9bcdcc02a4008a541c34 (patch) | |
| tree | 99e6781562bffd8b32a499e5f0075f07a4aa567c /perllib/CronFns.pm | |
| parent | 85a76c8a07222e7ba4b9e16f006b2b873ac6f7e0 (diff) | |
add --debug to CronFns so can run bin/send-reports with debug/diagnosis output on the command line, closes #376
Diffstat (limited to 'perllib/CronFns.pm')
| -rwxr-xr-x | perllib/CronFns.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perllib/CronFns.pm b/perllib/CronFns.pm index 6bf698d2b..878482339 100755 --- a/perllib/CronFns.pm +++ b/perllib/CronFns.pm @@ -24,10 +24,12 @@ sub options { die "Either no arguments, --nomail or --verbose" if (@ARGV>1); my $nomail = 0; my $verbose = 0; + my $debug = 0; $nomail = 1 if (@ARGV==1 && $ARGV[0] eq '--nomail'); $verbose = 1 if (@ARGV==1 && $ARGV[0] eq '--verbose'); + $debug = 1 if (@ARGV==1 && $ARGV[0] eq '--debug'); $verbose = 1 if $nomail; - return ($verbose, $nomail); + return ($verbose, $nomail, $debug); } sub site { |