Revision 5494f687
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| bin/mozilla/sepa.pl | ||
|---|---|---|
| 176 | 176 |
|
| 177 | 177 |
my $form = $main::form; |
| 178 | 178 |
my $locale = $main::locale; |
| 179 |
my $cgi = $main::cgi;
|
|
| 179 |
my $cgi = $::request->{cgi};
|
|
| 180 | 180 |
my $vc = $form->{vc} eq 'customer' ? 'customer' : 'vendor';
|
| 181 | 181 |
|
| 182 | 182 |
$form->{title} = $vc eq 'customer' ? $::locale->text('List of bank collections') : $locale->text('List of bank transfers');
|
| ... | ... | |
| 443 | 443 |
my $form = $main::form; |
| 444 | 444 |
my $myconfig = \%main::myconfig; |
| 445 | 445 |
my $locale = $main::locale; |
| 446 |
my $cgi = $main::cgi;
|
|
| 446 |
my $cgi = $::request->{cgi};
|
|
| 447 | 447 |
my $vc = $form->{vc} eq 'customer' ? 'customer' : 'vendor';
|
| 448 | 448 |
|
| 449 | 449 |
if (!$myconfig->{company}) {
|
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.