#Desc: This file creates the index page for the WML-files (this page ;-)
In here you can find the sources for the pages on this site. This
service is meant as hint for the not so skilled wml users
but could also help me because you are encouraged to send me any ideas you
may have about this sources (e.g. how some things could be done in a
cleaner or more obvious way).
So, if you like it or not, especially if you want to use part of it,
be so kind and send me an e-mail.
My WML-Files
<: # WML-Files
open (FILE, 'find ~/WWW -name "*.wml" 2>/dev/null|')
|| die "can't open pipe\n";
my @files = ;
close (FILE);
chop @files;
foreach my $file (sort @files) {
if ($file !~ m!^/home/rhonda/WWW/(bi|test|pethsy)/!) {
open (FILE, "$file") || die "Sorry, you are not allowed to read ",
"$file \n";
@contens = ;
$contens = join ("", @contens);
($desc, $show) = $contens =~ /^#Desc: (.*?)(?:\s+(XXX)?)$/m;
($absolut) = $file =~ m|/home/rhonda/WWW(/.*)$|;
print "