Re: Failed attempt to flush CGI::Session parameters, huh ???

With all due respect and gratitude to the anonymous monk who responded above, I have now tried the following combinations to ascertain the issue here. None of them have been successful, as of yet. Neither $s->errstr(), nor $s->dump() have much to say for themselves. Only invoking my own handrolled ->log() method seems to give me any output. And the Data::Dumper output of the $self->{'s'} object reveals no error strings hiding in the hash. Any further wisdom available?

if(defined($self->{'s'})){
  # $self->{'s'}->flush() or $self->log('WARNING','Failed attempt to f
+lush session parameters for cgisess_' . $self->{'s'}->id()  . ' to th
+e file store: ' . $!);
  # $self->{'s'}->flush() or die 'Failed attempt to flush session para
+meters for cgisess_' . $self->{'s'}->id()  . ' to the file store: ' .
+ $!;
  $self->{'s'}->flush() or print STDERR 'Failed attempt to flush sessi
+on parameters for cgisess_' . $self->{'s'}->id()  . ' to the file sto
+re: ' . CGI::Ses
sion->errstr();
  # $self->{'s'}->flush() or print STDERR 'Failed attempt to flush ses
+sion parameters for cgisess_' . $self->{'s'}->id()  . ' to the file s
+tore: ' . $self->{'s'}->errstr();
}

$self->{'s'}->dump();
CGI::Session->dump();
$self->log('DEBUG','Our session in the end reads: ',$self->{'s'});
[download]

if( $lal && $lol ) { $life++; }

Comment on Re: Failed attempt to flush CGI::Session parameters, huh ??? Download Code

Replies are listed 'Best First'.
Re^2: Failed attempt to flush CGI::Session parameters, huh ??? by Anonymous Monk on Jul 02, 2009 at 02:46 UTC
Any further wisdom available? Please provide a short self-contained program which replicates your problem. Then, provide all the debug output from that program even if it isn't helpful (please include Dumper output of both CGI and CGI::Session object). Also provide module version information (use Devel::Modlist). This is the code for sub flush: sub flush { my $self = shift; # Would it be better to die or err if something very basic is wron +g here? # I'm trying to address the DESTORY related warning # from: http://rt.cpan.org/Ticket/Display.html?id=17541 # return unless defined $self; return unless $self->id; # <-- empty session # neither new, nor deleted nor modified return if !defined($self->{_STATUS}) or $self->{_STATUS} == STATUS +_UNSET; if ( $self->_test_status(STATUS_NEW) && $self->_test_status(STATUS +_DELETED) ) { $self->{_DATA} = {}; return $self->_unset_status(STATUS_NEW \| STATUS_DELETED); } my $driver = $self->_driver(); my $serializer = $self->_serializer(); if ( $self->_test_status(STATUS_DELETED) ) { defined($driver->remove($self->id)) or return $self->set_error( "flush(): couldn't remove session + data: " . $driver->errstr ); $self->{_DATA} = {}; # <-- removing all + the data, making sure # it won't be acce +ssible after flush() return $self->_unset_status(STATUS_DELETED); } if ( $self->_test_status(STATUS_NEW \| STATUS_MODIFIED) ) { my $datastr = $serializer->freeze( $self->dataref ); unless ( defined $datastr ) { return $self->set_error( "flush(): couldn't freeze data: " + . $serializer->errstr ); } defined( $driver->store($self->id, $datastr) ) or return $self->set_error( "flush(): couldn't store datastr: + " . $driver->errstr); $self->_unset_status(STATUS_NEW \| STATUS_MODIFIED); } return 1; } [download] If all else fails you can copy it into your program and add debug statements `sub CGI::Session::flush { package CGI::Session; ... warn "so far so good"; ... }` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Failed attempt to flush CGI::Session parameters, huh ???
by Anonymous Monk on Jul 02, 2009 at 02:46 UTC

Any further wisdom available?

Please provide a short self-contained program which replicates your problem. Then, provide all the debug output from that program even if it isn't helpful (please include Dumper output of both CGI and CGI::Session object). Also provide module version information (use Devel::Modlist).

This is the code for sub flush:

sub flush {
    my $self = shift;

    # Would it be better to die or err if something very basic is wron
+g here? 
    # I'm trying to address the DESTORY related warning
    # from: http://rt.cpan.org/Ticket/Display.html?id=17541
    # return unless defined $self;

    return unless $self->id;            # <-- empty session
    
    # neither new, nor deleted nor modified
    return if !defined($self->{_STATUS}) or $self->{_STATUS} == STATUS
+_UNSET;

    if ( $self->_test_status(STATUS_NEW) && $self->_test_status(STATUS
+_DELETED) ) {
        $self->{_DATA} = {};
        return $self->_unset_status(STATUS_NEW | STATUS_DELETED);
    }

    my $driver      = $self->_driver();
    my $serializer  = $self->_serializer();

    if ( $self->_test_status(STATUS_DELETED) ) {
        defined($driver->remove($self->id)) or
            return $self->set_error( "flush(): couldn't remove session
+ data: " . $driver->errstr );
        $self->{_DATA} = {};                        # <-- removing all
+ the data, making sure
                                                    # it won't be acce
+ssible after flush()
        return $self->_unset_status(STATUS_DELETED);
    }

    if ( $self->_test_status(STATUS_NEW | STATUS_MODIFIED) ) {
        my $datastr = $serializer->freeze( $self->dataref );
        unless ( defined $datastr ) {
            return $self->set_error( "flush(): couldn't freeze data: "
+ . $serializer->errstr );
        }
        defined( $driver->store($self->id, $datastr) ) or
            return $self->set_error( "flush(): couldn't store datastr:
+ " . $driver->errstr);
        $self->_unset_status(STATUS_NEW | STATUS_MODIFIED);
    }
    return 1;
}
[download]

sub CGI::Session::flush {
package CGI::Session;
...
   warn "so far so good";
...
}
[download]

[reply]
[d/l]
[select]