X-Git-Url: https://git.realraum.at/?a=blobdiff_plain;f=rf433rcv%2Fpc%2Frealraum_codes.pl;h=650816732438ad44addde682f54f8a5e3f1f7a86;hb=a48d9f89ecde2838963f59b7f6d30e59606ec547;hp=3b03b14624dab27bbaf9ddd257e6a05e24d973d9;hpb=5ccd4dd424319aa11a5688fc5cb208e0c5ba5c14;p=svn42.git

diff --git a/rf433rcv/pc/realraum_codes.pl b/rf433rcv/pc/realraum_codes.pl
index 3b03b14..6508167 100755
--- a/rf433rcv/pc/realraum_codes.pl
+++ b/rf433rcv/pc/realraum_codes.pl
@@ -5,7 +5,8 @@ my %remotes =
 (
   schwarz => [\&schwarz, "01110101a1b1c1000000dddd"] ,
   weiss => [\&weiss,"0c0d01010b0001010001010a"],
-  pollin => [\&pollin,"010101010100010101010001"],
+  pollin => [\&pollin,"0q0w0e0r0tbbbbbbbbbbaaaa"],
+  rsl336t => [\&rsl336t,"switchbutton010101oo"],
 );
 
 &main();
@@ -59,5 +60,38 @@ sub weiss
 
 sub pollin
 {
+  my ($switch,$taste,$on) = @_ or die "parameters 00000 {a|b|c|d} {0|1}";
+  my %tasten = (
+    a => '0001010101',
+    b => '0100010101',
+    c => '0101000101',
+    d => '0101010001',
+    e => '0101010100',
+  );
+  my $data = {
+              aaaa=> ($on?'0001':'0100'),
+              bbbbbbbbbb=> $tasten{$taste},
+              }; 
+  my @switches = split //,$switch;
+  @switches =  map { $_?'0':'1'} @switches;
+  @{$data}{qw/q w e r t/}=@switches;
+#  print join ',',%$data;
+  return $data;
+}
 
+sub rsl336t
+{
+  my ($switch,$button,$on) = @_ or die "parameters {a|b|c|d} {a|b|c|d} {0|1}";
+  my %tasten = (
+    a => '00010101',
+    b => '01000101',
+    c => '01010001',
+    d => '01010100',
+  );
+  my $data = {
+              oo=> ($on?'01':'00'),
+              switch=> $tasten{$switch},
+              button=> $tasten{$button},
+              }; 
+  return $data;
 }