mebil

[kivitendo-erp.git] / login.pl

diff --git a/login.pl b/login.pl
deleted file mode 100755 (executable)
index a01fc10f8d99e87f35ef3fd1ae23ca3990bb5cb6..0000000000000000000000000000000000000000
--- a/login.pl
+++ /dev/null
@@ -1,92 +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
-#
-#######################################################################
-
-BEGIN {
-  unshift @INC, "modules/YAML"; # Use our own version of YAML.
-  push @INC, "modules";         # Only use our own versions of modules if there's no system version.
-}
-
-# 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"; };
-eval { require "lx-erp-local.conf"; } if -f "lx-erp-local.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);
-
-$form->{login} =~ s|.*/||;
-
-if (-e "$userspath/nologin" && $script ne 'admin.pl') {
-  print "content-type: text/plain
-
-Login disabled!\n";
-
-  exit;
-}
-
-require "bin/mozilla/installationcheck.pl";
-verify_installation();
-
-$ARGV[0] = "$_&script=$script";
-require "bin/mozilla/$script";
-
-# end of main
-

diff --git a/login.pl b/login.pl
new file mode 120000 (symlink)
index 0000000000000000000000000000000000000000..05c4a229e0359f9b0c7f63ffb74d9cb5a41c9090
--- /dev/null
+++ b/login.pl
@@ -0,0 +1 @@
+admin.pl
\ No newline at end of file