From 86e31d5558704b8ab83d2e5d5c9dca691a5f768a Mon Sep 17 00:00:00 2001 From: Björn Stenberg Date: Fri, 7 Oct 2005 11:41:02 +0000 Subject: Added year separators git-svn-id: svn://svn.rockbox.org/rockbox/trunk@7587 a1c6a512-1295-4272-9138-f99709370657 --- www/irc/irclogs.pl | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'www/irc/irclogs.pl') 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 "\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 "\n" if $lasty != 0; + if ($lasty != 0) { + print "\n"; + } print "\n"; $lasty = $y; } else { -- cgit v1.2.3

$y