#!/usr/bin/perl use strict; use warnings; use feature 'say'; my @Excluded = ('/.well-known'); #if($ENV{'QUERY_STRING'} eq 'all') # { @Excluded = (); # } my $PathPrefix = '/home/gmtyiais/public_html/nitsche.mobi'; my @Directories = (''); my @FoundFiles = ('/'); # Show the source code of this perl script, if requested: if($ENV{'QUERY_STRING'} eq 'source') { print "Content-type: text/plain\n\n"; open(FILE, "<$ENV{'SCRIPT_FILENAME'}"); while() { print $_; } close(FILE); exit; } print "Content-type: text/html\n\n"; say ''; say ''; say ''; say ''; say 'Sitemap'; say ''; say ''; say ''; say ''; say '

Sitemap

'; say '

The following is the automatically generated sitemap.

'; if($ENV{'QUERY_STRING'} eq 'hide') { say '

[show .gif, .jpg, .png files]

'; } else { # say '

[hide .gif, .jpg, .png files]

'; } say ''; say '

Back to start page

'; # say '

'; # say 'valid HTML ✔'; # say 'valid CSS ✔'; # say '

'; say ''; say ''; exit; # http://perlmeme.org/faqs/file_io/directory_listing.html # https://perlmaven.com/perl-arrays # http://alvinalexander.com/perl/edu/qanda/plqa00007.shtml # http://www.perlmonks.org/?node_id=2482 # http://perldoc.perl.org/feature.html#The-'say'-feature # http://nitsche.mobi/sitemap.pl