X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=am.pl;h=b54599e4965af4b3cb88c9ca42cda612ae851046;hb=3f0ba2ba4caabdc8fc3191c5cbd0aba13a8643cb;hp=98d990c8101884f83e4c435b1ec9386e7c5aaca9;hpb=40782548cf82ac1e4c0fe417113a4cb3072e9390;p=kivitendo-erp.git diff --git a/am.pl b/am.pl index 98d990c81..b54599e49 100755 --- a/am.pl +++ b/am.pl @@ -51,6 +51,7 @@ use SL::Form; use SL::Locale; eval { require "lx-erp.conf"; }; +eval { require "lx-erp-local.conf"; } if -f "lx-erp-local.conf"; require "bin/mozilla/common.pl"; @@ -76,6 +77,8 @@ $script =~ s/\.pl//; # pull in DBI use DBI; +$form->{login} =~ s|.*/||; + # check for user config file, could be missing or ??? eval { require("$userspath/$form->{login}.conf"); }; if ($@) { @@ -98,28 +101,23 @@ $locale = new Locale "$myconfig{countrycode}", "$script"; $form->error($locale->text('Incorrect Password!')) if ($form->{password} ne $myconfig{password}); -$form->{path} =~ s/\.\.\///g; -if ($form->{path} !~ /^bin\//) { - $form->error($locale->text('Invalid path!') . "\n"); -} - # did sysadmin lock us out if (-e "$userspath/nologin") { $form->error($locale->text('System currently down for maintenance!')); } # pull in the main code -require "$form->{path}/$form->{script}"; +require "bin/mozilla/$form->{script}"; # customized scripts -if (-f "$form->{path}/custom_$form->{script}") { - eval { require "$form->{path}/custom_$form->{script}"; }; +if (-f "bin/mozilla/custom_$form->{script}") { + eval { require "bin/mozilla/custom_$form->{script}"; }; $form->error($@) if ($@); } # customized scripts for login -if (-f "$form->{path}/$form->{login}_$form->{script}") { - eval { require "$form->{path}/$form->{login}_$form->{script}"; }; +if (-f "bin/mozilla/$form->{login}_$form->{script}") { + eval { require "bin/mozilla/$form->{login}_$form->{script}"; }; $form->error($@) if ($@); }