FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-13 05:06:35 +00:00
Code Issues Releases Wiki Activity

55_bshGezeiten:

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@15625 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2017-12-16 21:44:42 +00:00
parent cbb3429ee1
commit 250a163aba
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/contrib/betateilchen/55_bshGezeiten.pm
View File

@ -57,15 +57,17 @@ sub _bsh_pegel_cb($){
my $hash = $param->{hash}; my $hash = $param->{hash};
my $name = $hash->{NAME}; my $name = $hash->{NAME};
$hash->{'.content'} = $content; $hash->{'.content'} = $content;
_bsh_decode($hash,$content); _bsh_decode($hash);
} }
sub _bsh_decode($$) { sub _bsh_decode($) {
my ($hash,$content) = @_; my ($hash) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
RemoveInternalTimer($hash,'_bsh_decode');
InternalTimer(gettimeofday()+60, "_bsh_decode", $hash, 0);
my $tree= HTML::TreeBuilder::XPath->new; my $tree= HTML::TreeBuilder::XPath->new;
$tree->parse($content); $tree->parse($hash->{'.content'});
my @ort = $tree->findvalues(q{//strong}); my @ort = $tree->findvalues(q{//strong});
my (undef,undef,$ort) = split(/ /,$ort[1],3); my (undef,undef,$ort) = split(/ /,$ort[1],3);
$ort = latin1ToUtf8($ort); $ort = latin1ToUtf8($ort);