diff options
| author | Jonas Smedegaard <dr@jones.dk> | 2009-08-13 22:05:29 +0200 |
|---|---|---|
| committer | Jonas Smedegaard <dr@jones.dk> | 2009-08-13 22:05:29 +0200 |
| commit | 40266ac9a419d1a727cdb9ceb6f5c63c877d4235 (patch) | |
| tree | 2876192bd7f68ec2bbbe18f2105bf6ff4a9f66e5 /localmarkdown2sms | |
| parent | c89da2eea68997937e8a077b80504b2aa374979d (diff) | |
Make message tag in url env overridable.
Diffstat (limited to 'localmarkdown2sms')
| -rwxr-xr-x | localmarkdown2sms | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/localmarkdown2sms b/localmarkdown2sms index 71ca9ea..065aa17 100755 --- a/localmarkdown2sms +++ b/localmarkdown2sms @@ -37,6 +37,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_msgtag = $ENV{SMS_MSGTAG} || "msg"; my (%file, %delay, %reply); my ($path) = shift @ARGV; @@ -161,7 +162,7 @@ sub sendmsg { . '&password=' . uri_escape($sms_pw) . '&to=' . uri_escape($phone); $url .= '&from=' . uri_escape($sms_phone) if ($sms_phone); - $url .= '&message=' . uri_escape(encode("cp1252", $msg)); + $url .= '&' . $sms_msgtag . '=' . uri_escape(encode("cp1252", $msg)); my $response = $ua->request(HTTP::Request->new('GET', $url)); unless ($response->is_success) { ERROR $response->status_line; |