X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=login.pl;h=7753cc5b860393162e6f0aa68d6758b7e9eca859;hb=b5157f97d47413e5f33cced1d0de527979ff3d61;hp=2d4c34e3640fabb80e0d59301b7dc4e80421e690;hpb=541272c5cf4f874a13eff89993d5d4a941451f42;p=kivitendo-erp.git diff --git a/login.pl b/login.pl index 2d4c34e36..7753cc5b8 100755 --- a/login.pl +++ b/login.pl @@ -30,6 +30,10 @@ # ####################################################################### +BEGIN { + push(@INC, "modules"); +} + # setup defaults, DO NOT CHANGE $userspath = "users"; $templates = "templates"; @@ -43,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}); @@ -77,54 +82,8 @@ Login disabled!\n"; require "bin/mozilla/installationcheck.pl"; verify_installation(); -if ($form{path}) { - $form{path} =~ s/%2f/\//gi; - $form{path} =~ s/\.\.\///g; - - if ($form{path} !~ /^bin\//) { - print "content-type: text/plain - -Invalid path!\n"; - die; - } - - $ARGV[0] = "$_&script=$script"; - require "$form{path}/$script"; -} else { - - if (!$form{terminal}) { - if ($ENV{HTTP_USER_AGENT}) { - - # web browser - if ($ENV{HTTP_USER_AGENT} =~ /(mozilla|links|opera|w3m)/i) { - $form{terminal} = "mozilla"; - } - - } else { - if ($ENV{TERM} =~ /xterm/) { - $form{terminal} = "xterm"; - } - if ($ENV{TERM} =~ /(console|linux|vt.*)/i) { - $form{terminal} = "console"; - } - } - } - - if ($form{terminal}) { - - $ARGV[0] = "path=bin/$form{terminal}&script=$script"; - map { $ARGV[0] .= "&${_}=$form{$_}" } keys %form; - - require "bin/$form{terminal}/$script"; - - } else { - - print qq| - Unknown terminal - |; - } - -} +$ARGV[0] = "$_&script=$script"; +require "bin/mozilla/$script"; # end of main