From 362f7800bf8fc792fec425a32bc843a8058ce1fd Mon Sep 17 00:00:00 2001 From: Jonas Smedegaard Date: Tue, 25 Aug 2009 16:56:33 +0200 Subject: Strip leading space from keyword --- localmarkdown2sms | 3 +++ 1 file changed, 3 insertions(+) (limited to 'localmarkdown2sms') diff --git a/localmarkdown2sms b/localmarkdown2sms index 879ce93..d4d5720 100755 --- a/localmarkdown2sms +++ b/localmarkdown2sms @@ -47,6 +47,9 @@ my ($path) = shift @ARGV; my ($phone) = shift @ARGV; my ($key) = lc (shift @ARGV); +# strip leading (and non-leading if ever possible?) spaces +$key =~ s/\s//g; + if ($debug) { Log::Log4perl->easy_init($DEBUG); } elsif ($INFO) { -- cgit v1.2.3