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/rp.pl
176 176
  }
177 177

  
178 178
  my $projectnumber =
179
    NTI($main::cgi->popup_menu('-name' => "project_id",
179
    NTI($::request->{cgi}->popup_menu('-name' => "project_id",
180 180
                               '-values' => \@project_values,
181 181
                               '-labels' => \%project_labels));
182 182

  
......
1663 1663
  my $form     = $main::form;
1664 1664
  my %myconfig = %main::myconfig;
1665 1665
  my $locale   = $main::locale;
1666
  my $cgi      = $main::cgi;
1666
  my $cgi      = $::request->{cgi};
1667 1667

  
1668 1668
  my $report = SL::ReportGenerator->new(\%myconfig, $form);
1669 1669

  

Auch abrufbar als: Unified diff