#!/usr/local/bin/perl $level = 0; $headchar = "*?!@"; $baseurl = ""; $pagetitle = ""; $home = ""; $user = ""; open(INDEX,">$home/indexlist.txt"); print < $pagetitle ENDOFHEAD while(<>){ $new = ""; if(s/^&new//){ $new = "new:"; } if(/^([$headchar\&])\&*(?:(.+?)\&)?/){ $ancher = $1; $ancher = "_" if($ancher eq "&"); $label = $2; print STDERR "$ancher $label\n" if($ahcher eq "*"); $i = 0; while(/^[$headchar\&]\&{$i}/){ $i++; } while($i > $level){ print "
\n"; $level++; } while($i < $level){ print "<\/dl>\n"; $level--; } $label[$level] = $label; $i = 1;$label="$label[$i]"; while($i < $level){ $i++; $label = "$label:$label[$i]"; } print INDEX "$label\n"; s/^[$headchar]?\&*(?:(.+?)\&)?/
$new$ancher<\/a> /; } print; } while(0 < $level){ print "<\/dl>\n"; $level--; } close(INDEX); print < ENDOFHTML exit(0);