Revision 5494f687
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| SL/Controller/DebugMenu.pm | ||
|---|---|---|
| 9 | 9 |
sub action_reload {
|
| 10 | 10 |
my ($self, %params) = @_; |
| 11 | 11 |
|
| 12 |
print $::cgi->redirect('controller.pl?action=FrameHeader/header');
|
|
| 12 |
print $::request->{cgi}->redirect('controller.pl?action=FrameHeader/header');
|
|
| 13 | 13 |
exit; |
| 14 | 14 |
} |
| 15 | 15 |
|
| ... | ... | |
| 17 | 17 |
my ($self, %params) = @_; |
| 18 | 18 |
|
| 19 | 19 |
$::lxdebug->level_by_name($::form->{level}, !$::lxdebug->level_by_name($::form->{level}));
|
| 20 |
print $::cgi->redirect('controller.pl?action=FrameHeader/header');
|
|
| 20 |
print $::request->{cgi}->redirect('controller.pl?action=FrameHeader/header');
|
|
| 21 | 21 |
return; |
| 22 | 22 |
} |
| 23 | 23 |
|
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.