[-

   ################################################################################
   #
   #   http://www.palm.com/
   #   http://www.palm.com/index.html?cc='us'&cn='United%20States'&lg='en'&setDefault='n'
   #         cc         2 character country code abbrevation
   #         cn         HTML-encoded country name
   #         lc         2 character language code abbrevation
   #         setDefault unless set to 'n', redirect destination becomes visitor's new default home page
   #
   ################################################################################
   require "$ENV{CGI_BIN}/sensor.2007SEP25.pm";

   use CGI qw(standard);
   use CGI::Carp qw(fatalsToBrowser);
   use CGI::Cookie;
   
   %cookies = fetch CGI::Cookie;
   %languagepreferences;
   %parameters;
   $s = new palm::sensor2007SEP25;

   if ( CGI::param("cn") &&  CGI::param("cc") &&  CGI::param("lg") &&  CGI::param("setDefault")) {
		$cn = CGI::param("cn");
		$cc = CGI::param("cc");
		$lc = CGI::param("lg");
		$setDefault = CGI::param("setDefault");

		#replacing the single quotes from query string parameters
		$cc =~ s/'|"//g;
		$lc =~ s/'|"//g;
		$cn =~ s/'|"//g;
		$setDefault =~ s/'|"//g;

		if($setDefault eq "y"){			
			$s->indexSetCookie($cc, $lc, $cn);
		}else{
			$s->index($cc, $lc);
		}
   }
   elsif($cookies{'cc'} && $cookies{'lg'}){
		 $cc = CORE::lc($cookies{'cc'}->value);
		 $lc = CORE::lc($cookies{'lg'}->value);
		 $s->index($cc, $lc);
   }
   elsif($ENV{'HTTP_ACCEPT_LANGUAGE'}){
		$s->getccandlg(\%languagepreferences);
   }
   else{
	   $s->index("us", "en");
	   exit;
   }

-]