Publish rejections

[modbot-mtm.git] / xlog / bin / report

diff --git a/xlog/bin/report b/xlog/bin/report
index ee3022ea17cfaa444fb3be9e198cae58e01f83ab..5f747694de71d9294274fff11cac085320bcb892 100755 (executable)
--- a/xlog/bin/report
+++ b/xlog/bin/report
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-our ($ng,@ARGV) = @ARGV;
+our ($ng,$staticfiles,@ARGV) = @ARGV;
 chdir $ng or die $!;
 
 use strict (qw(vars));
@@ -34,7 +34,7 @@ sub processlogs ($) {
 sub processline_print () {
     my @sp= @s;
     $sp[3] =~ s/\@\w{0,2}/ at .. /;
-    my @sp= map { escapeHTML($_) } @sp;
+    @sp= map { escapeHTML($_) } @sp[0..5];
     my @spu= map {
        s/\W/ sprintf "%%%02x", ord $& /ge;
        $_;
@@ -45,6 +45,9 @@ sub processline_print () {
            $sp[$i]= a({ href=>$url }, $sp[$i] );
        }
     }
+    if (length $s[6]) {
+       $sp[5]= a({ href=>"$staticfiles/nr-$s[6].txt" }, $sp[5] );
+    }
 #print STDERR join('|',@sp),"\n";
     print Tr(td([@sp]));
 }
@@ -87,7 +90,7 @@ if ($pi =~ m,^/message/(\d+)/(.*)$,) {
     $title= "Single message ".escapeHTML($selectmid);
     $processline= \&processline_print_ifsingle;
 } elsif ($pi =~ m/^$/) {
-    $title= "Recent activity";
+    $title= "Recent activity - $ng";
 } elsif ($pi =~ m,^/queue,) {
     $title= "Activity regarding still-queued messages";
     $processline= \&processline_queue_prescan;