Die bei Lx-Office mitgelieferten Perl-Module, die nicht zu Lx-Office selber gehören...

[mfinanz.git] / login.pl

diff --git a/login.pl b/login.pl
index c1d4df4065afe8906dac25191ca02ecd29c63743..f49163362bcb29926ca22976af92a6cc1b0c9548 100755 (executable)
--- a/login.pl
+++ b/login.pl
@@ -30,6 +30,10 @@
 #
 #######################################################################
 
+BEGIN {
+  push(@INC, "modules");
+}
+
 # setup defaults, DO NOT CHANGE
 $userspath  = "users";
 $templates  = "templates";
@@ -74,6 +78,9 @@ Login disabled!\n";
   exit;
 }
 
+require "bin/mozilla/installationcheck.pl";
+verify_installation();
+
 if ($form{path}) {
   $form{path} =~ s/%2f/\//gi;
   $form{path} =~ s/\.\.\///g;
@@ -97,9 +104,6 @@ Invalid path!\n";
         $form{terminal} = "mozilla";
       }
 
-      if ($ENV{HTTP_USER_AGENT} =~ /lynx/i) {
-        $form{terminal} = "lynx";
-      }
     } else {
       if ($ENV{TERM} =~ /xterm/) {
         $form{terminal} = "xterm";