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.

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

(limited to 'localmarkdown2sms')

diff --git a/localmarkdown2sms b/localmarkdown2sms
index 87055ad..4092e53 100755
--- a/localmarkdown2sms
+++ b/localmarkdown2sms
@@ -29,7 +29,7 @@ use File::Spec;
 use File::Slurp;
 use Time::Duration::Parse;
 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;
 use Proc::Daemon;
@@ -204,11 +204,11 @@ sub tidymsg {
 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