diff options
Diffstat (limited to 'localmarkdown2sms')
-rwxr-xr-x | localmarkdown2sms | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/localmarkdown2sms b/localmarkdown2sms index 08150c0..f768f90 100755 --- a/localmarkdown2sms +++ b/localmarkdown2sms @@ -23,7 +23,7 @@ use strict; use warnings; -use Env qw[$DEBUG $DUMMY]; +use Env qw[$DEBUG $DUMMY $NOSLEEP]; use File::Spec; use File::Slurp; use Time::Duration::Parse; @@ -107,7 +107,7 @@ for my $num ( 1 .. $num_children ) { run_fork { child { - sleep($delay{$key}[$num]); + sleep($delay{$key}[$num]) unless ($NOSLEEP); unless ($DUMMY) { system {'/usr/share/kannel/contrib/sendsms' } $phone, $reply{$key}[$num]; print STDERR "Done reply #$num [" . $delay{$key}[$num] . "s]\n" if ($DEBUG); |