X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fadmin.pl;h=118712531c81cf680a87b38a5a2740de733cda21;hb=39c62c1bb68cd520cccc2889aeaed2601d1a7c93;hp=9856c29550de158ee6ae7626107498ea81e35101;hpb=4dbb09950c9f5596646537c12d991c99086fe7c1;p=kivitendo-erp.git diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl index 9856c2955..118712531 100644 --- a/bin/mozilla/admin.pl +++ b/bin/mozilla/admin.pl @@ -37,46 +37,46 @@ $menufile = "menu.ini"; use SL::Form; use SL::User; - $form = new Form; +$form->{"root"} = "root login"; $locale = new Locale $language, "admin"; - + eval { require DBI; }; $form->error($locale->text('DBI not installed!')) if ($@); - # customization if (-f "$form->{path}/custom_$form->{script}") { eval { require "$form->{path}/custom_$form->{script}"; }; $form->error($@) if ($@); } - $form->{stylesheet} = "lx-office-erp.css"; -$form->{favicon} = "favicon.ico"; +$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"; } } - + &check_password; - + &$subroutine; - + } else { # if there are no drivers bail out - $form->error($locale->text('No Database Drivers available!')) unless (User->dbdrivers); + $form->error($locale->text('No Database Drivers available!')) + unless (User->dbdrivers); # create memberfile - if (! -f $memberfile) { + if (!-f $memberfile) { open(FH, ">$memberfile") or $form->error("$memberfile : $!"); print FH qq|# SQL-Ledger Accounting members @@ -92,15 +92,16 @@ password= } 1; -# end +# end sub adminlogin { - $form->{title} = qq|Lx-Office ERP $form->{version} |.$locale->text('Administration'); + $form->{title} = + qq|Lx-Office ERP $form->{version} | . $locale->text('Administration'); $form->header; - + print qq|
@@ -108,25 +109,30 @@ sub adminlogin {|.$locale->text('Administration').qq| +
| + . $locale->text('Administration') + . qq|
-Lx-Office |.$locale->text('website').qq| +Lx-Office | + . $locale->text('website') . qq|@@ -337,20 +357,21 @@ $nologin
Lx-Office ERP |.$locale->text('Login').qq| | +Lx-Office ERP | . $locale->text('Login') . qq| | ||||||||
---|---|---|---|---|---|---|---|---|---|
| |||||||||
|.$locale->text('Database').qq| | +| . $locale->text('Database') . qq| | ||||||||
@@ -578,29 +618,30 @@ sub form_header { $checked = ""; if ($myconfig->{dbdriver} eq $item) { - map { $form->{"${item}_$_"} = $myconfig->{$_} } qw(dbhost dbport dbuser dbpasswd dbname sid); + map { $form->{"${item}_$_"} = $myconfig->{$_} } + qw(dbhost dbport dbuser dbpasswd dbname sid); $checked = "checked"; } print qq| - | |.$locale->text('Driver').qq| | +| . $locale->text('Driver') . qq| | $item | -|.$locale->text('Host').qq| | +| . $locale->text('Host') . qq| | {"${item}_dbhost"}> | |||
|.$locale->text('Dataset').qq| | +| . $locale->text('Dataset') . qq| | {Pg_dbname}> | -|.$locale->text('Port').qq| | +| . $locale->text('Port') . qq| | {Pg_dbport}> | ||||
|.$locale->text('User').qq| | +| . $locale->text('User') . qq| | {"${item}_dbuser"}> | -|.$locale->text('Password').qq| | +| . $locale->text('Password') . qq| | {"${item}_dbpasswd"}> | SID | {Oracle_sid}> | -|.$locale->text('Port').qq| | +| . $locale->text('Port') . qq| | {Oracle_dbport}> |
|.$locale->text('Dataset').qq| | +| . $locale->text('Dataset') . qq| | {"${item}_dbuser"}> | -|.$locale->text('Password').qq| | +| . $locale->text('Password') . qq| | {"${item}_dbpasswd"}> | - +