X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=am.pl;h=05c4a229e0359f9b0c7f63ffb74d9cb5a41c9090;hb=a1a1263bff85923b68be47848cd9441dfdba7fb1;hp=e48b9790d9f00672dda13f8572d0d56399213a9c;hpb=799f6001bbb8de6cf080e0cec68c212d863d940f;p=kivitendo-erp.git diff --git a/am.pl b/am.pl deleted file mode 100755 index e48b9790d..000000000 --- a/am.pl +++ /dev/null @@ -1,136 +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 is the frontend called from bin/$terminal/$script -# all the accounting modules are linked to this script which in -# turn execute the same script in bin/$terminal/ -# -####################################################################### - -BEGIN { - push(@INC, "modules"); -} - -# 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(); - -use CGI; -use SL::Form; -use SL::Locale; - -eval { require "lx-erp.conf"; }; -eval { require "lx-erp-local.conf"; } if -f "lx-erp-local.conf"; - -require "bin/mozilla/common.pl"; - -if (defined($latex) && !defined($latex_templates)) { - $latex_templates = $latex; - undef($latex); -} - -$form = new Form; -$cgi = new CGI(''); - -# name of this script -$0 =~ tr/\\/\//; -$pos = rindex $0, '/'; -$script = substr($0, $pos + 1); - -# we use $script for the language module -$form->{script} = $script; - -# strip .pl for translation files -$script =~ s/\.pl//; - -# pull in DBI -use DBI; - -# check for user config file, could be missing or ??? -eval { require("$userspath/$form->{login}.conf"); }; -if ($@) { - $locale = new Locale "$language", "$script"; - - $form->{callback} = ""; - $msg1 = $locale->text('You are logged out!'); - $msg2 = $locale->text('Login'); - $form->redirect("$msg1
$msg2"); -} - -$myconfig{dbpasswd} = unpack 'u', $myconfig{dbpasswd}; -map { $form->{$_} = $myconfig{$_} } qw(stylesheet charset) - unless (($form->{action} eq 'save') && ($form->{type} eq 'preferences')); - -# locale messages -$locale = new Locale "$myconfig{countrycode}", "$script"; - -# check password -$form->error($locale->text('Incorrect Password!')) - if ($form->{password} ne $myconfig{password}); - -# did sysadmin lock us out -if (-e "$userspath/nologin") { - $form->error($locale->text('System currently down for maintenance!')); -} - -# pull in the main code -require "bin/mozilla/$form->{script}"; - -# customized scripts -if (-f "bin/mozilla/custom_$form->{script}") { - eval { require "bin/mozilla/custom_$form->{script}"; }; - $form->error($@) if ($@); -} - -# customized scripts for login -if (-f "bin/mozilla/$form->{login}_$form->{script}") { - eval { require "bin/mozilla/$form->{login}_$form->{script}"; }; - $form->error($@) if ($@); -} - -if ($form->{action}) { - - # window title bar, user info - $form->{titlebar} = - "Lx-Office " - . $locale->text('Version') - . " $form->{version} - $myconfig{name} - $myconfig{dbname}"; - - call_sub($locale->findsub($form->{action})); -} else { - $form->error($locale->text('action= not defined!')); -} - -# end - diff --git a/am.pl b/am.pl new file mode 120000 index 000000000..05c4a229e --- /dev/null +++ b/am.pl @@ -0,0 +1 @@ +admin.pl \ No newline at end of file