Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-07 22:29:19 +00:00
Code

37_fakeRoku.pm: avoid undef perl waring

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@11686 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme-1968 2016-06-18 10:59:34 +00:00
parent f66f2d9f9a
commit e86b799b89
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
FHEM/37_fakeRoku.pm
View File

@ -430,7 +430,10 @@ fakeRoku_Parse($$;$$$)
} }
} }
if( !$params->{MAN} || $params->{MAN} ne '"ssdp:discover"' ) { if( !$params->{MAN} ) {
Log3 $name, 5, "$name: ignoring broadcast M-Search without MAN";
return undef;
} elsif( $params->{MAN} ne '"ssdp:discover"' ) {
Log3 $name, 5, "$name: ignoring broadcast M-Search with MAN $params->{MAN}"; Log3 $name, 5, "$name: ignoring broadcast M-Search with MAN $params->{MAN}";
return undef; return undef;
} }
@ -525,7 +528,7 @@ fakeRoku_Parse($$;$$$)
$xml->{app}[$i] = { id => $i+1, content => $favourites[$i], }; $xml->{app}[$i] = { id => $i+1, content => $favourites[$i], };
} }
} }
#my $body = '<?xml version="1.0" encoding="utf-8" ?>'; #my $body = '<?xml version="1.0" encoding="utf-8" ?>';
my $body .= XMLout( $xml, KeyAttr => { }, RootName => 'apps' ); my $body .= XMLout( $xml, KeyAttr => { }, RootName => 'apps' );
#$body =~ s/\n/\r\n/g; #$body =~ s/\n/\r\n/g;
@ -536,7 +539,6 @@ fakeRoku_Parse($$;$$$)
'Content-Length' => length($body), } ); 'Content-Length' => length($body), } );
$ret .= "\r\n"; $ret .= "\r\n";
$ret .= $body; $ret .= $body;
Log 1, $ret;
} }