From 3771e45d68978a3aa3e5c4b29be6bee1d3bef141 Mon Sep 17 00:00:00 2001 From: Jonas Smedegaard Date: Wed, 19 Aug 2009 12:20:15 +0200 Subject: Add support for optional explicit smsc. --- localmarkdown2sms | 2 ++ 1 file changed, 2 insertions(+) (limited to 'localmarkdown2sms') diff --git a/localmarkdown2sms b/localmarkdown2sms index 986c522..8fc73f3 100755 --- a/localmarkdown2sms +++ b/localmarkdown2sms @@ -39,6 +39,7 @@ my $sms_url = $ENV{SMS_URL} || "http://localhost:13013/cgi-bin/sendsms"; my $sms_user = $ENV{SMS_USER} || "tester"; my $sms_pw = $ENV{SMS_PW} || "foobar"; my $sms_phone = $ENV{SMS_PHONE}; +my $sms_smsc = $ENV{SMS_SMSC}; my $sms_msgtag = $ENV{SMS_MSGTAG} || "text"; my (%file, %delay, %reply); @@ -165,6 +166,7 @@ sub sendmsg { . '&password=' . uri_escape($sms_pw) . '&to=' . uri_escape($phone); $url .= '&from=' . uri_escape($sms_phone) if ($sms_phone); + $url .= '&smsc=' . uri_escape($sms_smsc) if ($sms_smsc); $url .= '&' . $sms_msgtag . '=' . uri_escape(encode("cp1252", $msg)); my $response = $ua->request(HTTP::Request->new('GET', $url)); unless ($response->is_success) { -- cgit v1.2.3