projects
/
svn42.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f635f24
)
realraum code rsl336t (conrad)
author
Bernhard Tittelbach
<xro@realraum.at>
Thu, 16 Feb 2012 21:29:37 +0000
(21:29 +0000)
committer
Bernhard Tittelbach
<xro@realraum.at>
Thu, 16 Feb 2012 21:29:37 +0000
(21:29 +0000)
rf433rcv/pc/realraum_codes.pl
patch
|
blob
|
history
diff --git
a/rf433rcv/pc/realraum_codes.pl
b/rf433rcv/pc/realraum_codes.pl
index
203b38c
..
6508167
100755
(executable)
--- a/
rf433rcv/pc/realraum_codes.pl
+++ b/
rf433rcv/pc/realraum_codes.pl
@@
-6,6
+6,7
@@
my %remotes =
schwarz => [\&schwarz, "01110101a1b1c1000000dddd"] ,
weiss => [\&weiss,"0c0d01010b0001010001010a"],
pollin => [\&pollin,"0q0w0e0r0tbbbbbbbbbbaaaa"],
schwarz => [\&schwarz, "01110101a1b1c1000000dddd"] ,
weiss => [\&weiss,"0c0d01010b0001010001010a"],
pollin => [\&pollin,"0q0w0e0r0tbbbbbbbbbbaaaa"],
+ rsl336t => [\&rsl336t,"switchbutton010101oo"],
);
&main();
);
&main();
@@
-78,3
+79,19
@@
sub pollin
return $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;
+}