From b373d38e310cdb8fe5c09581ac2c26d85f252ab8 Mon Sep 17 00:00:00 2001
From: Fabricio Santolin da Silva
 <fabricio.santolin-da-silva@al-enterprise.com>
Date: Fri, 6 Oct 2023 20:32:20 +0200
Subject: [PATCH] MT#58468 Fix special characters incorrectly interpreted by
 paps

Change-Id: I15682d0e3bbe53cc372a5eb1a162e7592e9a3b11
(cherry picked from commit 3c5cf0b537b78d0576fa52bc04a4e95b54665828)
---
 lib/NGCP/Panel/Utils/Fax.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/NGCP/Panel/Utils/Fax.pm b/lib/NGCP/Panel/Utils/Fax.pm
index 1efcb98ba8..8f2e0fcac5 100644
--- a/lib/NGCP/Panel/Utils/Fax.pm
+++ b/lib/NGCP/Panel/Utils/Fax.pm
@@ -11,6 +11,7 @@ use IPC::System::Simple qw/capture/;
 use Data::Dumper;
 use Net::Ping;
 use URI::Escape qw(uri_unescape);
+use Encode;
 
 sub send_fax {
     my (%args) = @_;
@@ -94,7 +95,8 @@ sub send_fax {
         $c->log->debug('error to retrieve tempfile of upload: ' . @_) if @_;
     }
     if ($args{data}){
-        $sendfax_args{input} = [\$args{data}];
+        my $text = Encode::encode('UTF-8', $args{data});
+        $sendfax_args{input} = [\$text];
     }
     my $client = new NGCP::Fax;
     use Data::Dumper;