From 0c1b2973fcd69e92da2cc240c0f46bdf8f0772a3 Mon Sep 17 00:00:00 2001
From: betateilchen <betateilchen@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 16 Dec 2017 21:44:42 +0000
Subject: [PATCH] 55_bshGezeiten:

git-svn-id: https://svn.fhem.de/fhem/trunk@15625 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/betateilchen/55_bshGezeiten.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/fhem/contrib/betateilchen/55_bshGezeiten.pm b/fhem/contrib/betateilchen/55_bshGezeiten.pm
index 4bd9cd089..b5d7c24e4 100644
--- a/fhem/contrib/betateilchen/55_bshGezeiten.pm
+++ b/fhem/contrib/betateilchen/55_bshGezeiten.pm
@@ -57,15 +57,17 @@ sub _bsh_pegel_cb($){
   my $hash = $param->{hash};
   my $name = $hash->{NAME};
      $hash->{'.content'} = $content;
-  _bsh_decode($hash,$content);   
+  _bsh_decode($hash);   
 }
 
-sub _bsh_decode($$) {
-  my ($hash,$content) = @_;
+sub _bsh_decode($) {
+  my ($hash) = @_;
   my $name = $hash->{NAME};
+  RemoveInternalTimer($hash,'_bsh_decode');
+  InternalTimer(gettimeofday()+60, "_bsh_decode", $hash, 0);
   
   my $tree= HTML::TreeBuilder::XPath->new;
-  $tree->parse($content);
+  $tree->parse($hash->{'.content'});
   my @ort = $tree->findvalues(q{//strong});
   my (undef,undef,$ort) = split(/ /,$ort[1],3);
   $ort = latin1ToUtf8($ort);