#!/usr/local/bin/perl
BEGIN{unshift(@INC,"/usr/local/www/htdocs/pcworldlinks/cgi-bin/")};
use Cart;
$path="/usr/local/www/htdocs/pcworldlinks/cgi-bin/DIST/";
%ele=Cart::cgiparse;
if(!($ele{dist})){$dist=$ENV{'QUERY_STRING'};}else{$dist=$ele{dist};}
%var=Cart::get_client($dist,$path);
print "Content-Type: text/html\n\n";
if ($ele{dist}=~ /[guestmember]/i){
print <<"EOF";
Welcome to Pro Celebrity Golf & Travel
<![CDATA[
You need a frames capable browser to view this page.
]]>
EOF
}else{
print <<"EOF";
$var{title}
<![CDATA[
You need a frames capable browser to view this page.
]]>
EOF
}