From ac5b087ea2d9ba7428d367aaeb288534158fee9a Mon Sep 17 00:00:00 2001 From: christopherm Date: Fri, 1 Sep 2006 01:16:38 +0000 Subject: Initial Import git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/ledger-smb@1 4979c152-3d1c-0410-bac9-87ea11338e46 --- login.pl | 132 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 132 insertions(+) create mode 100755 login.pl (limited to 'login.pl') diff --git a/login.pl b/login.pl new file mode 100755 index 00000000..923775a5 --- /dev/null +++ b/login.pl @@ -0,0 +1,132 @@ +#!/usr/bin/perl +# +###################################################################### +# LedgerSMB Accounting and ERP +# Copyright (C) 2001 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://sourceforge.net/projects/ledger-smb/ +# +# 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"; +$spool = "spool"; +$templates = "templates"; +$memberfile = "users/members"; +$sendmail = "| /usr/sbin/sendmail -t"; +%printer = ( Printer => 'lpr' ); +########## end ########################################### + + +$| = 1; + +eval { require "ledger-smb.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/html\n\n" if $ENV{HTTP_USER_AGENT}; + print "\nLogin disabled!\n"; + print "\n" if $ENV{HTTP_USER_AGENT}; + exit; +} + + +if ($form{path}) { + $form{path} =~ s/%2f/\//gi; + $form{path} =~ s/\.\.\///g; + + if ($form{path} !~ /^bin\//) { + print "Content-Type: text/html\n\n" if $ENV{HTTP_USER_AGENT}; + print "\nInvalid path!\n"; + print "\n" if $ENV{HTTP_USER_AGENT}; + exit; + } + + + $ARGV[0] = "$_&script=$script"; + require "$form{path}/$script"; +} else { + + if (!$form{terminal}) { + if ($ENV{HTTP_USER_AGENT}) { + # web browser + $form{terminal} = "lynx"; + if ($ENV{HTTP_USER_AGENT} !~ /lynx/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 "Content-Type: text/html\n\n" if $ENV{HTTP_USER_AGENT}; + print qq|\nUnknown terminal\n|; + print "\n" if $ENV{HTTP_USER_AGENT}; + } + +} + +# end of main + -- cgit v1.2.3