Sessions beenden (Perl)

[Markus Trusk]

Hi,

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

Also ehrlich gesagt verstehe ich jetzt die Problematik hierbei nicht?
zB $hd73gh58fgh43djkt{vorname} = 'markus';
   $hd73gh58fgh43djkt{wohnort} = 'wien';
Diese Zuweisungen passieren doch nur im Script, ohne das irgendjemand weiß, was da alles hinzugefügt wird oder ausgelesen wird?

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;
  }

}

Hmmm, das mit dem constant Modul muss ich mir noch genauer ansehen.

Markus Trusk.