Update signcontrol

This commit is contained in:
Jurn Wubben 2025-08-05 19:10:47 +00:00
parent b7c7a2e04c
commit f9101bc12d

View file

@ -17,7 +17,7 @@ my $display_delay;
my $display_repeat;
my $ttl;
my $sound_alarm;
my $reset; # New flag for resetting the sign
my $reset;
GetOptions(
"zone=s@" => \$zone_array_ref,
@ -68,7 +68,7 @@ foreach my $message_str (@{$message_array_ref}) {
my $sign = Net::Symon::NetBrite->new(address => $address);
if ($reset) { # If --reset is provided, reboot the sign
if ($reset) {
$sign->reboot();
}
@ -89,7 +89,7 @@ if ($priority) {
}
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 {