Art of Mobile

#!/usr/local/bin/perl use strict; use Mobile::UserAgent; my $uaobj = new Mobile::UserAgent(); #my $useragent = 'Nokia6600/1.0 (4.09.1) SymbianOS/7.0s Series60/2.0 Profile/MIDP-2.0 Configuration/CLDC-1.0'; #my $uaobj = new Mobile::UserAgent($useragent); if ($uaobj->success()) { my $out='Vendor: ' . $uaobj->vendor() . "
\n"; $out.='Model: ' . $uaobj->model() . "
\n"; $out.='Version: ' . $uaobj->version() . "
\n"; $out.='Series60: ' . $uaobj->isSeries60() . "
\n"; &printWml($out); } else { &printHtml("Connecting Client is not a mobile user-agent \n"); } sub printWml { my $string= shift; print "Content-Type: text/vnd.wap.wml\r\n\r\n"; print <

$string

Test script by Art of Mobile

EOFWML } sub printHtml{ my $string= shift; print "Content-Type: text/html\r\n\r\n"; print <

Art of Mobile

$string

EOFHTML }