Add support for dlr_url in localmarkdown2sms.

1 files changed, 2 insertions, 0 deletions

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));