# Index my Jaiku collection for the WWW
# Jaiku files must be specially formatted for this script to work
print "\n\n";
print "Jaiku Index\n\n\n\n";
print "Jaiku Index
";
print "
\n\n\n";
$state = 0;
while(<>) {
if ($ARGV ne $oldargv) {
$oldargv = $ARGV;
$cnt=0;
}
if($state == 1) {
$titlekey = $title = substr($_,0,length($_)-1);
$titlekey =~ tr/a-z(")/A-Z/d;
$titlekey =~ s/^(A )|^(An )|^(The )//i;
$title =~ s/"//g;
$title =~ s/
$/ .../;
$title =~ s/(^(A )|^(An )|^(The ))(.*)/$5, $1/i;
$jaiku{$titlekey} = "- " . $title . "\n";
$state = 0;
} elsif(substr($_,0,15) eq "
- \n
\n";
print "Copyright 1994, 1995 Jack Holt
\n";
print "(I would say, \"This index was generated by an ugly ";
print "perl script";
print ",\" but all perl scripts are inherently beautiful.)\n";
print "\n\n";