CGI::Session | Session auffrischen bei Driver file (alte Daten behalten) (Fragen zu Perl-Modulen)

[thread]18326[/thread]

CGI::Session | Session auffrischen bei Driver file (alte Daten behalten)

Tags: perl5 session CGI::Session Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+3 replies
GwenDragon

2013-05-17 18:13
User since
2005-01-17
14790 articles
Admin1
Ich steh grad auf dem Schlauch und bin schon auf CPAN gewesen.
In PHP gibt es ja die Möglichkeit eine Session mit den alten Daten neu zu starten.
Das wird mit session_regenerate_id() gemacht.

Wie kann ich mit CGI::Session die Session auffrischen? Geht das überhaupt, da beim Driver file doch die Session-ID an den Dateinamen gebunden ist?

Oder muss ich das per Hand machen?
Also so:
1. Session flush()
2. über dataref() die Daten als Hash auslesen
3. Session delete()
4. Session new()
5. über dataref alten Hash zuweisen

ich empfinde das als ziemlich unpraktisch. Auch wenn ich ein Extra-Modul erstelle und dann von CGI::Sessio erbe.

HTTP::Session hat ja mehr Abhängigkeiten als CGI::Session.

Und das ist wäre ja auch möglich
Code: (dl )

1 2 3

$sess->dataref->{_SESSION_ID} = $sess->_id_generator->generate_id( $sess->{_DRIVER_ARGS},'');
http://permalink.gmane.org/gmane.comp.lang.perl.mo...

Oder weiß jemand noch ne Lösung? Oder ein Modul?
Ihr dürft mich auch ruhig lazy nennen, ich habe schon rumgesucht im Web :(

//EDIT: Wer wissen will, warum die ID erneuern: Sicherhheitsbedürfnis wegen Schutz gegen Sessionfixation.
Last edited: 2013-05-17 18:24:23 +0200 (CEST)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2013-05-18 13:32
  User since
  2005-01-17
  14790 articles
  Admin1
  Quick&Dirty. Ich habe jetzt mal das genommen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  sub regenerate_session_id { my $sess = shift; $sess->dataref->{_SESSION_ID} = $sess->_id_generator->generate_id( $sess->{_DRIVER_ARGS},''); $sess->_set_status($sess->STATUS_MODIFIED); $sess->flush(); return $sess->dataref->{_SESSION_ID}; }
  
  Das schreibt mir eine neue Session-ID, behält die alten Daten und erzeugt eine neue Sessiondatei.
  
  //EDIT:
  Ach nee, die alten Sessions bleiben dann immer noch gültig und alte Sessiondateien zurück. Also keine Lösung.
  Last edited: 2013-05-18 14:13:09 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2013-05-18 15:00
  
  User since
  2005-01-17
  14790 articles
  Admin1
  
  Da bleibt mir nur wohl übrig, das zu machen:
  
  Quote
  1. Session flush()
  2. über dataref() die Daten als Hash auslesen
  3. Session delete()
  4. Session new()
  5. über dataref alten Hash zuweisen
  
  Ich wüsst' sonst keine Lösung.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2013-05-17 18:13.