<{!-- http://webmake.taint.org/doc/cache.html
bug: auf der Seite steht file, da sollte aber dir stehen --}>
<{perl
# get all the files found from "raw"
my @list = get_list ("all_files");
my @newlist = ();
# go through them one by one
foreach my $file (@list)
{
# skip any files that contain ".*menu"
next if ($file =~ /.*menu/);
# add it to the new list
push (@newlist, $file);
}
# replace the old list with the new list
set_list ("out_files", @newlist);
# create "${all_txt_files_list}"
my $tfl = "";
foreach my $pg (@list)
{
next if( $pg =~ /seminar/i );
$tfl .= "
){kind=logo}
){kind=spacer}
){kind=small}
){kind=small}
){kind=small}
){kind=small}