diff options
author | Jonas Smedegaard <dr@jones.dk> | 2010-09-22 14:45:32 +0200 |
---|---|---|
committer | Jonas Smedegaard <dr@jones.dk> | 2010-09-22 14:45:32 +0200 |
commit | 9824f6cd70bc42671529b8b95f4e50dd5fbd0cdd (patch) | |
tree | 0185733764583a497b96e4129a5d07d6622f98a9 /localmarkdown2sms | |
parent | b8e4e923f1d94152148c87c5ff5204db4b3e7ab3 (diff) |
Fix transliterate message based on ESTI GSM 03.38 Encoding.
Diffstat (limited to 'localmarkdown2sms')
-rwxr-xr-x | localmarkdown2sms | 6 |
1 files changed, 3 insertions, 3 deletions
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; } |