#!/usr/local/bin/perl5
use Worldparts;
$client=$ENV{'QUERY_STRING'};
$dir="/usr/home/fastnet/www/htdocs/scripts/";
unshift (@INC,"$dir");
print "Content-type: text/html \n\n";
%var=Worldparts::get_client($client);
$buttonfile="$var{'dlr_dir'}/buttons.dat";
#print $buttonfile;
open(BUTTONS,$buttonfile);
print <<"EOF";
Navagation Menu
EOF
$colcnt=0;
while(){
$colcnt++;
chomp();
($link,$image,$tgt,$alt)=split(/,/,$_);
print" | ";
print("") if ($colcnt == "6");
}
print"
";