Fix transliterate message based on ESTI GSM 03.38 Encoding.

1 files changed, 3 insertions, 3 deletions

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