Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re: Maintaining PHP session in PERL

by dpavlin (Friar)
on Feb 10, 2005 at 13:44 UTC ( #429711=note: print w/replies, xml ) Need Help??

in reply to Maintaining PHP session in PERL

It's quite simple:
#!/usr/bin/perl -w use strict; use PHP::Session; use CGI::Lite; use Data::Dumper; my $session_name = 'PHPSESSID'; # change this if needed print "Content-type: text/plain\n\n"; my $cgi = new CGI::Lite; my $cookies = $cgi->parse_cookies; if ($cookies->{$session_name}) { my $session = PHP::Session->new($cookies->{$session_name}); # now, try to dump _s_pod variable from session print "_s_pod:",Dumper($session->get('_s_pod')); } else { print "can't find session cookie $session_name"; }
Disclamer: I'm still not using PHP::Session in production, but this seem to work good enough for me.
Hum, should this example should go into module documentation?


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://429711]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2016-10-22 08:10 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (293 votes). Check out past polls.