From 3ef243b8abee380ef26e7088ef2129daca718e46 Mon Sep 17 00:00:00 2001 From: jeschkec <> Date: Tue, 30 Jul 2019 12:21:04 +0000 Subject: [PATCH] 88_WEBCOUNT.pm: removed trim() (Forum #101673) git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@19919 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- FHEM/88_WEBCOUNT.pm | 26 +++++++++----------------- 1 file changed, 9 insertions(+), 17 deletions(-) diff --git a/FHEM/88_WEBCOUNT.pm b/FHEM/88_WEBCOUNT.pm index f5fd3d8d8..4e3bc34f2 100644 --- a/FHEM/88_WEBCOUNT.pm +++ b/FHEM/88_WEBCOUNT.pm @@ -2,7 +2,8 @@ # # Copyright notice # -# (c) 2011 Sacha Gloor (sacha@imp.ch) +# (c) 2019 Christoph Morrison +# 2011 Sacha Gloor (sacha@imp.ch) # # This script is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -33,20 +34,9 @@ use Data::Dumper; use LWP::UserAgent; use HTTP::Request; -sub Log($$); ##################################### -sub -trim($) -{ - my $string = shift; - $string =~ s/^\s+//; - $string =~ s/\s+$//; - return $string; -} - -sub -WEBCOUNT_Initialize($) +sub WEBCOUNT_Initialize($) { my ($hash) = @_; # Consumer @@ -56,8 +46,7 @@ WEBCOUNT_Initialize($) ##################################### -sub -WEBCOUNT_Define($$) +sub WEBCOUNT_Define($$) { my ($hash, $def) = @_; my $name=$hash->{NAME}; @@ -83,8 +72,7 @@ WEBCOUNT_Define($$) ##################################### -sub -WEBCOUNT_GetStatus($) +sub WEBCOUNT_GetStatus($) { my ($hash) = @_; @@ -143,6 +131,10 @@ WEBCOUNT_GetStatus($) =pod +=item device +=item summary Support for Wiesemann & Theis 57652 Web-Count 6x Digital +=item summary_DE Unterstützung für Wiesemann & Theis 57652 Web-Count 6x Digital + =begin html