From 40266ac9a419d1a727cdb9ceb6f5c63c877d4235 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Thu, 13 Aug 2009 22:05:29 +0200
Subject: Make message tag in url env overridable.

---
 localmarkdown2sms | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'localmarkdown2sms')

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;
-- 
cgit v1.2.3