diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-04-26 18:00:56 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-04-26 18:00:56 +0000 |
commit | 666fd833584fe2e3618a397fe9d9a9bdf4c5b94b (patch) | |
tree | 19c4444705fd7f7803e0d7b597659c11d7e85b73 /login.pl | |
parent | 2edd2e4de0f08a0a5f23647ea715f279671a0b89 (diff) |
Doing a simple Perltidy commit so that I can evaluate differences between the branches and make sure patches are up to date
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1103 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'login.pl')
-rwxr-xr-x | login.pl | 23 |
1 files changed, 10 insertions, 13 deletions
@@ -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 |