Here's something clever I thought up the other day and decided to use on my new GishTeq website to spruce things up some.

What it does is generate a bulleted list of all the web pages as links in alphabetical order according to the title. Just add the EXEC-include (SSI) statement wherever and load it up for the surprise.

#!/usr/bin/perl -wT # # sitemap.pl #    Print a web site map as a bullet-list. Pages #    are listed alphabetically as links. # #    Copyright (c) GishTeq 2002-2003. #    All rights reserved. # #  URL:    http://www.gishteq.com #  E-mail: info@gishteq.com # use strict; use HTML::TokeParser; my @allfiles; my $ff; # This is the complete CGI-path to the directory. my $pathdir = "/home/users/kiffin-the-gish/public_html"; # This is the HTTP-path to the directory. my $htmlpath = "http://www.gishteq.com"; print "Content-type: text/html\n\n"; opendir(DX, $pathdir) or die "error: $!"; @allfiles = grep { $_ ne '.' and $_ ne '..' and ($_ =~ /\.html$/i) } readdir DX; closedir DX; my %map; foreach $ff (@allfiles) {   my $file = $pathdir . "/" . $ff;   my $p = HTML::TokeParser->new(shift||$file);   my $title = $ff; # Just in case.   # Try and extract the title, if possible.   if ($p->get_tag("title")) { $title = $p->get_trimmed_text; }   # In order for this to work, all titles must be unique!   $map{$title} = $ff; } print "<ul>\n"; for $ff (sort keys %map) # Sort by title. {   my $fname = $map{$ff};   # Alright, let's print 'em out.   print "<li><a href=\"$htmlpath/$fname\" title=\"Go to $fname\">$ff</a></li>\n"; } print "</ul>\n";

An example of it in action can be seen at the GishTeq sitemap page. Hope you like it. Feel free to use it as you see fit.