| Boysenberry Payne 2005-02-18, 3:56 pm |
| I'm moving from PHP to mod_perl. What a jump...
Normally in php it's as simple as:
session_start();
Then depending on your settings the session is kept in a cookie
or in the url.
I've looked into Apache::Session a bit, also Session (which is a=20
wrapper for Apache:Session.)
I set it up locally using my mysql database, but I'm getting now where=20=
fast.
Here is the code:
my $cookie =3D $r->header_in( 'Cookie' );
$r->print( "Content Type: text/plain\n\n" );
$cookie =3D~ s/SESSION_ID=3D(\w+)/$1/;
my %session;
eval {
tie %session, 'Apache::Session::MySQL', $cookie,
{ DataSource =3D> 'dbi:mysql:boysie_habitat2',
UserName =3D> 'boysie_human',
Password =3D> "h\@b!T",
LockDataSource =3D> 'dbi:mysql:boysie_habitat2',
LockUserName =3D> 'boysie_human',
LockPassword =3D> "h\@b!T",
};
};
if( $@ ) {
$r->print( "Couldn't tie session: $@" );
}
I get the following error:
null: Use of uninitialized value in substitution (s///) at=20
/Users/WebRoot/perl/index.pl line 16.
I've tried printing out the cookie to see it and get the same error for=20=
anything I try to print it with.
It seems like it's being recorded ok in mysql. I get the id fine, but=20=
the a_session column seems to be funky.
I'll copy an example below:
---------------------------------------
=05=06=03=01
e16d4be4a2f73b323184e8da1cef694d=0B_sess
ion_id
---------------------------------------
You can't see it in the copy but there are a bunch of squares (I guess=20=
mac os x's new line characters.)
Any reason why this is so difficult to get working (besides my=20
inexperience...)
Thanks,
Boysenberry
|