version 1.147, 2013/07/02 19:04:49
|
version 1.148, 2013/07/27 21:38:54
|
Line 97 sub handler {
|
Line 97 sub handler {
|
opendir(DIR,$fn); |
opendir(DIR,$fn); |
my @files=sort {uc($a) cmp uc($b)} (readdir(DIR)); |
my @files=sort {uc($a) cmp uc($b)} (readdir(DIR)); |
foreach my $filename (@files) { |
foreach my $filename (@files) { |
|
next if ($filename eq '.DS_Store'); |
my ($cdev,$cino,$cmode,$cnlink, |
my ($cdev,$cino,$cmode,$cnlink, |
$cuid,$cgid,$crdev,$csize, |
$cuid,$cgid,$crdev,$csize, |
$catime,$cmtime,$cctime, |
$catime,$cmtime,$cctime, |