# i have all the correct headers use filefind, /opt/bin/perl bla bla
$jscriptdir = "/home/javascript/";
$output = "/home/web/foo/index.htm";
$reading = "/home/javascript/jumper.js";
# Open file, match comment string, write to html
open(JS,"<$reading") or die "Can't Open $reading: $!";
open(NEW,">$output") or die "Can't Open $output: $!";
print NEW "Comment Extractor\n";
print NEW "\n";
print NEW "Comment Extractor
\n";
print NEW "
\n";
$script_title = rindex($reading, "/");
print NEW substr($reading, $script_title+1);
while ()
{
if ($_ =~ /\*\*/) {
print NEW substr($_,4) . "
";
}
}
print NEW "