From 9824f6cd70bc42671529b8b95f4e50dd5fbd0cdd Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Wed, 22 Sep 2010 14:45:32 +0200
Subject: Fix transliterate message based on ESTI GSM 03.38 Encoding.

---
 localsendsms | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'localsendsms')

diff --git a/localsendsms b/localsendsms
index 799c5f6..3f5ca07 100755
--- a/localsendsms
+++ b/localsendsms
@@ -11,7 +11,7 @@ use warnings;
 use Env qw[$debug $info $warn $dummy $urldecode];
 use Log::Log4perl qw(:easy);
 use Text::Unidecode;
-use Encode 2.12 qw(encode decode_utf8 _utf8_off); # need v2.12 to support coderef
+use Encode 2.12 qw(encode decode _utf8_off); # need v2.12 to support coderef
 use LWP::UserAgent;
 use URI::Escape;
 
@@ -60,11 +60,11 @@ if ($debug) {
 sub transliterate {
 	my ($tocharset, $string) = @_;
 
-	my $res = encode($tocharset, decode_utf8($string), sub {
+	my $res = encode($tocharset, decode('GSM0338', encode('GSM0338', decode('UTF-8', $string), sub {
 		my $ascii = unidecode(chr $_[0]);
 		_utf8_off($ascii);
 		$ascii;
-		});
+		})));
 
 	return $res;
 }
-- 
cgit v1.2.3