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