wagnertech.de Git - kivitendo-erp.git/blob

1 #!/usr/bin/perl

2 #

3 ######################################################################

4 # SQL-Ledger Accounting

6 #

7 # Author: Dieter Simader

8 # Email: dsimader@sql-ledger.org

9 # Web: http://www.sql-ledger.org

10 #

11 # Contributors:

12 #

13 # This program is free software; you can redistribute it and/or modify

14 # it under the terms of the GNU General Public License as published by

15 # the Free Software Foundation; either version 2 of the License, or

16 # (at your option) any later version.

17 #

18 # This program is distributed in the hope that it will be useful,

19 # but WITHOUT ANY WARRANTY; without even the implied warranty of

20 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

21 # GNU General Public License for more details.

22 # You should have received a copy of the GNU General Public License

23 # along with this program; if not, write to the Free Software

24 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

25 #######################################################################

26 #

27 # this script sets up the terminal and runs the scripts

28 # in bin/$terminal directory

29 # admin.pl is linked to this script

30 #

31 #######################################################################

33 BEGIN {

34 push(@INC, "modules");

35 }

37 # setup defaults, DO NOT CHANGE

38 $userspath = "users";

39 $templates = "templates";

40 $memberfile = "users/members";

41 $sendmail = "| /usr/sbin/sendmail -t";

42 ########## end ###########################################

44 $| = 1;

46 use SL::LXDebug;

47 $lxdebug = LXDebug->new();

49 eval { require "lx-erp.conf"; };

50 eval { require "lx-erp-local.conf"; } if -f "lx-erp-local.conf";

52 if ($ENV{CONTENT_LENGTH}) {

53 read(STDIN, $_, $ENV{CONTENT_LENGTH});

54 }

56 if ($ENV{QUERY_STRING}) {

57 $_ = $ENV{QUERY_STRING};

58 }

60 if ($ARGV[0]) {

61 $_ = $ARGV[0];

62 }

64 %form = split /[&=]/;

66 # fix for apache 2.0 bug

67 map { $form{$_} =~ s/\\$// } keys %form;

69 # name of this script

70 $0 =~ tr/\\/\//;

71 $pos = rindex $0, '/';

72 $script = substr($0, $pos + 1);

74 $form->{login} =~ s|.*/||;

76 if (-e "$userspath/nologin" && $script ne 'admin.pl') {

77 print "content-type: text/plain

79 Login disabled!\n";

81 exit;

82 }

84 require "bin/mozilla/installationcheck.pl";

85 verify_installation();

87 $ARGV[0] = "$_&script=$script";

88 require "bin/mozilla/$script";

90 # end of main