Update signcontrol
This commit is contained in:
parent
b7c7a2e04c
commit
f9101bc12d
1 changed files with 3 additions and 3 deletions
|
@ -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 {
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue