-our $cgi = new CGI('');
-our $form = new Form;
-our $locale = new Locale $main::language, "admin";
-our $auth = SL::Auth->new();
-
-if ($auth->session_tables_present()) {
- $auth->expire_sessions();
- $auth->restore_session();
- $auth->set_session_value('rpw', $form->{rpw});
-}
-
-# customization
-if (-f "bin/mozilla/custom_$form->{script}") {
- eval { require "bin/mozilla/custom_$form->{script}"; };
- $form->error($@) if ($@);
-}
-
-$form->{stylesheet} = "lx-office-erp.css";
-$form->{favicon} = "favicon.ico";
-
-if ($form->{action}) {
- if ($auth->authenticate_root($form->{rpw}, 0) != $auth->OK()) {
- $form->{error_message} = $locale->text('Incorrect Password!');
- adminlogin();
- exit;
- }
-
- $auth->create_or_refresh_session() if ($auth->session_tables_present());