Revision aabb3a63
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
SL/Dispatcher.pm | ||
---|---|---|
67 | 67 |
# dummy globals |
68 | 68 |
{ |
69 | 69 |
no warnings 'once'; |
70 |
$::userspath = "users"; |
|
71 |
$::templates = "templates"; |
|
72 |
$::memberfile = "users/members"; |
|
73 |
$::menufile = "menu.ini"; |
|
74 |
$::sendmail = "| /usr/sbin/sendmail -t"; |
|
75 |
$::lxdebug = LXDebug->new; |
|
76 |
$::auth = SL::Auth->new; |
|
77 |
%::myconfig = (); |
|
78 |
%::called_subs = (); |
|
70 |
$::userspath = "users"; |
|
71 |
$::templates = "templates"; |
|
72 |
$::memberfile = "users/members"; |
|
73 |
$::menufile = "menu.ini"; |
|
74 |
$::sendmail = "| /usr/sbin/sendmail -t"; |
|
75 |
$::lxdebug = LXDebug->new; |
|
76 |
$::auth = SL::Auth->new; |
|
77 |
%::myconfig = (); |
|
79 | 78 |
} |
80 | 79 |
} |
81 | 80 |
|
... | ... | |
127 | 126 |
$script_name = $0; |
128 | 127 |
} |
129 | 128 |
|
130 |
$::cgi = CGI->new(''); |
|
131 |
$::locale = Locale->new($::language); |
|
132 |
$::form = Form->new; |
|
129 |
$::cgi = CGI->new(''); |
|
130 |
$::locale = Locale->new($::language); |
|
131 |
$::form = Form->new; |
|
132 |
%::called_subs = (); |
|
133 | 133 |
|
134 | 134 |
eval { ($script_name, $action) = _route_request($script_name); 1; } or return; |
135 | 135 |
|
Auch abrufbar als: Unified diff
Bestimmte globale Variablen pro Request initialisieren.