#!/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;
####
PACKHAM,Staeven,MELBOURNE,3011,
JACKSON,Shane,MELBOURNE,3004,
PADDLE,Ben,MOONEE PONDS,3053,C
RAHIM,Stuart,MELBOURNE,3000,C
LAI,Bernard,MELBOURNE,3039,
BAIRD,Michael,MELBOURNE,2073,
FAIRSERVICE,Daniel,MELBOURNE,3000,N
GAKOVIC,D,MELBOURNE,3004,
MALCOLM,Raymond,MASCOT,2060,X
HALEY,Peter,MIRANDA,2640,
WALKER,Richard,MALVERN,3150,N
HALL,David,MELBOURNE,3002,
VALLAK,Simon,MELBOURNE,3043,
BALLANTYNE,Anne,MELBOURNE,3000,C
BALLER,Sarah,MELBOURNE,3000,C