From 4d55c425d6b332832c5e7548e4883ab49716ed38 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sat, 24 Mar 2007 17:38:32 +0000
Subject: Removing executable bit from bin/*.pl

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1000 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/aa.pl      |  0
 bin/admin.pl   |  0
 bin/am.pl      |  0
 bin/ap.pl      |  0
 bin/ar.pl      |  0
 bin/arap.pl    |  0
 bin/arapprn.pl |  0
 bin/bp.pl      |  0
 bin/ca.pl      |  0
 bin/cp.pl      |  0
 bin/ct.pl      |  0
 bin/gl.pl      |  0
 bin/hr.pl      |  0
 bin/ic.pl      |  0
 bin/io.pl      |  0
 bin/ir.pl      |  0
 bin/is.pl      |  0
 bin/jc.pl      |  0
 bin/login.pl   | 39 +++++----------------------------------
 bin/menu.pl    |  0
 bin/oe.pl      |  0
 bin/pe.pl      |  0
 bin/pos.pl     |  0
 bin/ps.pl      |  0
 bin/pw.pl      |  0
 bin/rc.pl      |  0
 bin/rp.pl      |  0
 27 files changed, 5 insertions(+), 34 deletions(-)
 mode change 100755 => 100644 bin/aa.pl
 mode change 100755 => 100644 bin/admin.pl
 mode change 100755 => 100644 bin/am.pl
 mode change 100755 => 100644 bin/ap.pl
 mode change 100755 => 100644 bin/ar.pl
 mode change 100755 => 100644 bin/arap.pl
 mode change 100755 => 100644 bin/arapprn.pl
 mode change 100755 => 100644 bin/bp.pl
 mode change 100755 => 100644 bin/ca.pl
 mode change 100755 => 100644 bin/cp.pl
 mode change 100755 => 100644 bin/ct.pl
 mode change 100755 => 100644 bin/gl.pl
 mode change 100755 => 100644 bin/hr.pl
 mode change 100755 => 100644 bin/ic.pl
 mode change 100755 => 100644 bin/io.pl
 mode change 100755 => 100644 bin/ir.pl
 mode change 100755 => 100644 bin/is.pl
 mode change 100755 => 100644 bin/jc.pl
 mode change 100755 => 100644 bin/login.pl
 mode change 100755 => 100644 bin/menu.pl
 mode change 100755 => 100644 bin/oe.pl
 mode change 100755 => 100644 bin/pe.pl
 mode change 100755 => 100644 bin/pos.pl
 mode change 100755 => 100644 bin/ps.pl
 mode change 100755 => 100644 bin/pw.pl
 mode change 100755 => 100644 bin/rc.pl
 mode change 100755 => 100644 bin/rp.pl

(limited to 'bin')

diff --git a/bin/aa.pl b/bin/aa.pl
old mode 100755
new mode 100644
diff --git a/bin/admin.pl b/bin/admin.pl
old mode 100755
new mode 100644
diff --git a/bin/am.pl b/bin/am.pl
old mode 100755
new mode 100644
diff --git a/bin/ap.pl b/bin/ap.pl
old mode 100755
new mode 100644
diff --git a/bin/ar.pl b/bin/ar.pl
old mode 100755
new mode 100644
diff --git a/bin/arap.pl b/bin/arap.pl
old mode 100755
new mode 100644
diff --git a/bin/arapprn.pl b/bin/arapprn.pl
old mode 100755
new mode 100644
diff --git a/bin/bp.pl b/bin/bp.pl
old mode 100755
new mode 100644
diff --git a/bin/ca.pl b/bin/ca.pl
old mode 100755
new mode 100644
diff --git a/bin/cp.pl b/bin/cp.pl
old mode 100755
new mode 100644
diff --git a/bin/ct.pl b/bin/ct.pl
old mode 100755
new mode 100644
diff --git a/bin/gl.pl b/bin/gl.pl
old mode 100755
new mode 100644
diff --git a/bin/hr.pl b/bin/hr.pl
old mode 100755
new mode 100644
diff --git a/bin/ic.pl b/bin/ic.pl
old mode 100755
new mode 100644
diff --git a/bin/io.pl b/bin/io.pl
old mode 100755
new mode 100644
diff --git a/bin/ir.pl b/bin/ir.pl
old mode 100755
new mode 100644
diff --git a/bin/is.pl b/bin/is.pl
old mode 100755
new mode 100644
diff --git a/bin/jc.pl b/bin/jc.pl
old mode 100755
new mode 100644
diff --git a/bin/login.pl b/bin/login.pl
old mode 100755
new mode 100644
index 8ddcdb41..1df03b42
--- a/bin/login.pl
+++ b/bin/login.pl
@@ -236,41 +236,12 @@ sub login {
 
 	$form->error(__FILE__.':'.__LINE__.': '.$locale->text('You did not enter a name!')) unless ($form->{login});
 
-	#this needs to be done via db
-	#if (! $form->{beenthere}) {
-	#	open(FH, '<', "${LedgerSMB::Sysconfig::memberfile}") or $form->error(__FILE__.':'.__LINE__.": $memberfile : $!");
-	#	@a = <FH>;
-	#	close(FH);
-	#
-	#	foreach $item (@a) {
-	#
-	#		if ($item =~ /^\[(.*?)\]/) {
-	#			$login = $1;
-	#			$found = 1;
-	#		}
-	#
-	#		if ($item =~ /^company=/) {
-	#			if ($login =~ /$form->{login}\@/ && $found) {
-	#				($null, $name) = split /=/, $item, 2;
-	#				$login{$login} = $name;
-	#			}
-	#			$found = 0;
-	#		}
-	#	}
-	#
-	#	if (keys %login > 1) {
-	#		&selectdataset(\%login);
-	#		exit;
-	#	}
-	#}
-
 
 	if (!${LedgerSMB::Sysconfig::GLOBALDBH}){
 		$locale->text("No GlobalDBH Configured or Could not Connect");
 	}
 	$user = LedgerSMB::User->new($form->{login});
 
-	# if we get an error back, bale out
 	if (($errno = $user->login(\%$form)) <= -1) {
 
 		$errno *= -1;
@@ -280,9 +251,11 @@ sub login {
 
 		if ($errno == 4) {
 			# upgrade dataset and log in again
-
-			#locking needs to be done via db function
-			#open FH, '>', "${LedgerSMB::Sysconfig::userspath}/nologin" or $form->error($!);
+			if (!$LedgerSMB::Sysconfig::db_autoupdate){
+				$form->error(
+					$locale->text("Dabase Version too Old")
+				);
+			}
 
 			for (qw(dbname dbhost dbport dbdriver dbuser dbpasswd)) { $form->{$_} = $user->{$_} }
 
@@ -295,8 +268,6 @@ sub login {
 			print qq|<body>|;
 			print $locale->text('Upgrading to Version [_1] ...', $form->{version});
 
-			# required for Oracle
-			$form->{dbdefault} = $sid;
 
 			$user->dbupdate(\%$form);
 
diff --git a/bin/menu.pl b/bin/menu.pl
old mode 100755
new mode 100644
diff --git a/bin/oe.pl b/bin/oe.pl
old mode 100755
new mode 100644
diff --git a/bin/pe.pl b/bin/pe.pl
old mode 100755
new mode 100644
diff --git a/bin/pos.pl b/bin/pos.pl
old mode 100755
new mode 100644
diff --git a/bin/ps.pl b/bin/ps.pl
old mode 100755
new mode 100644
diff --git a/bin/pw.pl b/bin/pw.pl
old mode 100755
new mode 100644
diff --git a/bin/rc.pl b/bin/rc.pl
old mode 100755
new mode 100644
diff --git a/bin/rp.pl b/bin/rp.pl
old mode 100755
new mode 100644
-- 
cgit v1.2.3