projects
/
svn42.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b95eb9f
)
added fernbedieung weiss
author
Othmar Gsenger
<otti@realraum.at>
Thu, 16 Feb 2012 18:19:03 +0000
(18:19 +0000)
committer
Othmar Gsenger
<otti@realraum.at>
Thu, 16 Feb 2012 18:19:03 +0000
(18:19 +0000)
rf433rcv/pc/realraum_codes.pl
patch
|
blob
|
history
diff --git
a/rf433rcv/pc/realraum_codes.pl
b/rf433rcv/pc/realraum_codes.pl
index
774d6df
..
3b03b14
100755
(executable)
--- a/
rf433rcv/pc/realraum_codes.pl
+++ b/
rf433rcv/pc/realraum_codes.pl
@@
-4,8
+4,8
@@
use strict;
my %remotes =
(
schwarz => [\&schwarz, "01110101a1b1c1000000dddd"] ,
my %remotes =
(
schwarz => [\&schwarz, "01110101a1b1c1000000dddd"] ,
- weiss => \&weiss,
- pollin => \&pollin,
+ weiss => [\&weiss,"0c0d01010b0001010001010a"],
+ pollin => [\&pollin,"010101010100010101010001"],
);
&main();
);
&main();
@@
-38,7
+38,23
@@
sub schwarz
sub weiss
{
sub weiss
{
-
+ my ($switch,$taste,$on) = @_ or die "parameters {a|b|c|d} {1|2} {0|1}";
+ my $data = {
+ a=> ($on?'1':'0'),
+ b=> ($taste==1?'0':'1'),
+ c=>0,
+ d=>0,
+ };
+ if($switch eq 'b')
+ {
+ $data->{c}=1;
+ } elsif ($switch eq 'c') {
+ $data->{d}=1;
+ } elsif ($switch eq 'd') {
+ $data->{c}=1;
+ $data->{d}=1;
+ }
+ return $data;
}
sub pollin
}
sub pollin