From ce27576cf58711fe3c21fde7c10d7fad60e2d20b Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Sun, 22 Jan 2017 18:51:42 +0000
Subject: [PATCH] 98_unmark.pm: counterpart to 98_mark.pm

git-svn-id: https://svn.fhem.de/fhem/trunk@13191 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_unmark.pm | 48 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 fhem/FHEM/98_unmark.pm

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 =>"<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