From c5d672ae830253ef23d020c54603955d260b8de4 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Sat, 8 Aug 2009 14:43:18 +0200
Subject: Implement NOSLEEP mode.

---
 localmarkdown2sms | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'localmarkdown2sms')

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);
-- 
cgit v1.2.3