Undefined messages for unknown HMS devices

git-svn-id: https://svn.fhem.de/fhem/trunk@71 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/CHANGED

@@ -333,3 +333,4 @@
   - bugfix:  added FS20S8, removed stty_parmrk (Martin, 24.5)
   - feature: added archivedir/archivecmd to the FileLog
   - feature: added EM1010PC/EM1000WZ/EM1000EM support
+  - bugfix:  undefined messages for unknown HMS devs (Peter, 8.6)

fhem/FHEM/00_FHZ.pm

@@ -528,6 +528,7 @@ FHZ_Read($)
 
 
       my @found;
+      my $last_module;
       foreach my $m (sort { $modules{$a}{ORDER} cmp $modules{$b}{ORDER} }
 			    keys %modules) {
 	next if($iohash->{Clients} !~ m/:$m:/);
@@ -535,6 +536,7 @@ FHZ_Read($)
 	no strict "refs";
 	@found = &{$modules{$m}{ParseFn}}($hash,$dmsg);
 	use strict "refs";
+        $last_module = $m;
 	last if(int(@found));
       }
       if(!int(@found)) {
@@ -547,7 +549,7 @@ FHZ_Read($)
       if($found[0] =~ m/^(UNDEFINED) ([^ ]*) (.*)$/) {
 	my $d = $1;
 	$defs{$d}{NAME} = $1;
-	$defs{$d}{TYPE} = $2;
+	$defs{$d}{TYPE} = $last_module;
 	DoTrigger($d, "$2 $3");
 	delete $defs{$d};
 	goto NEXTMSG;

fhem/fhem.pl

@@ -186,7 +186,7 @@ my %cmds = (
   "shutdown"=> { Fn=>"CommandShutdown",
 	    Hlp=>",terminate the server" },
   "sleep"  => { Fn=>"CommandSleep",
-            Hlp=>"<usecs>,sleep for usecs" },
+            Hlp=>"<sec>,sleep for sec, 3 decimal places are interpreted" },
   "trigger" => { Fn=>"CommandTrigger",
             Hlp=>"<dev> <state>,trigger notify command" },
   "xmllist" => { Fn=>"CommandXmlList",

fhem/test/fhem.save

@@ -1,4 +1,4 @@
-#Sun May 27 13:57:55 2007
+#Fri Jun  8 08:37:17 2007
 setstate FHZ fhtbuf: 1c
 setstate FHZ 2006-02-12 14:03:39 fhtbuf 23
 setstate FHZ 2006-03-26 08:47:36 init2 deadbeefdeadbe