Thread Häufige Weiterleitung bei Logout und CGI::Session (11 answers)
Opened by Max_Perlbeginner at 2016-10-21 20:34

GwenDragon
 2016-10-22 19:50
#185524 #185524
User since
2005-01-17
14773 Artikel
Admin1
[Homepage]
user image
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 )
1
2
3
4
5
6
7
8
9
10
11
12
13
14

*{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 Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View full thread Häufige Weiterleitung bei Logout und CGI::Session