jsw/signcontrol
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update signcontrol

Browse source
This commit is contained in:
Jurn Wubben 2025-08-05 19:10:47 +00:00
parent b7c7a2e04c
commit f9101bc12d
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
signcontrol
View file

@ -17,7 +17,7 @@ my $display_delay;
my $display_repeat; my $display_repeat;
my $ttl; my $ttl;
my $sound_alarm; my $sound_alarm;
my $reset; # New flag for resetting the sign my $reset;
GetOptions( GetOptions(
"zone=s@" => \$zone_array_ref, "zone=s@" => \$zone_array_ref,
@ -68,7 +68,7 @@ foreach my $message_str (@{$message_array_ref}) {
my $sign = Net::Symon::NetBrite->new(address => $address); my $sign = Net::Symon::NetBrite->new(address => $address);
if ($reset) { # If --reset is provided, reboot the sign if ($reset) {
$sign->reboot(); $sign->reboot();
} }
@ -89,7 +89,7 @@ if ($priority) {
} }
foreach my $name (keys %messages) { foreach my $name (keys %messages) {
$sign->message($name, $messages{$name}, \%message_params); # Pass raw message $sign->message($name, $messages{$name}, \%message_params);
} }
sub parse_zone_string { sub parse_zone_string {