Revision 1c8bbb4e
Von Sven Schöling vor etwa 14 Jahren hinzugefügt
| SL/Dispatcher.pm | ||
|---|---|---|
| 64 | 64 |
require "bin/mozilla/installationcheck.pl"; |
| 65 | 65 |
} or die $EVAL_ERROR; |
| 66 | 66 |
|
| 67 |
# dummy globals
|
|
| 67 |
# canonial globals. if it's not here, chances are it will get refactored someday.
|
|
| 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 = (); |
|
| 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 |
$::form = undef; |
|
| 78 |
%::myconfig = (); |
|
| 79 |
%::called_subs = (); # currently used for recursion detection |
|
| 78 | 80 |
} |
| 79 | 81 |
} |
| 80 | 82 |
|
Auch abrufbar als: Unified diff
warnings gefixt, und globals besser dokumentiert.