summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xwww/irc/irclogs.pl28
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";