From c93beedc46c0495a45c449fc66a7eb04630567f4 Mon Sep 17 00:00:00 2001
From: "David A. Madore" <david+config@madore.org>
Date: Tue, 16 Feb 2010 17:28:50 +0100
Subject: Work against the dreadful habit of concatenatingallmywords in
 identifiers.

---
 emergencyd.pl | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'emergencyd.pl')

diff --git a/emergencyd.pl b/emergencyd.pl
index 200881b..6019029 100755
--- a/emergencyd.pl
+++ b/emergencyd.pl
@@ -46,7 +46,7 @@
 # binds to the IPv6 unspecified address with the IPV6_V6ONLY option
 # set to 0, thus listening on both IPv6 and IPv4 families.
 #
-# -k <filename> specifies the keyfile to use.  This file contains one
+# -k <filename> specifies the key file to use.  This file contains one
 # or more keys, one per line, which will all be equally valid when
 # computing the MAC.
 #
@@ -72,19 +72,19 @@ getopts("k:p:f", \%opts);
 
 my @authorized_keys;
 
-my $keyfilename = $opts{k};
-die "No key file specified (use -k option)" unless defined($keyfilename);
-sub readkeys {
-    open my $keyfile, "<", $keyfilename
+my $key_filename = $opts{k};
+die "No key file specified (use -k option)" unless defined($key_filename);
+sub read_keys {
+    open my $key_file, "<", $key_filename
 	or die "Cannot open key file $opts{k}: $!";
     @authorized_keys = ();
-    while (<$keyfile>) {
+    while (<$key_file>) {
 	chomp;
 	push @authorized_keys, $_;
     }
-    close $keyfile;
+    close $key_file;
 }
-readkeys;
+read_keys;
 
 my $proto = getprotobyname("udp") or die "Can't resolve udp protocol: $!";
 my $port;
@@ -135,13 +135,13 @@ while (1) {
 	send $socket, ("DATE\n".curtime."\n".$mintime."\n"), 0, $sender;
     } else {
 	my $validate = "$command|$timestamp";
-	my $macchecked = 0;
+	my $mac_checked = 0;
 	foreach my $key ( @authorized_keys ) {
 	    if ( $maccheck eq hmac_sha256_hex($validate, $key) ) {
-		$macchecked = 1;
+		$mac_checked = 1;
 	    }
 	}
-	unless ( $macchecked ) {
+	unless ( $mac_checked ) {
 	    send $socket, "!MAC\n", 0, $sender;
 	    next PACKET;
 	}
@@ -162,7 +162,7 @@ while (1) {
 	    exit 0;
 	} elsif ( $command eq "RKEY" ) {
 	    my $resp = "DONE\n";
-	    eval { readkeys };
+	    eval { read_keys };
 	    if ( $@ ) {
 		$resp = "!ERR\n$@";
 	    }
-- 
cgit v1.2.3