FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues Releases Wiki Activity

98_unmark.pm: counterpart to 98_mark.pm

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@13191 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2017-01-22 18:51:42 +00:00
parent 4e4db1cb09
commit ce27576cf5
1 changed files with 48 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
fhem/FHEM/98_unmark.pm Normal file
View File

@ -0,0 +1,48 @@
# $Id$
package main;
use strict;
use warnings;
sub unmark_Initialize($$) {
$cmds{unmark} = { Fn => "CommandUnmark",
Hlp =>"<TEMPORARY|VOLATILE>,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&auml;te als TEMPORARY oder VOLATILE
=item command
=begin html
<a name="unmark"></a>
<h3>mark</h3>
<ul>
<code>unmark &lt;devspec&gt; &lt;TEMPORARY|VOLATILE&gt;</code>
<br><br>
</ul>
=end html
=cut