Sessions beenden (Perl)

[Christian Kruse]

Hallo Markus,

[...] wobei die SessionID der Hashname, [...]

Oha, das wuerde ich mir ja überlegen.
warum das? Kannst du mir das genauer erklären?

Ich würde nicht irgendwelche Variablen in den globalen Namensbereich
importieren wollen, nein, wirklich nicht.

Jetzt frage ich mich aber, wie ich es am besten realisieren
kann, dass Sessions nach einer gewissen Zeit gelöscht werden?

Die Cleanup-Routine
Wie würde diese aussehen?

use contant SESSION_TIMEOUT => 5 * 60;

sub new_session {
  # blahr
  cleanup();
}

sub destroy_session {
  # blahr
  cleanup();
}

sub cleanup {
  my $time = time;

opendir DIR,'sessiondir' or die $!;
  my @session_files = grep /^perlsess_/, readdir DIR;
  closedir DIR;

foreach my $sess_file (@session_files) {
    unlink('sessiondir/'.$sess_file) if (stat('sessiondir/'.$sess_file))[9] < $time + SESSION_TIMEOUT;
  }

}

Grüße,
 CK