#!/usr/bin/perl
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
open(OUTFILE, ">results.html") or die "Can't write to result.html: $!\n";
print OUTFILE "";
print OUTFILE "Results: External";
print OUTFILE "";
print OUTFILE "";
print OUTFILE "";
print OUTFILE "";
print OUTFILE "| 1 | ";
print OUTFILE "2 | ";
print OUTFILE "3 | ";
print OUTFILE "4 | ";
print OUTFILE "
";
open (DB,"ext.log") or die("There was a problem opening the file.");
while ($entry=) {
@fields=split(/ /,$entry);
print OUTFILE "";
print OUTFILE "| Edit Record | ";
print OUTFILE "$fields[0] | ";
print OUTFILE "$fields[1] | ";
print OUTFILE "$fields[2] | ";
print OUTFILE "$fields[3] | ";
print OUTFILE "
";
}
close DB;
print OUTFILE "
";
print OUTFILE "";
print OUTFILE "";
close OUTFILE;