First page Back Continue Last page Overview Graphics
Macro code (Perl)
- # LRicon is actually a LampLinc V2
- # manually turned on - sends out E4EON ($LR_ON)
- # manually turned off - sends out E4EOFF
- # ($LR_OFF)
- if(state_now $LR_ON) {
- Timer->new->set(1, sub{ $LRiLamp->set(ON)};
- Timer->new->set(1, sub{ $LRicon->set(ON)};
- }
- if(state_now $LR_OFF) {
- Timer->new->set(1, sub{ $LRiLamp->set(OFF)};
- Timer->new->set(1, sub{ $LRicon->set(OFF)};
- }