DIVERTPOSTINGS=''
MODLOGSEARCH=true
MODLOGDOWNLOAD=true
+LOGREPORTOPTS=''
. settings
export GROUP ABBREV INFOHEADER MODEMAIL GROUPURL REJECTIONSLIST
-export DIVERTPOSTINGS MODLOGSEARCH MODLOGDOWNLOAD
+export DIVERTPOSTINGS MODLOGSEARCH MODLOGDOWNLOAD LOGREPORTOPTS
. ../global-settings
export ROOTBASEDIR CGIBASEURL DOMAIN SLIMYDOMAIN OURUSER ADMIN
#!/usr/bin/perl -w
-our ($ng,$staticfiles,@ARGV) = @ARGV;
-chdir $ng or die $!;
-
use strict (qw(vars));
use IO::Handle;
use POSIX;
use CGI qw/:standard *table end_* -no_xhtml/;
+our $timesquash = 3;
+# no. of digits at end of time to replace with x, 0..4
+
+for (;;) {
+ last unless @ARGV;
+ last unless $ARGV[0] =~ m/^-/;
+ $_ = shift @ARGV;
+ last if m/^--?$/;
+ while (m/^-./) {
+ if (s/^-t([0-4])/-/) {
+ $timesquash= $1;
+ } else {
+ die "bad option $_ ?";
+ }
+ }
+}
+
+our ($ng,$staticfiles,@ARGV) = @ARGV;
+chdir $ng or die $!;
+
our @lines= ();
our @s;
our $oddeven = "o";
chomp;
@s= split /\t/;
push @s, '' if @s<=6;
- $s[0]= strftime "%Y-%m-%d %H:%M %Z", localtime $s[0];
- $s[0] =~ s/(\d+\:\d)\d/${1}x/;
+ $s[0]= strftime "%Y-%m-%d %H:%M:%S %Z", localtime $s[0];
+ for (my $i=0; $i<$timesquash; $i++) {
+ $s[0] =~ s/(\d\d:[\d:]*)\d/$1x/;
+ }
+ $s[0] =~ s/:xx / /;
&$processline();
$oddeven =~ y/oe/eo/;
}