X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=login.pl;h=05c4a229e0359f9b0c7f63ffb74d9cb5a41c9090;hb=ca00375c6edfb91a48718a3d25a2b53e509f6c95;hp=376ea98bf070db17986a63942101fc956a70a5a3;hpb=b1f65772befd38947f5d8f1a4f30c5b17d716e4b;p=kivitendo-erp.git

diff --git a/login.pl b/login.pl
deleted file mode 100755
index 376ea98bf..000000000
--- a/login.pl
+++ /dev/null
@@ -1,127 +0,0 @@
-#!/usr/bin/perl
-#
-######################################################################
-# SQL-Ledger Accounting
-# Copyright (C) 2001
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#  Contributors:
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#######################################################################
-#
-# this script sets up the terminal and runs the scripts
-# in bin/$terminal directory
-# admin.pl is linked to this script
-#
-#######################################################################
-
-# setup defaults, DO NOT CHANGE
-$userspath  = "users";
-$templates  = "templates";
-$memberfile = "users/members";
-$sendmail   = "| /usr/sbin/sendmail -t";
-########## end ###########################################
-
-$| = 1;
-
-use SL::LXDebug;
-$lxdebug = LXDebug->new();
-
-eval { require "lx-erp.conf"; };
-
-if ($ENV{CONTENT_LENGTH}) {
-  read(STDIN, $_, $ENV{CONTENT_LENGTH});
-}
-
-if ($ENV{QUERY_STRING}) {
-  $_ = $ENV{QUERY_STRING};
-}
-
-if ($ARGV[0]) {
-  $_ = $ARGV[0];
-}
-
-%form = split /[&=]/;
-
-# fix for apache 2.0 bug
-map { $form{$_} =~ s/\\$// } keys %form;
-
-# name of this script
-$0 =~ tr/\\/\//;
-$pos = rindex $0, '/';
-$script = substr($0, $pos + 1);
-
-if (-e "$userspath/nologin" && $script ne 'admin.pl') {
-  print "content-type: text/plain
-
-Login disabled!\n";
-
-  exit;
-}
-
-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
-  |;
-  }
-
-}
-
-# end of main
-
diff --git a/login.pl b/login.pl
new file mode 120000
index 000000000..05c4a229e
--- /dev/null
+++ b/login.pl
@@ -0,0 +1 @@
+admin.pl
\ No newline at end of file