First page Back Continue Last page Overview Graphics
Macro code (Perl)
- # LRicon is actually a LampLinc V2
- # If you turn it on it sends out E4EON ($LR_ON)
- # If you turn it off it 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)};
- }