Implement NOSLEEP mode.

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