X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fadmin.pl;h=c704174c8f66ec2fac026e3e217c8f708b91c369;hb=6881b4bd6a669dd991b227ecf41c3e8662806595;hp=9856c29550de158ee6ae7626107498ea81e35101;hpb=4dbb09950c9f5596646537c12d991c99086fe7c1;p=kivitendo-erp.git diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl old mode 100644 new mode 100755 index 9856c2955..c704174c8 --- a/bin/mozilla/admin.pl +++ b/bin/mozilla/admin.pl @@ -32,1609 +32,1190 @@ # #====================================================================== -$menufile = "menu.ini"; - +use DBI; +use Encode; +use English qw(-no_match_vars); +use Fcntl; +use File::Copy; +use File::Find; +use File::Spec; +use Cwd; +use IO::File; +use POSIX qw(strftime); +use Sys::Hostname; + +use SL::Auth; +use SL::Auth::PasswordPolicy; use SL::Form; +use SL::Iconv; +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"; +require "bin/mozilla/admin_printer.pl"; + +use strict; + +# parserhappy(R): + +# $locale->text('periodic') +# $locale->text('income') +# $locale->text('perpetual') +# $locale->text('balance') + +our $cgi; +our $form; +our $locale; +our $auth; + +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 = ( + { id => 'old', title => $::locale->text('Old (on the side)') }, + { id => 'v3', title => $::locale->text('Top (CSS)') }, + { id => 'v4', title => $::locale->text('Top (CSS) new') }, + { id => 'neu', title => $::locale->text('Top (Javascript)') }, +); + +sub run { + $::lxdebug->enter_sub; + my $session_result = shift; + + $form = $::form; + $locale = $::locale; + $auth = $::auth; + + $form->{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(); + } else { + if ($auth->session_tables_present()) { + delete $::form->{'{AUTH}admin_password'}; + _apply_dbupgrade_scripts(); + } + call_sub($locale->findsub($form->{action})); + } + } else { + # if there are no drivers bail out + $form->error($locale->text('No Database Drivers available!')) + unless (User->dbdrivers); -$form = new Form; + adminlogin(); + } + $::lxdebug->leave_sub; +} -$locale = new Locale $language, "admin"; - -eval { require DBI; }; -$form->error($locale->text('DBI not installed!')) if ($@); +sub adminlogin { + my $form = $main::form; + my $locale = $main::locale; + $form->{title} = qq|kivitendo $form->{version} | . $locale->text('Administration'); -# customization -if (-f "$form->{path}/custom_$form->{script}") { - eval { require "$form->{path}/custom_$form->{script}"; }; - $form->error($@) if ($@); + $form->header(); + print $form->parse_html_template('admin/adminlogin'); } +sub login { + check_auth_db_and_tables(); + list_users(); +} -$form->{stylesheet} = "lx-office-erp.css"; -$form->{favicon} = "favicon.ico"; +sub logout { + $main::auth->destroy_session(); + adminlogin(); +} -if ($form->{action}) { +sub check_auth_db_and_tables { + my $form = $main::form; + my $locale = $main::locale; - $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); - - # create memberfile - if (! -f $memberfile) { - open(FH, ">$memberfile") or $form->error("$memberfile : $!"); - print FH qq|# SQL-Ledger Accounting members - -[root login] -password= - -|; - close FH; - } + my %params; - &adminlogin; + map { $params{"db_${_}"} = $main::auth->{DB_config}->{$_} } keys %{ $auth->{DB_config} }; -} + $params{admin_password} = $::lx_office_conf{authentication}->{admin_password}; -1; -# end + if (!$main::auth->check_database()) { + $form->{title} = $locale->text('Authentification database creation'); + $form->header(); + print $form->parse_html_template('admin/check_auth_database', \%params); + ::end_of_request(); + } -sub adminlogin { + if (!$main::auth->check_tables()) { + $form->{title} = $locale->text('Authentification tables creation'); + $form->header(); + print $form->parse_html_template('admin/check_auth_tables', \%params); - $form->{title} = qq|Lx-Office ERP $form->{version} |.$locale->text('Administration'); + ::end_of_request(); + } - $form->header; - - print qq| -
+ my $memberfile = $::lx_office_conf{paths}->{memberfile}; + if (-f $memberfile) { + my $memberdir = ""; + if ($memberfile =~ m|^.*/|) { + $memberdir = $&; + } -|.$locale->text('Administration').qq| + $form->{title} = $locale->text('User data migration'); + $form->header(); + print $form->parse_html_template('admin/user_migration', { 'memberfile' => $memberfile, + 'backupdir' => $backupdir }); -
+sub create_auth_tables { + my $form = $main::form; + my $locale = $main::locale; + + $main::auth->create_tables(); + $main::auth->set_session_value('admin_password', $form->{'{AUTH}admin_password'}); + $main::auth->create_or_refresh_session(); + + my $memberfile = $::lx_office_conf{paths}->{memberfile}; + if (!-f $memberfile) { + # New installation -- create a standard group with full access + my %members; + my $group = { + 'name' => $locale->text('Full Access'), + 'description' => $locale->text('Full access to all functions'), + 'rights' => { map { $_ => 1 } SL::Auth::all_rights() }, + 'members' => [ map { $_->{id} } values %members ], + }; + + $main::auth->save_group($group); + } -Lx-Office |.$locale->text('website').qq| + _apply_dbupgrade_scripts(); + login(); +} -