diff options
Diffstat (limited to 'www/irc/irclogs.pl')
-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"; | |||
4 | 4 | ||
5 | opendir(DIR, ".") or | 5 | opendir(DIR, ".") or |
6 | die "Can't opendir()"; | 6 | die "Can't opendir()"; |
7 | @logs = sort grep { /^rockbox-/ } readdir(DIR); | 7 | @logs = grep { /^rockbox-/ } readdir(DIR); |
8 | closedir DIR; | 8 | closedir DIR; |
9 | 9 | ||
10 | print "<table class=archive>\n"; | 10 | print "<table class=archive>\n"; |
@@ -13,7 +13,7 @@ $lasty = 0; | |||
13 | $lastm = 0; | 13 | $lastm = 0; |
14 | $count = 0; | 14 | $count = 0; |
15 | 15 | ||
16 | for ( @logs ) { | 16 | for ( sort @logs ) { |
17 | $size = (stat("$_"))[7]; | 17 | $size = (stat("$_"))[7]; |
18 | $file = $_; | 18 | $file = $_; |
19 | $log = ""; | 19 | $log = ""; |
@@ -26,7 +26,9 @@ for ( @logs ) { | |||
26 | 26 | ||
27 | $mname = ucfirst MonthNameEng($m); | 27 | $mname = ucfirst MonthNameEng($m); |
28 | if ($y != $lasty) { | 28 | if ($y != $lasty) { |
29 | print "</tr><tr>\n" if $lasty != 0; | 29 | if ($lasty != 0) { |
30 | print "</tr><tr><th colspan=39><hr></th></tr><tr>\n"; | ||
31 | } | ||
30 | print "<th>$y</th>\n"; | 32 | print "<th>$y</th>\n"; |
31 | $lasty = $y; | 33 | $lasty = $y; |
32 | } else { | 34 | } else { |