};
$::form->error($EVAL_ERROR) if ($EVAL_ERROR);
}
- if ($::form->{login} && -f "bin/mozilla/$::form->{login}_$::form->{script}") {
+ if ($::form->{login} && -f "bin/mozilla/$::form->{login}_$script") {
eval {
package main;
- require "bin/mozilla/$::form->{login}_$::form->{script}";
+ require "bin/mozilla/$::form->{login}_$script";
};
$::form->error($EVAL_ERROR) if ($EVAL_ERROR);
}
$script_name = $0;
}
- $::cgi = CGI->new('');
- $::locale = Locale->new($::language);
- $::form = Form->new;
+ $::cgi = CGI->new('');
+ $::locale = Locale->new($::language);
+ $::form = Form->new;
+ %::called_subs = ();
eval { ($script_name, $action) = _route_request($script_name); 1; } or return;