Encode/decode UTF-8 sent to /recieved from MPD.

BUG:120
This commit is contained in:
craig.p.drummond
2012-10-21 18:13:55 +00:00
committed by craig.p.drummond
parent 6f3f78dc84
commit d77af23ea8

View File

@@ -33,6 +33,7 @@ use IO::Socket;
use threads;
use threads::shared;
use URI::Escape;
use Encode;
my $isServerMode : shared =0;
my $dynamicIsActive : shared =1;
@@ -122,10 +123,14 @@ sub sendCommand() {
my $status = 0;
my $sock=&connectToMpd();
my $sockData;
$cmd="${cmd}\n";
if ($sock && $sock->connected()) {
$sock->send("${cmd}\n");
print $sock encode('utf-8' => $cmd);
$sockData=&readReply($sock);
eval { close $sock; };undef $sock;
eval { close $sock; }; undef $sock;
}
if ($sockData ne '') {
return decode_utf8($sockData);
}
return $sockData;
}