Ok so Iam working on this small mod_perl project. This project requires me to use cookies to maintain session info, but very small session info such as username,password,time of login. now usally I would do this
by just creating a string with a delimiter and using that as the cookies value. But as I was sitting there I realized
it would be really cool if I just serialized an array as my cookie value and then just used it on every sessions use. Now mind you I havent had much use for serializing data in perl so I might be wroung in the entire idea but here is some basic code to give an example as to what Iam doing.
use Storable qw(nfreeze thaw);
sub make_cookie {
return($q->cookie(
-name=>'sessionID',
-value=>unpack("H*",nfreeze(['1245','foo','foopass'])),
-expire=>'+10m',
-secure=>0
));
}
sub see_cookie {
return(@{thaw(pack("H*",$_[0]))});
}
I think that this idea should work, but Iam getting an error
from storable saying "Magic number checking on storable string failed etc etc ..". would anyone care to shed a little light on my situation?
lindex
/****************************/
jason@gost.net, wh@ckz.org
http://jason.gost.net
/*****************************/