Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re^3: CGI::App session params losing values between redirects

by samtregar (Abbot)
on Feb 14, 2009 at 21:02 UTC ( #743867=note: print w/replies, xml ) Need Help??

in reply to Re^2: CGI::App session params losing values between redirects
in thread CGI::App session params losing values between redirects

What's up with the -domain stuff? I think that could be your problem. Try removing it or replacing it with something static. Also, check that the clock on your webserver isn't more than 8h off (I've seen it happen!) since you're setting a pretty short expiration.

Are you sure you don't have a cgiapp_init() defined in one of your sub-classes? Maybe add a warn() in the super class one and see that it actually prints when you run both sub-classes.


  • Comment on Re^3: CGI::App session params losing values between redirects

Replies are listed 'Best First'.
Re^4: CGI::App session params losing values between redirects
by bradcathey (Prior) on Feb 15, 2009 at 13:53 UTC

    Thanks Sam.

    Two questions:

    1. What would something "static" look like for -domain or should I just kill the attribute?
    2. Dumb question of the day: so in any given instance, I can only have one cgiapp_init? I.e., one in my working module and one in the Super will overwrite each other? Makes perfect sense. Unfortunately, that's not what's happening here. But good to know. Duh!

    "The important work of moving the world forward does not wait to be done by perfect men." George Eliot
      1. "" - static means a non-dynamic value, something fixed.

      2. You can have multiple, but have to call up the tree from your sub-class: $self->SUPER::cgiapp_init(). This is how inheritence works in Perl - if you override a base class method you have the option of calling it with SUPER::, or not. Often you need to put some thought into the right place to call it - before your sub-class does its thing or after. If they're both modifying the object's state this can be critical to getting it to do what you want.


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://743867]
[Discipulus]: why perl -e 'print q(\'a string\'),"\n"' gives -bash: syntax error near unexpected token `)' ??
[Discipulus]: i'm not escaping correctly?
[moritz]: Discipulus] iirc bash doesn't let you escape ' with \
[moritz]: not inside a single-qouted string at least
[moritz]: echo 'a'\''

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (9)
As of 2017-11-24 10:13 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (346 votes). Check out past polls.