Permalink
Fetching contributors…
Cannot retrieve contributors at this time
executable file 11 lines (7 sloc) 274 Bytes
#perl -n
# /a name="(.+?)"/ && print $1' index.html | sort -u |
chomp;
print "\t<LI> <OBJECT type=\"text/sitemap\">\n";
print "\t\t<param name=\"Keyword\" value=\"$_\">\n";
print "\t\t<param name=\"Local\" value=\"index.html#$_\">\n";
print "\t\t</OBJECT>\n";