From 9823253c3d661f28e6d71c7f8f50cbe94770f69a Mon Sep 17 00:00:00 2001 From: etienne Date: Mon, 25 Aug 2003 13:39:29 +0000 Subject: Configs classées dans l'ordre chronologique de création (=modification) des fichiers associés. --- ivybanner | 2 ++ 1 file changed, 2 insertions(+) diff --git a/ivybanner b/ivybanner index c5a4476..0523cd6 100644 --- a/ivybanner +++ b/ivybanner @@ -383,7 +383,9 @@ sub demosframe { my @file_liste = grep /:/, readdir PREFIX; closedir PREFIX; my @cleanfilelist = (); + @file_liste = sort { (stat("$path/$a"))[10] <=> (stat("$path/$b"))[10] } @file_liste; foreach my $file (@file_liste) { + print "file=$file mtime=", (stat("$path/$file"))[10] ,"\n"; next unless (-f $path."/".$file); next if ($file =~ /\~$/); next if ($file =~ /^\./); -- cgit v1.1