I tried using the CGI::Session Library but for some reason my code won’t keep a persistant session … this is using Perl Moose for OOP, and is using Moose builders to instantiate the _cgi and _sss (session) parameters of a My::Session object…<\/p>\n
UPDATED CODE<\/strong><\/p>\n My::Role::PersistantData<\/strong><\/p>\n My::Session<\/strong><\/p>\n main.pl<\/strong><\/p>\n It’s pretty weird because the first time I run this I get an actual CGISESSION ID and I am able to carry it over on a page refresh…<\/p>\n however if I load the page again, suddenly the $sss (session) comes back as undefined, when it should return a new Session object:<\/p>\n for some reason $sss is coming back as undefined, which means it didnt initiate a new Session. A few tweaks to my code revealed this error:<\/p>\n I also snooped around in CGI::Session.pm and found where this error was being thrown at, I guess it’s not able to parse _DATA or even read it…because of some strange characters… “\/>”<\/p>\n CGI::Session.pm<\/strong><\/p>\n Any idea why this isnt working?<\/p>\n For some reason you can’t use Answer found here and here<\/p>\n Removing Dumper and HTML output fixed this problem — kind of —<\/p>\n updated<\/strong><\/p>\n Apparently you have to use escapes<\/p>\n and that FINALLY resolves this problem.<\/p>\n Perl is a pain!<\/p>\n<\/li>\n Most likely this is due to a different session cookie being sent (been there, hit that wall with head. HARD).<\/p>\n Please print the session cookie value being used to store the session initially as well as session cookie value supplied by subsequent request.<\/p>\n If they are indeed different, you have 2 options:<\/p>\n Investigate why different session cookie is sent by the browser in subsequent requests and fix that issue somehow.<\/p>\n I was never able to find conclusive answer but my app consisted of a frame with internal so I suspect it was due to that.<\/p>\n<\/li>\n If like me you can’t find the root cause, you can also work around this.<\/p>\n My workaround: explicitly STORING the original session cookie value as a form variable being passed around 100% of your code pieces.<\/p>\n Then re-initialize session object with correct cookie value before your server side code requests session data.<\/p>\n Not very secure, annoying, hard to get right. But works. I wouldn’t recommend it except as a uber-last-resort hack<\/p>\n<\/li>\n<\/ul>\n<\/li>\n Perhaps you could try (or at least look at the code to see how it works) for some stateful webapp module. I have used Continuity, very cool stuff.<\/p>\n<\/li>\n<\/ol>\n","protected":false},"excerpt":{"rendered":" I tried using the CGI::Session Library but for some reason my code won’t keep a persistant session … this is using Perl Moose for OOP, and is using Moose builders to instantiate the _cgi and _sss (session) parameters of a My::Session object… UPDATED CODE My::Role::PersistantData package My::Role::PersistsData; use Moose::Role; use namespace::autoclean; has ‘_cgi’ => ( […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-2857","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"_links":{"self":[{"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/posts\/2857","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/comments?post=2857"}],"version-history":[{"count":0,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/posts\/2857\/revisions"}],"wp:attachment":[{"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/media?parent=2857"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/categories?post=2857"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/tags?post=2857"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}package My::Role::PersistsData;\n\nuse Moose::Role;\nuse namespace::autoclean;\n has '_cgi' => (\n is => 'rw', \n isa => 'Maybe[CGI]', \n builder => '_build_cgi'\n );\n\n has '_sss' => (\n is => 'rw', \n isa => 'Maybe[CGI::Session]',\n builder => '_build_sss'\n );\n<\/code><\/pre>\n package My::Session;\n\n use Moose;\n use namespace::autoclean;\n with 'My::Role::PersistsData'; \n\n use CGI;\n use CGI::Session ('-ip_match');\n use CGI::Carp qw\/fatalsToBrowser warningsToBrowser\/;\n\n sub start{\n my($self) = @_;\n my $cgi = $self->cgi();\n $self->log(\"Session Started!\"); \n }\n\n\n sub cgi{\n my($self) = @_;\n $self->_cgi = $self->_build_cgi() unless $self->_cgi;\n return ($self->_cgi); \n }\n\n\n sub _build_cgi{\n my($self) = @_; \n my $cgi = CGI->new();\n\n if(!$cgi){\n #print \"mising cgi\"; \n }\n\n return ( $cgi );\n }\n\n\n sub _build_sss{\n my($self) = @_;\n my $cgi = $self->cgi(); \n\n my $sid = $cgi->cookie(\"CGISESSID\") || $cgi->param('CGISESSID') || undef;\n\n $self->log(\"Session ID Initial is: \".($sid?$sid:\"undef\"));\n\n my $sss = CGI::Session->new(undef, $cgi, {Directory=>'tmp'}) or die CGI::Session->errstr;\n\n\n\n my $cookie = $cgi->cookie(CGISESSID => $sss->id() );\n\n\n $self->log(\"Resulting Session ID is: \".$sid.\" cookie is: \".$cookie); \n\n print $cgi->header( -cookie=>$cookie );\n\n return ( $sss );\n }\n<\/code><\/pre>\nuse Data::Dumper; \n$Data::Dumper::Sortkeys = 1;\n\nuse CGI;\nuse CGI::Carp qw(fatalsToBrowser);\nuse My::Session;\n\n$| = 1;\n$, = \" \";\n$\\ = \"\\n
\";\n\n my $sss = My::Session->new(); \n $sss->start();\n print Dumper($sss);\n<\/code><\/pre>\n $sss = new CGI::Session(\"driver:File\", $sid, {Directory=>'\/tmp'})\n<\/code><\/pre>\nnew(): failed: load(): couldn't thaw() data using CGI::Session::Serialize::default:thaw(): couldn't thaw. syntax error at (eval 253) line 2, near \"\/>\" \n<\/code><\/pre>\n....\n $self->{_DATA} = $self->{_OBJECTS}->{serializer}->thaw($raw_data);\n unless ( defined $self->{_DATA} ) {\n #die $raw_data . \"\\n\";\n return $self->set_error( \"load(): couldn't thaw() data using $self->{_OBJECTS}->{serializer} :\" .\n $self->{_OBJECTS}->{serializer}->errstr );\n }\n<\/code><\/pre>\n\n
Data::Dumper<\/code> or other HTML tags with CGI::Session<\/code><\/p>\n $cgi->escapeHTML ( Dumper($session) );\n<\/code><\/pre>\n\n