chiark
/
gitweb
/
~webstump
/
modbot-mtm.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6f6c96d
)
Added style to conserve horizontal real estate
author
Owen Dunn
<owend@chiark.greenend.org.uk>
Thu, 4 Mar 2010 15:36:50 +0000
(15:36 +0000)
committer
Owen Dunn
<owend@chiark.greenend.org.uk>
Thu, 4 Mar 2010 15:36:50 +0000
(15:36 +0000)
xlog/bin/report
patch
|
blob
|
history
diff --git
a/xlog/bin/report
b/xlog/bin/report
index 5f747694de71d9294274fff11cac085320bcb892..7d0bb50e5399c81d0e68e8d62bffc70338b3ad31 100755
(executable)
--- a/
xlog/bin/report
+++ b/
xlog/bin/report
@@
-6,10
+6,11
@@
chdir $ng or die $!;
use strict (qw(vars));
use IO::Handle;
use POSIX;
use strict (qw(vars));
use IO::Handle;
use POSIX;
-use CGI qw/:standard *table end_*/;
+use CGI qw/:standard *table end_*
-no_xhtml
/;
our @lines= ();
our @s;
our @lines= ();
our @s;
+our $oddeven = "o";
our ($processline,$needmap);
our ($selectmid,$selectnum);
our ($processline,$needmap);
our ($selectmid,$selectnum);
@@
-22,6
+23,7
@@
sub processlog ($$) {
@s= split /\t/;
$s[0]= strftime "%Y-%m-%d %H:%M:%S %Z", localtime $s[0];
&$processline();
@s= split /\t/;
$s[0]= strftime "%Y-%m-%d %H:%M:%S %Z", localtime $s[0];
&$processline();
+ $oddeven =~ y/oe/eo/;
}
}
sub processlogs ($) {
}
}
sub processlogs ($) {
@@
-35,6
+37,8
@@
sub processline_print () {
my @sp= @s;
$sp[3] =~ s/\@\w{0,2}/ at .. /;
@sp= map { escapeHTML($_) } @sp[0..5];
my @sp= @s;
$sp[3] =~ s/\@\w{0,2}/ at .. /;
@sp= map { escapeHTML($_) } @sp[0..5];
+ $sp[3] =~ s/</\<br></;
+ $sp[2]=~s/\@/\@<span class='hole'><\/span>/;
my @spu= map {
s/\W/ sprintf "%%%02x", ord $& /ge;
$_;
my @spu= map {
s/\W/ sprintf "%%%02x", ord $& /ge;
$_;
@@
-42,14
+46,16
@@
sub processline_print () {
if (length $s[1] && length $s[2]) {
my $url= url().'/message/'.$spu[1].'/'.$spu[2];
foreach my $i (qw(1 2)) {
if (length $s[1] && length $s[2]) {
my $url= url().'/message/'.$spu[1].'/'.$spu[2];
foreach my $i (qw(1 2)) {
- $sp[$i]= a({ href=>$url }, $sp[$i] );
+ $sp[$i]= a({ href=>$url }, $sp[$i]
."<br>"
);
}
}
if (length $s[6]) {
$sp[5]= a({ href=>"$staticfiles/nr-$s[6].txt" }, $sp[5] );
}
}
}
if (length $s[6]) {
$sp[5]= a({ href=>"$staticfiles/nr-$s[6].txt" }, $sp[5] );
}
-#print STDERR join('|',@sp),"\n";
- print Tr(td([@sp]));
+
+ print "<tr class='$oddeven'><td>$sp[0]</td>";
+ print "<td class='ref'>$sp[1] $sp[2]</td>";
+ print "<td>$sp[3]</td><td>$sp[4]</td><td>$sp[5]</td></tr>\n";
}
sub processline_print_ifsingle () {
}
sub processline_print_ifsingle () {
@@
-98,12
+104,19
@@
if ($pi =~ m,^/message/(\d+)/(.*)$,) {
$processline= \&processline_queue;
}
$processline= \&processline_queue;
}
-print header(), start_html($title), h1($title), table();
+my $css=<<EOJ;
+span.hole:before {content: " "; }
+td.ref {font-size: 0.75em; }
+tr.o { background: #ddddff; }
+EOJ
+
+print header(),
+ start_html(-title=>$title, -style=>{'-code'=>$css}),
+ h1($title), start_table();
print Tr(td([map { strong($_) } (qw(
Date
print Tr(td([map { strong($_) } (qw(
Date
- Reference
- Message-ID
+ Reference/Message-ID
From
Subject
Event
From
Subject
Event