X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fadmin.pl;h=a6200bad227be8def10e3d6be7a403fe08211180;hb=df870c64916661b7670b34e4e47d6c28f5d961ee;hp=e936b2a12430c68d8f04527ea53e822502bbb511;hpb=d629acd82a27e980899a044ca8b0f4becc8e94bb;p=kivitendo-erp.git diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl index e936b2a12..a6200bad2 100644 --- a/bin/mozilla/admin.pl +++ b/bin/mozilla/admin.pl @@ -35,16 +35,39 @@ $menufile = "menu.ini"; use DBI; +use CGI; +use English qw(-no_match_vars); +use Fcntl; +use File::Copy; +use IO::File; +use POSIX qw(strftime); +use Sys::Hostname; + +use SL::Auth; use SL::Form; +use SL::Mailer; use SL::User; +use SL::Common; +use SL::Inifile; +use SL::DBUpgrade2; +use SL::DBUtils; require "bin/mozilla/common.pl"; +require "bin/mozilla/admin_groups.pl"; + +our $cgi = new CGI(''); $form = new Form; -$form->{"root"} = "root login"; $locale = new Locale $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}"; }; @@ -56,16 +79,15 @@ $form->{favicon} = "favicon.ico"; if ($form->{action}) { - $subroutine = $locale->findsub($form->{action}); - if ($subroutine eq 'login') { - if ($form->{rpw}) { - $form->{rpw} = crypt $form->{rpw}, "ro"; - } + if ($auth->authenticate_root($form->{rpw}, 0)) { + $form->{error_message} = $locale->text('Incorrect Password!'); + adminlogin(); + exit; } - &check_password; + $auth->create_or_refresh_session() if ($auth->session_tables_present()); call_sub($subroutine); @@ -75,19 +97,7 @@ if ($form->{action}) { $form->error($locale->text('No Database Drivers available!')) unless (User->dbdrivers); - # create memberfile - if (!-f $memberfile) { - open(FH, ">$memberfile") or $form->error("$memberfile : $!"); - print FH qq|# SQL-Ledger Accounting members - -[root login] -password= - -|; - close FH; - } - - &adminlogin; + adminlogin(); } @@ -97,756 +107,339 @@ password= sub adminlogin { - $form->{title} = - qq|Lx-Office ERP $form->{version} | . $locale->text('Administration'); - - $form->header; - - print qq| -
- - -| - . $locale->text('Administration') - . qq| - -
- -Lx-Office | - . $locale->text('website') . qq| - -