diff options
Diffstat (limited to 'emergencyc.pl')
| -rwxr-xr-x | emergencyc.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/emergencyc.pl b/emergencyc.pl index 296297f..86c9da7 100755 --- a/emergencyc.pl +++ b/emergencyc.pl @@ -39,7 +39,8 @@ my $key; if ( defined($opts{K}) ) { $key = $opts{K}; } elsif ( defined($opts{k}) ) { - open my $key_file, "<", $opts{k} or die "Cannot open key file $opts{k}: $!"; + open my $key_file, "<", $opts{k} + or die "Cannot open key file $opts{k}: $!"; $key = <$key_file>; chomp $key; close $key_file; @@ -59,7 +60,8 @@ bind $socket, sockaddr_in6(0, in6addr_any); sub curtime { my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time); - return sprintf("%04d-%02d-%02dT%02d:%02d:%02dZ",$year+1900,$mon+1,$mday,$hour,$min,$sec); + return sprintf("%04d-%02d-%02dT%02d:%02d:%02dZ", + $year+1900,$mon+1,$mday,$hour,$min,$sec); } my $command = $ARGV[0] // "PING"; |