From 2915e2a7d90483216a7caf32a715a2ffe0200c1e Mon Sep 17 00:00:00 2001 From: root Date: Sun, 6 Jun 2010 04:36:27 +0200 Subject: Respect stripprefix in localmarkdown2sms localsendsms . --- localmarkdown2sms | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'localmarkdown2sms') diff --git a/localmarkdown2sms b/localmarkdown2sms index 47a06f3..1767788 100755 --- a/localmarkdown2sms +++ b/localmarkdown2sms @@ -49,6 +49,7 @@ my $sms_concat = $ENV{SMS_CONCAT}; my $sms_dlr_mask = $ENV{SMS_DLR_MASK}; my $sms_dlr_url = $ENV{SMS_DLR_URL}; my $sms_validity = $ENV{SMS_VALIDITY}; +my $stripprefix = $ENV{stripprefix}; my $path = $ENV{mdpath}; my (%file, %delay, %reply); @@ -62,7 +63,8 @@ my ($key) = lc (shift @ARGV); # strip international prefix # (prefix is optional some places and illegal at other places - forgot where) -$phone =~ s/\+/ /g; +$phone =~ s/^\+//g if ($stripprefix); +$sms_phone =~ s/^\+//g if ($stripprefix); # strip non-word chars from keyword (and use only first chunk of word chars) $key =~ s/.*?(\w+).*?/$1/; -- cgit v1.2.3