#!/usr/bin/perl

# Arthur Maas juni 2009
# CV Onderdelen

print "Content-type: text/html\n\n";

# Laatste succesvolle zoekopdrachten
$log = "/srv/home/onderdelen-zoekencom/domains/onderdelen-zoeken.com/htdocs/www/log.txt";

open (LOGFILE,"$log") || die "Can't Open $log: $!\n";
@LOGLINES=<LOGFILE>;
close(LOGFILE);
$LOGSIZE=@LOGLINES;
for ($t=0;$t<=$LOGSIZE;$t++) {
chop $LOGLINES[$t];
print "<A HREF=\"/onderdelen.cgi?s=$LOGLINES[$t]\">$LOGLINES[$t]</A><BR>\n";
                               }
exit;