aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/CronFns.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perllib/CronFns.pm')
-rwxr-xr-xperllib/CronFns.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perllib/CronFns.pm b/perllib/CronFns.pm
index 0573b788d..ac7f85596 100755
--- a/perllib/CronFns.pm
+++ b/perllib/CronFns.pm
@@ -24,16 +24,19 @@ 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 {
my $base_url = shift;
my $site = 'fixmystreet';
$site = 'emptyhomes' if $base_url =~ 'emptyhomes';
+ $site = 'zurich' if $base_url =~ /zurich|zueri/;
return $site;
}