svn commit: r453557 - /spamassassin/branches/jm_re2c_hacks/masses/logdiff

[jm...@apache.org]

Author: jm
Date: Fri Oct  6 04:43:20 2006
New Revision: 453557

URL: http://svn.apache.org/viewvc?view=rev&rev=453557
Log:
add leftover script

Added:
    spamassassin/branches/jm_re2c_hacks/masses/logdiff   (with props)

Added: spamassassin/branches/jm_re2c_hacks/masses/logdiff
URL: http://svn.apache.org/viewvc/spamassassin/branches/jm_re2c_hacks/masses/logdiff?view=auto&rev=453557
==============================================================================
--- spamassassin/branches/jm_re2c_hacks/masses/logdiff (added)
+++ spamassassin/branches/jm_re2c_hacks/masses/logdiff Fri Oct  6 04:43:20 2006
@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+
+my ($l1, $l2, @diffargs);
+foreach my $arg (@ARGV) {
+  if (/^-/) {
+    push @diffargs, $arg;
+  } elsif (defined $l1) {
+    $l2 = $arg;
+  } else {
+    $l1 = $arg;
+  }
+}
+
+my $tmp1 = "/tmp/logdiff.$$.1";
+my $tmp2 = "/tmp/logdiff.$$.2";
+fixfile($l1, $tmp1);
+fixfile($l2, $tmp2);
+
+exec "diff", @diffargs, $tmp1, $tmp2;
+
+sub fixfile {
+  my $inf = shift;
+  my $outf = shift;
+  open (IN, "<$inf") or die "cannot open $inf";
+  open (OUT, ">$outf") or die "cannot open $outf";
+  while (<IN>) {
+    s/\bscantime=\d+/scantime=N/gs;     # frequently different
+    s/\bAWL\b//gs;      # kill AWL hits
+    s/ ,/ /gs;
+    s/, / /gs;
+    s/,,/,/gs;
+    print OUT;
+  }
+  close IN;
+  close OUT;
+}

Propchange: spamassassin/branches/jm_re2c_hacks/masses/logdiff
------------------------------------------------------------------------------
    svn:executable = *