diff options
Diffstat (limited to 'www/irc/irclogs.pl')
| -rwxr-xr-x | www/irc/irclogs.pl | 28 |
1 files changed, 17 insertions, 11 deletions
diff --git a/www/irc/irclogs.pl b/www/irc/irclogs.pl index cf69d2cfb7..729ab1b241 100755 --- a/www/irc/irclogs.pl +++ b/www/irc/irclogs.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -require "/home/dast/perl/date.pm"; +#require "/home/dast/perl/date.pm"; opendir(DIR, ".") or die "Can't opendir()"; @@ -17,30 +17,36 @@ for ( @logs ) { $size = (stat("$_"))[7]; $file = $_; $log = ""; + if (/-(\d+)/) { - if ( $1 =~ /(\d\d\d\d)(\d\d)(\d\d)/ ) { + if ( $1 =~ /(\d\d\d\d)(\d\d)(\d\d)/ ) { $y = $1; $m = $2; $d = $3; - $mname = ucfirst MonthNameEng($m); + +$mname = $m; +# $mname = ucfirst MonthNameEng($m); + if ($y != $lasty) { + print "</tr><tr>\n" if $lasty != 0; + print "<th>$y</th>\n"; + $lasty = $y; + } else { + print "</tr><tr>\n<th></th>" if ( $m != $lastm ); + } + if ( $m != $lastm ) { $count=0; - print "</tr><tr>\n" if $lastm != 0; -# if ( $m % 6 == 0 ) { -# print "</tr><tr valign=top>\n"; -# } print "<th>$mname</th>\n"; $lastm = $m; } -# $lines = `wc -l $file` + 0; -# print "<li><a test href=\"$file\">$mname $d</a> <small>($lines lines)</small>\n"; + print "<td><a test href=\"$file\">$d</a></td>\n"; + if ( ++$count > 15 ) { - print "</tr><tr><th></th>\n"; + print "</tr><tr><th></th><th></th>\n"; $count=0; } } } - #print "<li><a href=\"daily/$_\">$_</a> ($size bytes) $log\n"; } print "</ul></td></tr></table>\n"; |