#!c:\perl\bin\perl.exe

$browser = $ENV{'HTTP_USER_AGENT'};

($agentPart1, $agentPart2) = split(/ /, $ENV{'HTTP_USER_AGENT'});
($upBrowser, $upDevice) = split(/-/, $agentPart1);

($phone) = "Not in Database!  Please email ryang\@trideja.com" ;
if ( $upDevice eq UPG1 ) { ( $phone = "UP.Simulator" ) }
if ( $upDevice eq MO01 ) { ( $phone = "Motorola i1000plus" ) }
if ( $upDevice eq MCC6 ) { ( $phone = "Motorola StarTAC 7860W" ) }
if ( $upDevice eq MCC9 ) { ( $phone = "Motorola Talkabout V8162" ) }
if ( $upDevice eq MCCA ) { ( $phone = "Motorola StarTAC 7868W" ) }
if ( $upDevice eq MCCC ) { ( $phone = "Motorola Talkabout V2267" ) }
if ( $upDevice eq NK00 ) { ( $phone = "Nokia 6180/6185" ) }
if ( $upDevice eq QC12 ) { ( $phone = "Qualcomm QCP-1900 or QCP-2700" ) }
if ( $upDevice eq QC31 ) { ( $phone = "Qualcomm QCP-860 or QCP-1960" ) }
if ( $upDevice eq QC32 ) { ( $phone = "Qualcomm QCP-2760" ) }
if ( $upDevice eq SC02 ) { ( $phone = "Samsung SCH-8500" ) }

print "Content-type: text/x-hdml","\n\n";
print "<HDML VERSION=\"3.0\" PUBLIC=TRUE MARKABLE=TRUE TTL=0>";
print "<DISPLAY>";
print "<wrap>$upDevice:$phone";
print "</DISPLAY>";
print "</HDML>";