Revision 5494f687
Von Sven Schöling vor fast 13 Jahren hinzugefügt
| SL/Auth.pm | ||
|---|---|---|
| 511 | 511 |
|
| 512 | 512 |
my $self = shift; |
| 513 | 513 |
|
| 514 |
my $cgi = $main::cgi; |
|
| 515 |
$cgi ||= CGI->new('');
|
|
| 516 |
|
|
| 517 |
$session_id = $cgi->cookie($self->get_session_cookie_name()); |
|
| 514 |
$session_id = $::request->{cgi}->cookie($self->get_session_cookie_name());
|
|
| 518 | 515 |
$session_id =~ s|[^0-9a-f]||g; |
| 519 | 516 |
|
| 520 | 517 |
$self->{SESSION} = { };
|
Auch abrufbar als: Unified diff
$::cgi entfernt.
Verfahren:
- Für alle Vorkommen von "my $cgi = $::cgi;":
ersetzt durch my $cgi = $::request->{cgi}->new({}) ersetzt
- Wenn in einer Datei alle my $cgi rausgefallen sind auch use CGI entfernt.
- Initialisierung von $::cgi in scripts und Dispatcher entfernt und in dei
Initialisierung von $::request eingebaut.
- cgi aus der Liste der kanonischen globals genommen.
Zu CGI:
- CGI::func und CGI->func sind beides valide Werte, sind aber intern buggy wie
Hölle. CGI:: erzeugt ein Dummyobjekt mit CGI->new, und klobbert damit
cookies. CGI-> ist noch schlimmer und ruft ${CGI}->{.cookies} auf.
- CGI->new({}) ist schneller als CGI->new(''), deshalb habe ich diese version genommen.
Auf meinem Rechner schafft die erste Version etwa 32k/s, die zweite 28k/s.
- CGI kompiliert benötigte Funktionen beim ersten Aufruf über AUTOLOAD.
- cookie benötigen ein $cgi Objekt.