SF.net SVN: ledger-smb: [1000] trunk/bin

[..hidden..]

Revision: 1000
          http://svn.sourceforge.net/ledger-smb/?rev=1000&view=rev
Author:   einhverfr
Date:     2007-03-24 10:38:32 -0700 (Sat, 24 Mar 2007)

Log Message:
-----------
Removing executable bit from bin/*.pl

Modified Paths:
--------------
    trunk/bin/login.pl

Property Changed:
----------------
    trunk/bin/aa.pl
    trunk/bin/admin.pl
    trunk/bin/am.pl
    trunk/bin/ap.pl
    trunk/bin/ar.pl
    trunk/bin/arap.pl
    trunk/bin/arapprn.pl
    trunk/bin/bp.pl
    trunk/bin/ca.pl
    trunk/bin/cp.pl
    trunk/bin/ct.pl
    trunk/bin/gl.pl
    trunk/bin/hr.pl
    trunk/bin/ic.pl
    trunk/bin/io.pl
    trunk/bin/ir.pl
    trunk/bin/is.pl
    trunk/bin/jc.pl
    trunk/bin/login.pl
    trunk/bin/menu.pl
    trunk/bin/oe.pl
    trunk/bin/pe.pl
    trunk/bin/pos.pl
    trunk/bin/ps.pl
    trunk/bin/pw.pl
    trunk/bin/rc.pl
    trunk/bin/rp.pl


Property changes on: trunk/bin/aa.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/admin.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/am.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/ap.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/ar.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/arap.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/arapprn.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/bp.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/ca.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/cp.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/ct.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/gl.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/hr.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/ic.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/io.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/ir.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/is.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/jc.pl
___________________________________________________________________
Name: svn:executable
   - 

Modified: trunk/bin/login.pl
===================================================================
--- trunk/bin/login.pl	2007-03-24 17:36:04 UTC (rev 999)
+++ trunk/bin/login.pl	2007-03-24 17:38:32 UTC (rev 1000)
@@ -236,41 +236,12 @@
 
 	$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,10 +251,12 @@
 
 		if ($errno == 4) {
 			# upgrade dataset and log in again
+			if (!$LedgerSMB::Sysconfig::db_autoupdate){
+				$form->error(
+					$locale->text("Dabase Version too Old")
+				);
+			}
 
-			#locking needs to be done via db function
-			#open FH, '>', "${LedgerSMB::Sysconfig::userspath}/nologin" or $form->error($!);
-
 			for (qw(dbname dbhost dbport dbdriver dbuser dbpasswd)) { $form->{$_} = $user->{$_} }
 
 			$form->{dbpasswd} = unpack 'u', $form->{dbpasswd};
@@ -295,8 +268,6 @@
 			print qq|<body>|;
 			print $locale->text('Upgrading to Version [_1] ...', $form->{version});
 
-			# required for Oracle
-			$form->{dbdefault} = $sid;
 
 			$user->dbupdate(\%$form);
 


Property changes on: trunk/bin/login.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/menu.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/oe.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/pe.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/pos.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/ps.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/pw.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/rc.pl
___________________________________________________________________
Name: svn:executable
   - 


Property changes on: trunk/bin/rp.pl
___________________________________________________________________
Name: svn:executable
   - 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.