summaryrefslogtreecommitdiff
path: root/www/irc
diff options
context:
space:
mode:
Diffstat (limited to 'www/irc')
-rwxr-xr-xwww/irc/irclogs.pl6
1 files changed, 6 insertions, 0 deletions
diff --git a/www/irc/irclogs.pl b/www/irc/irclogs.pl
index d020c634e1..cf69d2cfb7 100755
--- a/www/irc/irclogs.pl
+++ b/www/irc/irclogs.pl
@@ -11,6 +11,7 @@ print "<table class=archive>\n";
11 11
12$lasty = 0; 12$lasty = 0;
13$lastm = 0; 13$lastm = 0;
14$count = 0;
14 15
15for ( @logs ) { 16for ( @logs ) {
16 $size = (stat("$_"))[7]; 17 $size = (stat("$_"))[7];
@@ -23,6 +24,7 @@ for ( @logs ) {
23 $d = $3; 24 $d = $3;
24 $mname = ucfirst MonthNameEng($m); 25 $mname = ucfirst MonthNameEng($m);
25 if ( $m != $lastm ) { 26 if ( $m != $lastm ) {
27 $count=0;
26 print "</tr><tr>\n" if $lastm != 0; 28 print "</tr><tr>\n" if $lastm != 0;
27# if ( $m % 6 == 0 ) { 29# if ( $m % 6 == 0 ) {
28# print "</tr><tr valign=top>\n"; 30# print "</tr><tr valign=top>\n";
@@ -33,6 +35,10 @@ for ( @logs ) {
33# $lines = `wc -l $file` + 0; 35# $lines = `wc -l $file` + 0;
34# print "<li><a test href=\"$file\">$mname $d</a> <small>($lines lines)</small>\n"; 36# print "<li><a test href=\"$file\">$mname $d</a> <small>($lines lines)</small>\n";
35 print "<td><a test href=\"$file\">$d</a></td>\n"; 37 print "<td><a test href=\"$file\">$d</a></td>\n";
38 if ( ++$count > 15 ) {
39 print "</tr><tr><th></th>\n";
40 $count=0;
41 }
36 } 42 }
37 } 43 }
38 #print "<li><a href=\"daily/$_\">$_</a> ($size bytes) $log\n"; 44 #print "<li><a href=\"daily/$_\">$_</a> ($size bytes) $log\n";