From eb0c0d42f3596c5dc21e9bcdcc02a4008a541c34 Mon Sep 17 00:00:00 2001 From: Dave Whiteland Date: Tue, 19 Feb 2013 15:04:08 +0000 Subject: add --debug to CronFns so can run bin/send-reports with debug/diagnosis output on the command line, closes #376 --- perllib/CronFns.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perllib/CronFns.pm') 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 { -- cgit v1.2.3