[-
use CGI qw/:standard/;
use CGI::Cookie;
$escmode = 4;
require "$ENV{CGI_BIN}/PalmCGI.pm";
#######################
# Page Description
# Serve links/content based on wsp value.
# If no value is provided, then show default page.
#
# Where
# wsp = wireless service provider's abbreviation
#
# Sample
# mobile.palm.com/index.epl?wsp=vzw --> Verizon
# or
# mobile.palm.com?wsp=vzw --> Verizon
# or
# mobile.palm.com --> Palm
#
#######################
#######################
#User Defined Variables
# ""=generic Palm
# vzw=Verizon
#
#END-User Defined Variables
###########################
########################### APPLICATION LOGIC ###########################
########################
#Get URL based variables
my $devUsrAgt = $ENV{HTTP_USER_AGENT};
my $query = new CGI;
$wsp = $query->url_param('wsp');
$devOs = "";
if ($devUsrAgt =~ m/MSIE/ && ($devUsrAgt =~ m/Windows CE/ || $devUsrAgt =~ m/PPC/)) {
# Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320
$devOs = "winPpc";
} else {
$devOs = "palmOs";
}
########################
#SUBROUTINES
##DEBUGGING CODE
#print header(-content=>"text/html");
-]
Palm® Mobile Portal
Palm® Mobile Portal
[+ my $p = new PalmCGI; $p->include_file("/us/includes/include-omniture.html"); +]