sub getcookie{
	use Crypt::RC4;
	my $passphrase = "*****************";
	my $cookiename = uc(shift);
	if($cookiename eq ""){
	          return 0
	}
	my $usercookie = $query->cookie($cookiename);
	my %hashreturn;
	if($usercookie eq ''){
		return 0
	}
	
	$usercookie = RC4( $passphrase, $usercookie );
	if ($usercookie){
		my @tempcookie = split(':',$usercookie);
		foreach my $cookieinfo (@tempcookie){
			$cookieinfo =~ /^(.*?)=(.*)/;
			my $value1 = $1;
			my $value2 = $2;
			$hashreturn{$value1} = $value2;
		}
	}
 	
 	return (1,%hashreturn);
}