summaryrefslogtreecommitdiff
path: root/login.pl
diff options
context:
space:
mode:
Diffstat (limited to 'login.pl')
-rwxr-xr-xlogin.pl23
1 files changed, 10 insertions, 13 deletions
diff --git a/login.pl b/login.pl
index a9608a18..c7c3b8e2 100755
--- a/login.pl
+++ b/login.pl
@@ -10,9 +10,9 @@
# with permission.
#
# This file contains source code included with or based on SQL-Ledger which
-# is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed
-# under the GNU General Public License version 2 or, at your option, any later
-# version. For a full list including contact information of contributors,
+# is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed
+# under the GNU General Public License version 2 or, at your option, any later
+# version. For a full list including contact information of contributors,
# maintainers, and copyright holders, see the CONTRIBUTORS file.
#
# Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork):
@@ -54,19 +54,18 @@ require "common.pl";
$| = 1;
-if ($ENV{CONTENT_LENGTH}) {
- read(STDIN, $_, $ENV{CONTENT_LENGTH});
+if ( $ENV{CONTENT_LENGTH} ) {
+ read( STDIN, $_, $ENV{CONTENT_LENGTH} );
}
-if ($ENV{QUERY_STRING}) {
- $_ = $ENV{QUERY_STRING};
+if ( $ENV{QUERY_STRING} ) {
+ $_ = $ENV{QUERY_STRING};
}
-if ($ARGV[0]) {
- $_ = $ARGV[0];
+if ( $ARGV[0] ) {
+ $_ = $ARGV[0];
}
-
%form = split /[&=]/;
# fix for apache 2.0 bug
@@ -75,8 +74,7 @@ map { $form{$_} =~ s/\\$// } keys %form;
# name of this script
$0 =~ tr/\\/\//;
$pos = rindex $0, '/';
-$script = substr($0, $pos + 1);
-
+$script = substr( $0, $pos + 1 );
#This needs to be a db query
#if (-e "${LedgerSMB::Sysconfig::userspath}/nologin" && $script ne 'admin.pl') {
@@ -89,6 +87,5 @@ $script = substr($0, $pos + 1);
$ARGV[0] = $_;
require "bin/$script";
-
# end of main