Browser Cookie Set/Get Issue

[Sucpraran]

We are using Cookies in our application to track user session. It
works 95% but fails in occations. We could not find any pattern for
this. Below is the code to Set and Get cookies. In the occations when
it fails, we get nothing in getCookie as if cookie is not set. We
verified Browswer Setting and all of them accept cookies. We try to
find a pattern with Broswer types/versions and OS types/versions but
could not come with a pattern.

This happens on those particular PC. The same user might be able to
login by logging in from different PC. So far no clue on what could be
the error. Any suggestion on where to look at.

Thanks

---------------------------------------------------------------------
--------------------------
<Begin: Perl Code to Set/Get Cookie Cookie Name: CSSession>
sub setCookie
{
my $name = $_[0] ;
my $value = $_[1] ;
my $Time = $_[2] ;
my %MonthNames = (1=>"Jan", 2=>"Feb", 3=>"Mar", 4=>"Apr",
5=>"May", 6=>"Jun", 7=>"Jul", 8=>"Aug", 9=>"Sep", 10=>"Oct",
11=>"Nov", 12=>"Dec") ;
my %Wdays = (0=>"Sunday", 1=>"Monday", 2=>"Tuesday",
3=>"Wednesday" , 4=>"Thursday", 5=>"Friday", 6=>"Saturday") ;
my $secure = " secure" ;
my $seconds = time() + ($Time*60) ;
my @GMtime = gmtime($seconds ) ;
my $Cyear = $GMtime[5] + 1900 ;
my $Cmonth = $GMtime[4] + 1 ;
my $expiration = sprintf("$Wdays {$GMtime[6]}, %02d-$MonthNames
{$Cmonth}-%02d %02d:%02d:%02d GMT", $GMtime[3], $Cyear, $GMtime[2],
$GMtime[1], $GMtime[0]) ;
my $path = "" ;
my $domain = "" ;
my $cookiestr = "Set-Cookie: $name=$value; expires=$expira tion" ;
return "$cookiestr " ;
}
sub getCookie
{
my ($GlobalPtr) = @_ ;
my (@rawCookies) = split (/; /,$ENV{'HTTP_COO KIE'});
$GlobalPtr->{'INCOOKIE'} = $ENV{'HTTP_COOK IE'} ;
foreach(@rawCoo kies)
{
($key, $val) = split (/=/,$_);
$GlobalPtr->{$key} = $val;
}
}
<End: Perl Code to Set/Get Cookie>

<JavaScript function to verify the cookie properties of browser>
<script language="JavaS cript1.3">
<!--
function GetSessionID (name) {
var arg = name + "=";
var alen = arg.length;
var clen = document.cookie .length;
var i = 0;
while (i < clen)
{
var j = i + alen;
if (document.cooki e.substring(i, j) == arg)
return getSessionVal (j);
i = document.cookie .indexOf(" ", i) + 1;
if (i == 0) break;
}
return null;
}
function getSessionVal (offset) {
var endstr = document.cookie .indexOf (";", offset);
if (endstr == -1)
endstr = document.cookie .length;
return unescape(docume nt.cookie.subst ring(offset, endstr));
}
function focusAt(formnam e, felement){
window.document .forms[formname].elements[felement].focus();
}
function CheckSettings() {
var agt = navigator.userA gent.toLowerCas e();
var appname = navigator.appNa me.toLowerCase( ) ;
var is_major = parseInt(naviga tor.appVersion) ;
var is_minor = parseFloat(navi gator.appVersio n);
var SessionID = GetSessionID('C SSession') ;
var clen = 0 ;
__redirectflag_ _
if(SessionID != null) {
clen = SessionID.lengt h ;
document.LOGINF ORM.userID.focu s();
}
else {
if(RedirectFlag == 0) {
document.locati on.href="__noco okieurl__" ;
}
}
}
//-->
</script>