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 | |
parent | b8e4e923f1d94152148c87c5ff5204db4b3e7ab3 (diff) |
Fix transliterate message based on ESTI GSM 03.38 Encoding.
-rwxr-xr-x | localmarkdown2sms | 6 | ||||
-rwxr-xr-x | localsendsms | 6 |
2 files changed, 6 insertions, 6 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; } 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; } |