summaryrefslogtreecommitdiff
path: root/www/irc
diff options
context:
space:
mode:
Diffstat (limited to 'www/irc')
-rwxr-xr-xwww/irc/irclogs.pl8
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
5opendir(DIR, ".") or 5opendir(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);
8closedir DIR; 8closedir DIR;
9 9
10print "<table class=archive>\n"; 10print "<table class=archive>\n";
@@ -13,7 +13,7 @@ $lasty = 0;
13$lastm = 0; 13$lastm = 0;
14$count = 0; 14$count = 0;
15 15
16for ( @logs ) { 16for ( 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 {