diff --git a/fhem/FHEM/98_unmark.pm b/fhem/FHEM/98_unmark.pm new file mode 100644 index 000000000..33326f69e --- /dev/null +++ b/fhem/FHEM/98_unmark.pm @@ -0,0 +1,48 @@ +# $Id$ + +package main; +use strict; +use warnings; + +sub unmark_Initialize($$) { + $cmds{unmark} = { Fn => "CommandUnmark", + Hlp =>",unmark devices"}; +} + +sub CommandUnmark($$) +{ + my ($cl, $param) = @_; + my ($devspec,@marks) = split (" ",$param); + my @devices = devspec2array($devspec,undef); + my $ret = ""; + + foreach my $m (@marks) { + $m = uc($m); + next if( $m ne "TEMPORARY" && $m ne "VOLATILE" ); + foreach my $d (@devices){ + delete $defs{$d}{$m}; + $ret .= "$d unmarked as $m\n"; + } + } + return $ret; +} + +1; + +=pod +=item helper +=item summary mark devices for TEMPORARY or VOLATILE +=item summary_DE markiert Geräte als TEMPORARY oder VOLATILE +=item command +=begin html + + +

mark

+ + +=end html + +=cut