#!/usr/bin/perl
print "content-type: text/html\n\n
";
print " DEEEalers
";
print "\n
";
print " Dealers Listing
";
print "\n
";
print "| surname |
";
print "given | "
;
print "suburb | "
;
print "postcode |
|---|
";
open (names,"/var/www/cgi-bin/data/dealers.txt
");
while ($aline = ) {
chomp($aline);
@fields = split(/,/,$aline);
$surn = @fields[0];
$given = @fields[1];
$suburb = @fields[2];
$pcode = @fields[3];
print "";
print "| $surn
| ";
print "$given
| ";
print "$suburb
| ";
print "$pcode
| ";
print "
"
;
}
print "
\n
";
print "\n
";
exit;