X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fadmin.pl;h=0a7145a60eb879803ef41ad51edf7754707b830d;hb=fba4f72dc6a7177d46be67bf4689502b5d53cd19;hp=42971fac512c4bc5825e4aeffcbd149cdbf2f4f2;hpb=670f76a86aaf642bf1a6b5b37cdc023f8fdfc79c;p=kivitendo-erp.git diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl index 42971fac5..0a7145a60 100755 --- a/bin/mozilla/admin.pl +++ b/bin/mozilla/admin.pl @@ -73,7 +73,7 @@ our $form; our $locale; our $auth; -my @valid_dateformats = qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd); +my @valid_dateformats = qw(mm/dd/yy dd/mm/yy dd.mm.yy yyyy-mm-dd); my @valid_numberformats = ('1,000.00', '1000.00', '1.000,00', '1000,00'); my @all_stylesheets = qw(lx-office-erp.css Win2000.css Mobile.css kivitendo.css); my @all_menustyles = ( @@ -91,11 +91,13 @@ sub run { $locale = $::locale; $auth = $::auth; - $form->{stylesheet} = "lx-office-erp.css"; + $::request->{layout} = SL::Layout::Dispatcher->new(style => 'admin'); + $::request->{layout}->use_stylesheet("lx-office-erp.css"); $form->{favicon} = "favicon.ico"; if ($form->{action}) { if ($auth->authenticate_root($form->{'{AUTH}admin_password'}) != $auth->OK()) { + $auth->punish_wrong_login; $form->{error_message} = $locale->text('Incorrect Password!'); $auth->delete_session_value('admin_password'); adminlogin(); @@ -145,6 +147,8 @@ sub check_auth_db_and_tables { map { $params{"db_${_}"} = $main::auth->{DB_config}->{$_} } keys %{ $auth->{DB_config} }; + $params{admin_password} = $::lx_office_conf{authentication}->{admin_password}; + if (!$main::auth->check_database()) { $form->{title} = $locale->text('Authentification database creation'); $form->header(); @@ -700,7 +704,7 @@ sub dbupdate { my $form = $main::form; my $locale = $main::locale; - $form->{stylesheet} = "lx-office-erp.css"; + $::request->{layout}->use_stylesheet("lx-office-erp.css"); $form->{title} = $locale->text("Dataset upgrade"); $form->header();