changeset 3:368182409eac

More variable cleanups.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 13 Aug 2009 17:44:25 +0300
parents 3da95f3082d9
children b2c7c76b3529
files maltfilter
diffstat 1 files changed, 10 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/maltfilter	Thu Aug 13 17:41:37 2009 +0300
+++ b/maltfilter	Thu Aug 13 17:44:25 2009 +0300
@@ -231,11 +231,11 @@
 ###
 
 sub malt_init {
-  foreach my $logname (@scanfiles) {
+  foreach my $filename (@scanfiles) {
     local *INFILE;
-    mlog(0, "- Parsing ".$logname." ...\n");
-    open(INFILE, "<", $logname) or die("Could not open '".$logname."'!\n");
-    $filehandles{$logname} = *INFILE;
+    mlog(0, "- Parsing ".$filename." ...\n");
+    open(INFILE, "<", $filename) or die("Could not open '".$filename."'!\n");
+    $filehandles{$filename} = *INFILE;
     while (<INFILE>) {
       chomp;
       check_log_line($_);
@@ -248,8 +248,8 @@
 
 sub malt_cleanup {
   mlog(0, "- Closing open filehandles.\n");
-  foreach my $logname (keys %filehandles) {
-    close($filehandles{$logname});
+  foreach my $filename (keys %filehandles) {
+    close($filehandles{$filename});
   }
 }
 
@@ -259,8 +259,8 @@
   my $counter = 0;
   while (1) {
     my %filepos = ();
-    foreach my $logname (keys %filehandles) {
-      for ($filepos{$logname} = tell($filehandles{$logname}); $_ = <$filehandles{$logname}>; $filepos{$logname} = tell($filehandles{$logname})) {
+    foreach my $filename (keys %filehandles) {
+      for ($filepos{$filename} = tell($filehandles{$filename}); $_ = <$filehandles{$filename}>; $filepos{$filename} = tell($filehandles{$filename})) {
         chomp;
         check_log_line($_);
       }
@@ -274,8 +274,8 @@
       update_iplist(time());
       weed_entries();
     }
-    foreach my $logname (keys %filehandles) {
-      seek($filehandles{$logname}, $filepos{$logname}, 0);
+    foreach my $filename (keys %filehandles) {
+      seek($filehandles{$filename}, $filepos{$filename}, 0);
     }
   }
 }