cgi::session problem (Perl/CGI)

[thread]467[/thread]

cgi::session problem

tina

2005-03-24 15:17

User since
2005-01-10
5 Artikel
BenutzerIn
[default_avatar]

hallo,

habe folgendes Test Skript:

Code: (dl )

#!/usr/bin/perl
use CGI;
use CGI::Session;
my $cgi = new CGI;
my $sid = $cgi->param('p');

if (defined $sid) {
my $session = $session = new CGI::Session("driver:File", $sid, {Directory=>"/tmp"});
$sid = $session->id();
print "Content-Type: text/html\n\n";
print "<HTML><BODY><H1>$sid</H1></BODY></HTML>";
print "in if";
}
else {
my $session = $session = new CGI::Session("driver:File", undef, {Directory=>"/tmp"});
$sid = $session->id();
print "Content-Type: text/html\n\n";
print "<HTML><BODY><H1>$sid</H1></BODY></HTML>";
print "in else";
}

Beim Aufruf mit aktueller ID wird trotzdem einen neue erzeugt.
Diese Problem habe ich auch schon bei anderen gefunden, aber leider ohnen Lösung.

1)
http://localhost/cgi-bin/session.pl
=>e74a632c6d85000db1fb1453e27d6978
2)
http://localhost/cgi-bin/session.pl?p=e74a632c6d85000db1fb1453e27d6978
=>d4d649c623dce8284b914e26269c58de

???

thx
tina

ptk

2005-03-24 15:33

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Hier geht es (von der Kommandozeile). Werden ueberhaupt Session-Dateien in /tmp abgelegt (cgisess_<sessionid>).

tina

2005-03-24 17:19

User since
2005-01-10
5 Artikel
BenutzerIn
[default_avatar]

Der Fehler steckte in der Verzeichnissangabe.

Für win:
my $session = $session = new CGI::Session("driver:File", undef, {Directory=>'C:\tmp\sessions'});

Für *nix/linux:
$session = new CGI::Session(undef, undef, {Directory=>'../tmp/sessions'});

Die Pfade müssen existieren!

g
tina

ptk

2005-03-24 19:45

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Um kompatibel zu bleiben, koennte man wahrscheinlich auch

Code: (dl )

1
2

use File::Spec;
$tempdir = File::Spec->catdir(File::Spec->tmpdir, "sessions");

schreiben.

Strat

2005-03-25 12:39

User since
2003-08-04
5246 Artikel
ModeratorIn

nebenbei: wenn du eh schoen mit lokalen variablen arbeitest, moechte ich dir

Code: (dl )

1
2

use strict;
use warnings;

ans herz legen... das haette dir z.B. den fehler mit

Code: (dl )

my $session = $session = ...

gezeigt...

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

View all threads created 2005-03-24 15:17.