diff options
Diffstat (limited to 'www/irc/irclogs.pl')
-rwxr-xr-x | www/irc/irclogs.pl | 6 |
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 | ||
15 | for ( @logs ) { | 16 | for ( @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"; |