Revision 5494f687
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
bin/mozilla/ar.pl | ||
---|---|---|
215 | 215 |
my $form = $main::form; |
216 | 216 |
my %myconfig = %main::myconfig; |
217 | 217 |
my $locale = $main::locale; |
218 |
my $cgi = $main::cgi;
|
|
218 |
my $cgi = $::request->{cgi};
|
|
219 | 219 |
|
220 | 220 |
my ($title, $readonly, $exchangerate, $rows); |
221 | 221 |
my ($taxincluded, $notes, $department, $customer, $employee, $amount, $project); |
... | ... | |
879 | 879 |
my $form = $main::form; |
880 | 880 |
my %myconfig = %main::myconfig; |
881 | 881 |
my $locale = $main::locale; |
882 |
my $cgi = $main::cgi;
|
|
882 |
my $cgi = $::request->{cgi};
|
|
883 | 883 |
|
884 | 884 |
my ($transdate, $closedto); |
885 | 885 |
|
... | ... | |
1332 | 1332 |
my $form = $main::form; |
1333 | 1333 |
my %myconfig = %main::myconfig; |
1334 | 1334 |
my $locale = $main::locale; |
1335 |
my $cgi = $main::cgi;
|
|
1335 |
my $cgi = $::request->{cgi};
|
|
1336 | 1336 |
|
1337 | 1337 |
my ($customer, $department); |
1338 | 1338 |
my ($jsscript, $button1, $button2, $onload); |
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.