at/watchdog bugfix

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

fhem/CHANGED

@@ -463,3 +463,4 @@
   - feature: contrib/fhem2speech from Martin
   - bugfix:  attributes of at devices disappear
   - feature: attribute rainadjustment for KS300 (Boris 2008-12-17)
+  - bugfix:  deleting at / watchdog while active creates an empty device

fhem/FHEM/90_at.pm

@@ -12,6 +12,7 @@ at_Initialize($)
   my ($hash) = @_;
 
   $hash->{DefFn}    = "at_Define";
+  $hash->{UndefFn}  = "at_Undef";
   $hash->{AttrFn}   = "at_Attr";
   $hash->{AttrList} = "disable:0,1 skip_next:0,1";
 }
@@ -75,6 +76,14 @@ at_Define($$)
   return undef;
 }
 
+sub
+at_Undef($$)
+{
+  my ($hash, $name) = @_;
+  RemoveInternalTimer($name);
+  return undef;
+}
+
 sub
 at_Exec($)
 {

fhem/FHEM/91_watchdog.pm

@@ -12,6 +12,7 @@ watchdog_Initialize($)
   my ($hash) = @_;
 
   $hash->{DefFn} = "watchdog_Define";
+  $hash->{UndefFn} = "watchdog_Undef";
   $hash->{NotifyFn} = "watchdog_Notify";
   $hash->{AttrList} = "disable:0,1";
 }
@@ -108,5 +109,13 @@ watchdog_Activate($)
   InternalTimer($nt, "watchdog_Trigger", $ntfy, 0)
 }
 
+sub
+watchdog_Undef($$)
+{
+  my ($hash, $name) = @_;
+  RemoveInternalTimer($hash);
+  return undef;
+}
+
 
 1;