Häufige Weiterleitung bei Logout und CGI::Session - #185524 (Perl/CGI)

GwenDragon

2016-10-22 19:50

User since
2005-01-17
14533 Artikel
Admin1

Lass das Original und überschreibe die Symboltablele von &CGI::Session::driver::file::_file einfach.
Nach dem use CGI::Session füge das ein (ungetestet):

Code (perl): (dl )

*{CGI::Session::driver::file::_file} = sub {
    my ($self,$sid) = @_;
    my $id = $sid;
    $id =~ s|\\|/|g;
 
        if ($id =~ m|/|)
    {
        return $self->set_error( "_file(): Session ids cannot contain \\ or / chars: $sid" );
    }
    $sid =~ /^(.*)$/;
    $sid = $1;
 
    return File::Spec->catfile($self->{Directory}, sprintf( $FileName, $sid ));
};

Geht's dann?

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel