Bugfix 624 und 93.

[mfinanz.git] / login.pl

diff --git a/login.pl b/login.pl
index f761de800eac940a1bd393d7d4fcd85e37cc4b3b..7cca68aa7e1f18275815ccf0a81304d186d396b2 100755 (executable)
--- a/login.pl
+++ b/login.pl
@@ -47,6 +47,7 @@ use SL::LXDebug;
 $lxdebug = LXDebug->new();
 
 eval { require "lx-erp.conf"; };
+eval { require "lx-erp-local.conf"; } if -f "lx-erp-local.conf";
 
 if ($ENV{CONTENT_LENGTH}) {
   read(STDIN, $_, $ENV{CONTENT_LENGTH});
@@ -70,6 +71,8 @@ $0 =~ tr/\\/\//;
 $pos = rindex $0, '/';
 $script = substr($0, $pos + 1);
 
+$form->{login} =~ s|.*/||;
+
 if (-e "$userspath/nologin" && $script ne 'admin.pl') {
   print "content-type: text/plain