diff options
-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; |