fix encode_utf8 error
This commit is contained in:
parent
798de737bd
commit
ecc2b44efa
14
77_UWZ.pm
14
77_UWZ.pm
@ -49,7 +49,9 @@ use warnings;
|
|||||||
use POSIX;
|
use POSIX;
|
||||||
use GPUtils qw(GP_Import GP_Export);
|
use GPUtils qw(GP_Import GP_Export);
|
||||||
use FHEM::Meta;
|
use FHEM::Meta;
|
||||||
use Data::Dumper; # Debug only
|
use Encode qw(encode_utf8);
|
||||||
|
|
||||||
|
# use Data::Dumper; # Debug only
|
||||||
|
|
||||||
no
|
no
|
||||||
if $] >= 5.017011,
|
if $] >= 5.017011,
|
||||||
@ -896,12 +898,12 @@ sub JSONAcquire {
|
|||||||
my $err_log = "Can't get $URL -- " . $err;
|
my $err_log = "Can't get $URL -- " . $err;
|
||||||
readingsSingleUpdate( $hash, 'lastConnection', $err, 1 );
|
readingsSingleUpdate( $hash, 'lastConnection', $err, 1 );
|
||||||
Log $hash, 1, 'Error: ' . $err_log;
|
Log $hash, 1, 'Error: ' . $err_log;
|
||||||
return main::encode_utf8( '{"Error": "' . $err . '"}' );
|
return encode_utf8( '{"Error": "' . $err . '"}' );
|
||||||
}
|
}
|
||||||
|
|
||||||
Log $hash, 4,
|
Log $hash, 4,
|
||||||
length($data) . ' characters captured: ' . main::encode_utf8($data);
|
length($data) . ' characters captured: ' . encode_utf8($data);
|
||||||
return main::encode_utf8($data);
|
return encode_utf8($data);
|
||||||
}
|
}
|
||||||
|
|
||||||
#####################################
|
#####################################
|
||||||
@ -1159,8 +1161,6 @@ sub Run {
|
|||||||
if ( !exists $uwz_warnings->{Error} ) {
|
if ( !exists $uwz_warnings->{Error} ) {
|
||||||
my $enc = guess_encoding($uwz_warnings);
|
my $enc = guess_encoding($uwz_warnings);
|
||||||
|
|
||||||
Log $hash, 2, 'DEBUG!!! Response: ' . $uwz_warnings;
|
|
||||||
|
|
||||||
$uwz_warncount = scalar( @{ $uwz_warnings->{'results'} } );
|
$uwz_warncount = scalar( @{ $uwz_warnings->{'results'} } );
|
||||||
Log $hash, 4, 'There are ' . $uwz_warncount . ' warnings active';
|
Log $hash, 4, 'There are ' . $uwz_warncount . ' warnings active';
|
||||||
my $sortby = AttrVal( $name, 'sort_readings_by', '' );
|
my $sortby = AttrVal( $name, 'sort_readings_by', '' );
|
||||||
@ -3375,7 +3375,7 @@ sub UWZSearchAreaID {
|
|||||||
],
|
],
|
||||||
"release_status": "stable",
|
"release_status": "stable",
|
||||||
"license": "GPL_2",
|
"license": "GPL_2",
|
||||||
"version": "v3.0.0",
|
"version": "v3.0.1",
|
||||||
"author": [
|
"author": [
|
||||||
"Marko Oldenburg <leongaultier@gmail.com>"
|
"Marko Oldenburg <leongaultier@gmail.com>"
|
||||||
],
|
],
|
||||||
|
Loading…
x
Reference in New Issue
Block a user