From dcb8d31437a7d4f80f8d0a1a22c1323f7de3d66b Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 25 Apr 2011 07:16:04 +0000
Subject: [PATCH] Franks virtual pairing commands for winmatic

git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@894 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/10_CUL_HM.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/FHEM/10_CUL_HM.pm b/FHEM/10_CUL_HM.pm
index 419e5c9dc..5c625f02f 100755
--- a/FHEM/10_CUL_HM.pm
+++ b/FHEM/10_CUL_HM.pm
@@ -519,6 +519,8 @@ my %culHmSubTypeSets = (
         { "on-for-timer"=>"sec", on =>"", off=>"", toggle=>"", pct=>"" },
   remote =>
         { text => "<btn> [on|off] <txt1> <txt2>" },
+  winMatic =>
+        { matic => "<btn>" },
 );
 my %culHmModelSets = (
   "HM-CC-TC"=>
@@ -696,6 +698,15 @@ CUL_HM_Set($@)
     CUL_HM_pushConfig($hash, $id, $dst, 2, $list, $data);
     return;
 
+  } elsif($cmd =~ m/^matic(...)/) { ####################### By Frank
+    my $btna = sprintf "%X", $a[2];
+    my $lg = length($btna);
+    my $btnb =" ";
+    if ($lg eq "1"){
+      $btnb = sprintf("0%s", $btna);
+    }
+    $sndcmd = sprintf("++B03E%s%s%s40%s%s",$id, $dst, $id, $btnb, $chn);
+
   }
 
   if($state) {