From 2915e2a7d90483216a7caf32a715a2ffe0200c1e Mon Sep 17 00:00:00 2001
From: root <root@hello.jones.dk>
Date: Sun, 6 Jun 2010 04:36:27 +0200
Subject: Respect stripprefix in localmarkdown2sms localsendsms .

---
 localsendsms | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'localsendsms')

diff --git a/localsendsms b/localsendsms
index 6449e3c..ff82ffd 100755
--- a/localsendsms
+++ b/localsendsms
@@ -28,6 +28,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};
 
 # decode data if passed from kannel
 if ($urldecode) {
@@ -37,7 +38,8 @@ my ($phone) = 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);
 
 if ($debug) {
 	Log::Log4perl->easy_init($DEBUG);
-- 
cgit v1.2.3