[or-cvs] r8540: Improve log-duplicate-checker to ignore LD_BUG messages. (in tor/trunk: . contrib)

[nickm at seul.org]

Author: nickm
Date: 2006-09-29 18:33:31 -0400 (Fri, 29 Sep 2006)
New Revision: 8540

Modified:
   tor/trunk/
   tor/trunk/contrib/checkLogs.pl
Log:
 r9022 at Kushana:  nickm | 2006-09-29 17:26:58 -0400
 Improve log-duplicate-checker to ignore LD_BUG messages.



Property changes on: tor/trunk
___________________________________________________________________
 svk:merge ticket from /tor/trunk [r9022] on c95137ef-5f19-0410-b913-86e773d04f59

Modified: tor/trunk/contrib/checkLogs.pl
===================================================================
--- tor/trunk/contrib/checkLogs.pl	2006-09-29 22:33:28 UTC (rev 8539)
+++ tor/trunk/contrib/checkLogs.pl	2006-09-29 22:33:31 UTC (rev 8540)
@@ -8,30 +8,36 @@
 
 while (<>) {
     if ($more) {
-        if (/\s*(?:LD_[A-Z]*,)?\"((?:[^\"\\]+|\\.*)+)\"(.*)/) {
+        if (/LD_BUG/) {
+            $more = 0;
+            next;
+        }
+        if (/\"((?:[^\"\\]+|\\.*)+)\"(.*)/) {
             $last .= $1;
             if ($2 !~ /[,\)]/) {
                 $more = 1;
             } else {
-                $count{$last}++;
+                $count{lc $last}++;
                 $more = 0;
             }
         } elsif (/[,\)]/) {
-            $count{$last}++;
+            $count{lc $last}++;
             $more = 0;
         } elsif ($more == 2) {
             print "SKIPPED more\n";
         }
-    } elsif (/log_(?:warn|err|notice)\([^\"]*\"((?:[^\"\\]+|\\.)*)\"(.*)/) {
-        my $s = $1;
-        if ($2 =~ /[,\)]/ ) {
-            $count{$s}++;
+    } elsif (/log_(?:warn|err|notice)\(\s*(LD_[A-Z_]*)\s*,\s*\"((?:[^\"\\]+|\\.)*)\"(.*)/) {
+        next if ($1 eq 'LD_BUG');
+        my $s = $2;
+        if ($3 =~ /[,\)]/ ) {
+            $count{lc $s}++;
         } else {
             $more = 1;
             $last = $s;
         }
-    } elsif (/log_(?:warn|err|notice)\((?:LD_[A-Z]*,)?(.*)/) {
-        my $extra = $1;
+    } elsif (/log_(?:warn|err|notice)\(\s*((?:LD_[A-Z_]*)?)(.*)/) {
+        next if ($1 eq 'LD_BUG');
+        my $extra = $2;
         chomp $extra;
         $last = "";
         $more = 2 if ($extra eq '');