3 our ($ng,$staticfiles,@ARGV) = @ARGV;
9 use CGI qw/:standard *table end_*/;
14 our ($processline,$needmap);
15 our ($selectmid,$selectnum);
18 my ($taccat, $fn)= @_;
19 open F, "$taccat $fn |" or die $!;
23 $s[0]= strftime "%Y-%m-%d %H:%M:%S %Z", localtime $s[0];
29 my (@logs) = qw(event.log.0 event.log);
30 @logs= reverse @logs if $taccat eq 'tac';
31 processlog($taccat, $_) foreach @logs;
34 sub processline_print () {
36 $sp[3] =~ s/\@\w{0,2}/ at .. /;
37 @sp= map { escapeHTML($_) } @sp[0..5];
39 s/\W/ sprintf "%%%02x", ord $& /ge;
42 if (length $s[1] && length $s[2]) {
43 my $url= url().'/message/'.$spu[1].'/'.$spu[2];
44 foreach my $i (qw(1 2)) {
45 $sp[$i]= a({ href=>$url }, $sp[$i] );
49 $sp[5]= a({ href=>"$staticfiles/nr-$s[6].txt" }, $sp[5] );
51 #print STDERR join('|',@sp),"\n";
55 sub processline_print_ifsingle () {
56 return unless $s[1] eq $selectnum
57 or $s[2] eq $selectmid;
61 our (%done_num,%done_id,%num2id,%id2num);
62 sub processline_queue_prescan () {
63 my ($num,$id,$e) = @s[1..2,5];
64 if (length $id and length $num) {
68 return unless $e =~ m/^decide reject discard|^notify reject|^post/;
69 #print STDERR "finishing $e $s[1] $s[2]\n";
70 $num= $id2num{$id} if !length $num;
71 $id= $num2id{$num} if !length $id;
72 #print STDERR "finishing $e $num $id\n";
73 $done_num{$num}++ if defined $num;
74 $done_id{$id}++ if defined $id;
76 sub processline_queue () {
77 return if $done_num{$s[1]};
78 return if $done_id{$s[2]};
86 $processline= \&processline_print;
88 if ($pi =~ m,^/message/(\d+)/(.*)$,) {
89 ($selectnum, $selectmid) = ($1,$2);
90 $title= "Single message ".escapeHTML($selectmid);
91 $processline= \&processline_print_ifsingle;
92 } elsif ($pi =~ m/^$/) {
93 $title= "Recent activity - $ng";
94 } elsif ($pi =~ m,^/queue,) {
95 $title= "Activity regarding still-queued messages";
96 $processline= \&processline_queue_prescan;
98 $processline= \&processline_queue;
101 print header(), start_html($title), h1($title), table();
103 print Tr(td([map { strong($_) } (qw(
117 print a({ href=>url() }, "All recent activity"), '; ';
118 print a({ href=>url().'/queue' }, "Unfinished business");