|
Lines 53-60
else {
Link Here
|
| 53 |
foreach my $dir(@directories){ |
53 |
foreach my $dir(@directories){ |
| 54 |
opendir(DIR, $dir); |
54 |
opendir(DIR, $dir); |
| 55 |
foreach my $filename (readdir(DIR)) { |
55 |
foreach my $filename (readdir(DIR)) { |
| 56 |
my $id = md5_hex($filename); |
|
|
| 57 |
my $full_path = "$dir/$filename"; |
56 |
my $full_path = "$dir/$filename"; |
|
|
57 |
my $id = md5_hex($full_path); |
| 58 |
next if ($filename =~ /^\./ or -d $full_path); |
58 |
next if ($filename =~ /^\./ or -d $full_path); |
| 59 |
|
59 |
|
| 60 |
my $st = stat($full_path); |
60 |
my $st = stat($full_path); |
| 61 |
- |
|
|