summaryrefslogtreecommitdiff
path: root/www/irc/irclogs.pl
diff options
context:
space:
mode:
authorBjörn Stenberg <bjorn@haxx.se>2005-10-07 11:41:02 +0000
committerBjörn Stenberg <bjorn@haxx.se>2005-10-07 11:41:02 +0000
commit86e31d5558704b8ab83d2e5d5c9dca691a5f768a (patch)
tree667850da701babad69bc038ef4aba063cf52a730 /www/irc/irclogs.pl
parent207c9500aa4be5ccec215db0c46796acfa416457 (diff)
downloadrockbox-86e31d5558704b8ab83d2e5d5c9dca691a5f768a.tar.gz
rockbox-86e31d5558704b8ab83d2e5d5c9dca691a5f768a.zip
Added year separators
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@7587 a1c6a512-1295-4272-9138-f99709370657
Diffstat (limited to 'www/irc/irclogs.pl')
-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 {