From 65784c33d2efc8a7d270f55dc56754597f671ee8 Mon Sep 17 00:00:00 2001
From: parix <>
Date: Mon, 24 May 2010 17:42:23 +0000
Subject: [PATCH] V1.0.1 Bugfixes 'defptr'

git-svn-id: https://svn.fhem.de/fhem/trunk@640 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/WBS/99_CGI_RAWMSG.pm | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/fhem/contrib/WBS/99_CGI_RAWMSG.pm b/fhem/contrib/WBS/99_CGI_RAWMSG.pm
index d4803b5dd..de370be91 100644
--- a/fhem/contrib/WBS/99_CGI_RAWMSG.pm
+++ b/fhem/contrib/WBS/99_CGI_RAWMSG.pm
@@ -1,8 +1,12 @@
 ################################################################################
+# Route RAW-Sensor-Data via FHEMWEB/CGI to fhem.pl: Function -> disptach($$$)
 # 99_CGI_RAWMSG
 #
-# Route RAW-Sensor-Data via FHEMWEB/CGI to fhem.pl: Function -> disptach($$$)
+# Version: 1.0.1
+# Date: 24.05.2010
+# Author: Axel Rieger
 #
+################################################################################
 # Examples for RAW-Sensor-Data
 # WBS = WeB-Sensors
 # WBS:SENSOR-CODE:SENSOR-TYPE:VALUE:TIMESTAMP
@@ -51,10 +55,10 @@ sub CGI_RAWMSG_Dispatch($$)
 {
   my ($htmlarg) = @_;
   my ($ret_param,$ret_txt,@tmp,$rawmsg,$cgikey);
-  Log 0, "CGI_RAWMSG|Dispatch|START: $htmlarg";
+  Log 5, "CGI_RAWMSG|Dispatch|START: $htmlarg";
   $ret_param = "text/plain; charset=ISO-8859-1";
   $ret_txt = "ERROR;NODATA";
-  print "CGI_RAWMSG|Dispatch: " . Dumper(@_) . "\n";
+#  print "CGI_RAWMSG|Dispatch: " . Dumper(@_) . "\n";
   # Aufurf: http://[FHEMWEB]/fhem/rawmsg?TEST12345
   # htmlarg = /rawmsg?TEST12345
   if($htmlarg =~ /\?/) {
@@ -71,12 +75,12 @@ sub CGI_RAWMSG_Dispatch($$)
 	  }
 	# Check rawmsg
 	foreach my $m (sort keys %{$data{$cgikey}{MatchList}}) {
-	  Log 0, "CGI_RAWMSG|MatchList-RAWMSG: $rawmsg";
-	  Log 0, "CGI_RAWMSG|MatchList-Key: $m";
-	  Log 0, "CGI_RAWMSG|MatchList-Val: " . $data{$cgikey}{MatchList}{$m};
+	  Log 5, "CGI_RAWMSG|MatchList-RAWMSG: $rawmsg";
+	  Log 5, "CGI_RAWMSG|MatchList-Key: $m";
+	  Log 5, "CGI_RAWMSG|MatchList-Val: " . $data{$cgikey}{MatchList}{$m};
 	  my $match = $data{$cgikey}{MatchList}{$m};
 	  if($rawmsg =~ m/$match/) {
-		Log 0, "CGI_RAWMSG|MatchList-Key FOUND: $m";
+		Log 5, "CGI_RAWMSG|MatchList-Key FOUND: $m";
 		# $ret_txt = "HTMLARG = $htmlarg\n";
 		# $ret_txt .= "CGI-KEY = $cgikey\n";
 		# $ret_txt .= "RAWMSG = $rawmsg\n";