Revision 5494f687
Von Sven Schöling vor fast 13 Jahren hinzugefügt
| scripts/console | ||
|---|---|---|
| 62 | 62 |
|
| 63 | 63 |
$::lxdebug = LXDebug->new(file => $debug_file); |
| 64 | 64 |
$::locale = Locale->new($::lx_office_conf{system}->{language});
|
| 65 |
$::cgi = CGI->new qw(); |
|
| 66 | 65 |
$::form = Form->new; |
| 67 | 66 |
$::auth = SL::Auth->new; |
| 68 | 67 |
$::instance_conf = SL::InstanceConfiguration->new; |
| 69 |
$::request = { };
|
|
| 68 |
$::request = { cgi => CGI->new({}) };
|
|
| 70 | 69 |
|
| 71 | 70 |
die 'cannot reach auth db' unless $::auth->session_tables_present; |
| 72 | 71 |
|
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.