#!/usr/local/bin/perl sub makehtml { local ($file, $title, $desc) = @_; print "Working on \"$file\" ($title)\n"; if (!open (OUT, ">$file")) { warn "Couldn't open file: $!\n"; next LINE; } print OUT "\n"; print OUT "\n"; print OUT "$title\n"; print OUT "\n"; print OUT "\n"; print OUT "

$title

\n"; $desc =~ s/(Computer Science|CS)\s*([0-9]+)/$1 $2<\/A>/ig; $col = 0; foreach $word (split('\s+', $desc)) { if ($word =~ /[.!?:]['")]*$/) { $word .= " "; } $word .= " "; if ($word =~ /:.* $/) { print OUT "\n"; print OUT "

\n"; $col = 0; } if ($col + length($word) > 75) { print OUT "\n"; $col = 0; } $col += length($word); print OUT $word; } print OUT "\n"; print OUT "

\n"; print OUT "Return to the Computer Science Home Page\n"; print OUT "\n"; print OUT "\n"; close OUT; } $file = ""; LINE: while (<>) { if (/^___(.*)___$/) { if ($file ne "") { &makehtml($file, $title, $desc); } $file="$1.html"; $title=<>; chop($title); $desc = ""; next LINE; } $desc .= $_; } if ($file ne "") { &makehtml($file, $title, $desc); }