diff options
author | Jonas Smedegaard <dr@jones.dk> | 2009-08-19 12:20:15 +0200 |
---|---|---|
committer | Jonas Smedegaard <dr@jones.dk> | 2009-08-19 12:20:15 +0200 |
commit | 3771e45d68978a3aa3e5c4b29be6bee1d3bef141 (patch) | |
tree | c4606926a7c18acdfebbed9c7f2ed7c35122f983 /localmarkdown2sms | |
parent | 554ea158b1f58eb3c91b06d940e75a0778c39ee0 (diff) |
Add support for optional explicit smsc.
Diffstat (limited to 'localmarkdown2sms')
-rwxr-xr-x | localmarkdown2sms | 2 |
1 files changed, 2 insertions, 0 deletions
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) { |