CGI::Session - erstellt Sessions nicht im temporären Verzeichnis (gelöst) (Fragen zu Perl-Modulen)

[thread]17261[/thread]

CGI::Session - erstellt Sessions nicht im temporären Verzeichnis [gelöst]

Tags: perl5 session Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+6 replies
GwenDragon

2012-03-24 10:50

User since
2005-01-17
14601 Artikel
Admin1

Ich verwende CGI::Session 4.48 mit StrawberryPerl 5.10.1.5 unter Windows 7.

Wenn ich mit CGI::Session->new() ohne dsn o. ä. aufrufe, wird ja per default der Driver CGI::Session::Driver::file verwendet, der laut Doku eigentlich im Temporären Verzeichnis des Nutzers die Sessiondaten ablegen sollte.

Quote
If you wish to specify a session directory, use the Directory option, which denotes location of the directory where session ids are to be kept. If Directory is not set, defaults to whatever File::Spec->tmpdir() returns.

Tut er nicht.
Wohlgemerkt liefert File::Spec->tmpdir() völlig korrekt das im System unter %TMP% abgespeicherte Verzeichnis.
Da das Skript unter U:\Proj\Test\CGISession liegt, schreibt aber CGI::Session die Sessiondaten einfach unter U:\ anstatt unter C:\Users\PROJ~1\AppData\Local\Temp.

Kann das für Windows jemand nachvollziehen?
Last edited: 2012-03-24 13:10:31 +0100 (CET)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2012-03-24 14:21
  User since
  2005-01-17
  14601 Artikel
  Admin1
  Aus irgendeinem Grund vererbt der Webserver $ENV{TEMP} nicht an das CGI.
  
  //EDIT: Argggh, jeder Webserver udn gar jeder CGI-Starter wie suexec o. ä. macht es anders mit der Duchlässigkeit bei Umgebungsvariablen. Und manche Admins lassen $ENV{TEMP} oder $ENV{TMP} zu, andere wieder nicht.
  Wundervoll wenn sich dann Sessions von CGI::Session dann in \ des Laufwerks des Skriptes häufen und für jeden einsehbar sind.
  
  Was ich nicht verstehe, warum Mark überhaupt unter Windows folgendes macht:
  
  Code (perl): (dl )
  
  $self->{Directory} ||= File::Spec->tmpdir();
  
  und File::Spec tempir dann das:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  sub tmpdir { return $tmpdir if defined $tmpdir; $tmpdir = $_[0]->_tmpdir( map( $ENV{$_}, qw(TMPDIR TEMP TMP) ), 'SYS:/temp', 'C:\system\temp', 'C:/temp', '/tmp', '/' ); }
  
  Sowas schlägt dann doch als CGI oft fehl, dass das temporäre Verzeichnis erraten werden kann, wenn die Umgebungsvariablen fehlen.
  Kein Wunder, dass alles in \ landet. :(
  Last edited: 2012-03-24 14:37:09 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2012-03-24 15:05
  
  User since
  2005-01-17
  14601 Artikel
  Admin1
  
  Da hilft nur eins, Projekte durchforsten ob irgendwo CGI::Session mit dem Driver fiel verwendet wird und dann überprüfen, ob das Verzeichnis gesetzt ist oder das temporäre gefunden werden kann.
  
  Vielleicht hilft ja mein Thread hier den Nächsten, die über solche Sessiondateien im Rootverzeichnis des Laufwerks unter Windows stolpern.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- GwenDragon
  
  2012-03-25 10:22
  User since
  2005-01-17
  14601 Artikel
  Admin1
  Wer jetzt noch nicht weiß wie das mit der Sessiondatei funktioniert, ein kurzes Schnippel:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  my $tempdir = $ENV{TMP} || $ENV{TEMP} ||"$ENV{DOCUMENT_ROOT}/cgi-bin/tmp"; # Session einlesen (benutzt per Default bei undef driver:file) my $session = CGI::Session->load(undef, undef, {DIRECTORY => $tempdir}) or die CGI::Session::errstr; if ($session->is_expired) { } elsif ($session->is_empty) { } else { #oder neue Session erzeugen $session = session->new(); }
  
  Last edited: 2012-03-25 10:29:38 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - rosti
    
    2012-03-25 20:04
    
    User since
    2011-03-19
    3247 Artikel
    BenutzerIn
    
    Nur mal interessehalber: Wieviele Bytes hat denn so eine Sessiontable, bzw. was kommt denn da alles rein?
    - GwenDragon
      
      2012-03-26 09:15
      
      User since
      2005-01-17
      14601 Artikel
      Admin1
      
      Nur ein paar zu merkende Daten für Umfragen. Da reicht ein Flatfile.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2012-03-24 10:50.