Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 5494f687

Von Sven Schöling vor etwa 13 Jahren hinzugefügt

  • ID 5494f687372570c9d1c5eb5c6aad73767e50820a
  • Vorgänger a064deaf
  • Nachfolger 3b9a5301

$::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.

Unterschiede anzeigen:

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