From 795c68fe2a593b0b2b82a524c70a7ec14d73a14a Mon Sep 17 00:00:00 2001 From: Jonas Date: Thu, 3 Jun 2010 13:44:43 +0200 Subject: Add support for dlr_url in localmarkdown2sms. --- localmarkdown2sms | 2 ++ 1 file changed, 2 insertions(+) (limited to 'localmarkdown2sms') diff --git a/localmarkdown2sms b/localmarkdown2sms index 2f91108..feb7a53 100755 --- a/localmarkdown2sms +++ b/localmarkdown2sms @@ -47,6 +47,7 @@ my $sms_msgtag = $ENV{SMS_MSGTAG} || "text"; my $sms_cp = $ENV{SMS_CP} || "utf8"; my $sms_concat = $ENV{SMS_CONCAT}; my $sms_dlr_mask = $ENV{SMS_DLR_MASK}; +my $sms_dlr_url = $ENV{SMS_DLR_URL}; my $path = $ENV{mdpath}; my (%file, %delay, %reply); @@ -206,6 +207,7 @@ sub sendmsg { $url .= '&smsc=' . uri_escape($sms_smsc) if ($sms_smsc); $url .= '&concat=' . uri_escape($sms_concat) if ($sms_concat); $url .= '&dlr-mask=' . uri_escape($sms_dlr_mask) if ($sms_dlr_mask); + $url .= '&dlr-url=' . uri_escape($sms_dlr_url) if ($sms_dlr_url); $url .= '&' . $sms_msgtag . '=' . uri_escape(transliterate($sms_cp, $msg)); DEBUG "Sending request: $url"; my $response = $ua->request(HTTP::Request->new('GET', $url)); -- cgit v1.2.3