Rev 599 | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | SVN | RSS feed
| Rev 599 | Rev 800 | ||
|---|---|---|---|
| 1 | #File is included from TimeMacroLog.pl, should be used as user settings |
1 | #File is included from TimeMacroLog.pl, should be used as user settings |
| 2 | #rename to settings.pl |
2 | #rename to settings.pl |
| 3 | 3 | ||
| 4 | #Host and port where the canDaemon exist |
4 | #Host and port where the canDaemon exist |
| 5 | $host = "localhost"; |
5 | $host = "localhost"; |
| 6 | $port = 1200; |
6 | $port = 1200; |
| 7 | 7 | ||
| 8 | #for sending time msg: set to 1, else set to 0 |
8 | #for sending time msg: set to 1, else set to 0 |
| 9 | $sendtime = 0; |
9 | $sendtime = 0; |
| 10 | 10 | ||
| 11 | #for printing timestamps on printed messages: set to 1, else set to 0 |
11 | #for printing timestamps on printed messages: set to 1, else set to 0 |
| 12 | $timestamp = 1; |
12 | $timestamp = 1; |
| 13 | 13 | ||
| 14 | #define filters for id of messages, passed messages will be printed on stdout |
14 | #define filters for id of messages, passed messages will be printed on stdout |
| 15 | @acceptmask_ones = (0x00080000, 0x00240000, 0x00040000, 0x00280000); |
15 | @acceptmask_ones = (0x00080000, 0x00240000, 0x00040000, 0x00280000); |
| 16 | @acceptmask_zeros = (0xfff70000, 0xffdb0000, 0xfffb0000, 0xffd70000); |
16 | @acceptmask_zeros = (0xfff70000, 0xffdb0000, 0xfffb0000, 0xffd70000); |
| 17 | @denymask_ones = (); |
17 | @denymask_ones = (); |
| 18 | @denymask_zeros = (); |
18 | @denymask_zeros = (); |
| 19 | 19 | ||
| 20 | #define makros, when an input string is string on can this perl-script will |
20 | #define makros, when an input string is string on can this perl-script will |
| 21 | #send the corresponding output string |
21 | #send the corresponding output string |
| 22 | 22 | ||
| 23 | # Remote button 1 => desktoplamp toggle |
23 | # Remote button 1 => desktoplamp toggle |
| 24 | push(@input , "PKT 0409000a 1 0 00 00 05 01"); |
24 | push(@input , "PKT 0409000a 1 0 00 00 05 01"); |
| 25 | push(@output, "PKT 08008c00 1 0 03"); |
25 | push(@output, "PKT 08008c00 1 0 03"); |
| 26 | 26 | ||
| 27 | # Remote button 4 down => blinds darker |
27 | # Remote button 4 down => blinds darker |
| 28 | push(@input , "PKT 0409000a 1 0 00 00 05 04"); |
28 | push(@input , "PKT 0409000a 1 0 00 00 05 04"); |
| 29 | push(@output, "PKT 08010200 1 0 00 03"); |
29 | push(@output, "PKT 08010200 1 0 00 03"); |
| 30 | 30 | ||
| 31 | # Remote button 4 up => blinds stop |
31 | # Remote button 4 up => blinds stop |
| 32 | push(@input , "PKT 0409000a 1 0 0f 00 05 04"); |
32 | push(@input , "PKT 0409000a 1 0 0f 00 05 04"); |
| 33 | push(@output, "PKT 08010200 1 0 00 04"); |
33 | push(@output, "PKT 08010200 1 0 00 04"); |
| 34 | 34 | ||
| 35 | # Remote button 6 down => blinds lighter |
35 | # Remote button 6 down => blinds lighter |
| 36 | push(@input , "PKT 0409000a 1 0 00 00 05 06"); |
36 | push(@input , "PKT 0409000a 1 0 00 00 05 06"); |
| 37 | push(@output, "PKT 08010200 1 0 80 03"); |
37 | push(@output, "PKT 08010200 1 0 80 03"); |
| 38 | 38 | ||
| 39 | # Remote button 6 up => blinds stop |
39 | # Remote button 6 up => blinds stop |
| 40 | push(@input , "PKT 0409000a 1 0 0f 00 05 06"); |
40 | push(@input , "PKT 0409000a 1 0 0f 00 05 06"); |
| 41 | push(@output, "PKT 08010200 1 0 00 04"); |
41 | push(@output, "PKT 08010200 1 0 00 04"); |
| 42 | 42 | ||