use Data::Dumper;
clearlist();
filemask("^index\.s?html");
ireaddir("/mannheimer/unternehmen/presse/presseinformationen");
foreach my $file (@FILELIST){
my @pinfosort = split(/\./,$FILE_META{$file}->{'pinfo_datum'});
$FILE_META{$file}->{sort_day} = $pinfosort[0] || '0';
$FILE_META{$file}->{sort_month} = $pinfosort[1] || '0';
$FILE_META{$file}->{sort_year} = $pinfosort[2] || '0';
$FILE_META{$file}->{sort_string} = sprintf('%04d%02d%02d',$pinfosort[2],$pinfosort[1],$pinfosort[0]);
$FILE_META{$file}->{sort_x} = Dumper(\@pinfosort);
}
print '';
sort_by_multifield("sort_year,sort_month,sort_day");
reverse_list();
foreach my $file (sort {$FILE_META{$b}->{sort_string} <=> $FILE_META{$a}->{sort_string}} @FILELIST) {
my $filename = $FILE_META{$file}->{filename};
my $directory = $FILE_META{$file}->{directory};
my $date = $FILE_META{$file}->{'pinfo_datum'};
my $title = $FILE_META{$file}->{'pinfo_titel'};
my $teaser = $FILE_META{$file}->{'pinfo_teaser'};
my $debug = $FILE_META{$file}->{'sort_x'}. " ".$FILE_META{$file}->{'sort_string'};
print qq|
$date | |
$title |
| | $teaser |
|;
}
print '
';
print '';