bugfix missing curl

This commit is contained in:
Marko Oldenburg 2017-08-25 21:34:27 +02:00
parent 7915a96de4
commit bce2a7a6ad
2 changed files with 5 additions and 2 deletions

View File

@ -65,7 +65,7 @@ eval "use Encode;1" or $missingModul .= "Encode ";
my $version = "1.0.0"; my $version = "1.0.1";
my %heosCmds = ( my %heosCmds = (
'enableChangeEvents' => 'system/register_for_change_events?enable=', 'enableChangeEvents' => 'system/register_for_change_events?enable=',
@ -826,6 +826,7 @@ sub HEOSMaster_ResponseProcessing($$) {
$ret =~ s/\n/<br>/g; $ret =~ s/\n/<br>/g;
$ret = "<pre>$ret</pre>" if( $ret =~ m/ / ); $ret = "<pre>$ret</pre>" if( $ret =~ m/ / );
$ret = "<html>$ret</html>"; $ret = "<html>$ret</html>";
}
asyncOutput( $hash->{helper}{blocking}{$idx}{cl}, $ret ); asyncOutput( $hash->{helper}{blocking}{$idx}{cl}, $ret );
delete $hash->{helper}{blocking}{$idx}; delete $hash->{helper}{blocking}{$idx};

View File

@ -39,7 +39,7 @@ use Encode qw(encode_utf8);
use URI::Escape; use URI::Escape;
#use Data::Dumper; #use Data::Dumper;
my $version = "1.0.0"; my $version = "1.0.1";
@ -285,6 +285,7 @@ sub HEOSPlayer_Get($$@) {
$ret =~ s/\n/<br>/g; $ret =~ s/\n/<br>/g;
$ret = "<pre>$ret</pre>" if( $ret =~ m/ / ); $ret = "<pre>$ret</pre>" if( $ret =~ m/ / );
$ret = "<html>$ret</html>"; $ret = "<html>$ret</html>";
}
return $ret; return $ret;
@ -385,6 +386,7 @@ sub HEOSPlayer_Get($$@) {
$ret =~ s/\n/<br>/g; $ret =~ s/\n/<br>/g;
$ret = "<pre>$ret</pre>" if( $ret =~ m/ / ); $ret = "<pre>$ret</pre>" if( $ret =~ m/ / );
$ret = "<html>$ret</html>"; $ret = "<html>$ret</html>";
}
asyncOutput( $me->{cl}, $ret ); asyncOutput( $me->{cl}, $ret );