diff options
author | Björn Stenberg <bjorn@haxx.se> | 2005-10-07 11:41:02 +0000 |
---|---|---|
committer | Björn Stenberg <bjorn@haxx.se> | 2005-10-07 11:41:02 +0000 |
commit | 86e31d5558704b8ab83d2e5d5c9dca691a5f768a (patch) | |
tree | 667850da701babad69bc038ef4aba063cf52a730 /www | |
parent | 207c9500aa4be5ccec215db0c46796acfa416457 (diff) |
Added year separators
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@7587 a1c6a512-1295-4272-9138-f99709370657
Diffstat (limited to 'www')
-rwxr-xr-x | www/irc/irclogs.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/www/irc/irclogs.pl b/www/irc/irclogs.pl index b2e5f59642..40d30ad203 100755 --- a/www/irc/irclogs.pl +++ b/www/irc/irclogs.pl @@ -4,7 +4,7 @@ require "/home/dast/perl/date.pm"; opendir(DIR, ".") or die "Can't opendir()"; -@logs = sort grep { /^rockbox-/ } readdir(DIR); +@logs = grep { /^rockbox-/ } readdir(DIR); closedir DIR; print "<table class=archive>\n"; @@ -13,7 +13,7 @@ $lasty = 0; $lastm = 0; $count = 0; -for ( @logs ) { +for ( sort @logs ) { $size = (stat("$_"))[7]; $file = $_; $log = ""; @@ -26,7 +26,9 @@ for ( @logs ) { $mname = ucfirst MonthNameEng($m); if ($y != $lasty) { - print "</tr><tr>\n" if $lasty != 0; + if ($lasty != 0) { + print "</tr><tr><th colspan=39><hr></th></tr><tr>\n"; + } print "<th>$y</th>\n"; $lasty = $y; } else { |