X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fadmin.pl;h=64dc2495028b4de07a1a861837e5ab628dfd8606;hb=f2c923a10719d3a9e26448b7d83f38051466bf2c;hp=9856c29550de158ee6ae7626107498ea81e35101;hpb=4dbb09950c9f5596646537c12d991c99086fe7c1;p=kivitendo-erp.git diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl index 9856c2955..64dc24950 100644 --- a/bin/mozilla/admin.pl +++ b/bin/mozilla/admin.pl @@ -37,46 +37,44 @@ $menufile = "menu.ini"; use SL::Form; use SL::User; - $form = new Form; $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 +90,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,15 +107,20 @@ sub adminlogin {|.$locale->text('Administration').qq| +
| + . $locale->text('Administration') + . qq|
-|.$locale->text('Click on login name to edit!').qq| +| . $locale->text('Click on login name to edit!') . qq|@@ -337,20 +354,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 +614,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"}> | - +
|.$locale->text('Database').qq| | +| . $locale->text('Database') . qq| | ||||||
---|---|---|---|---|---|---|---|
|.$locale->text('Host').qq| | +| . $locale->text('Host') . qq| | {dbhost}> | -|.$locale->text('Port').qq| | +| . $locale->text('Port') . qq| | {dbport}> | ||
|.$locale->text('User').qq| | +| . $locale->text('User') . qq| | {dbuser}> | -|.$locale->text('Password').qq| | +| . $locale->text('Password') . qq| | |||
$form->{connectstring} | @@ -1228,18 +1275,24 @@ sub dbselect_source {
|.$locale->text('This is a preliminary check for existing sources. Nothing will be created or deleted at this stage!') +
|
+ . $locale->text(
+ 'This is a preliminary check for existing sources. Nothing will be created or deleted at this stage!'
+ )
-.qq|
+ . qq|
$msg{$form->{dbdriver}}
@@ -1249,20 +1302,21 @@ sub dbselect_source {
}
-
sub continue {
&{ $form->{nextsub} };
}
-
sub update_dataset {
%needsupdate = User->dbneedsupdate(\%$form);
- $form->{title} = "Lx-Office ERP ".$locale->text('Database Administration')." / ".$locale->text('Update Dataset');
-
+ $form->{title} =
+ "Lx-Office ERP "
+ . $locale->text('Database Administration') . " / "
+ . $locale->text('Update Dataset');
+
$form->header;
print qq|
@@ -1273,7 +1327,6 @@ sub update_dataset {