SF.net SVN: ledger-smb:[4133] branches/1.3/LedgerSMB

[..hidden..]

Revision: 4133
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4133&view=rev
Author:   tshvr
Date:     2011-12-03 12:42:14 +0000 (Sat, 03 Dec 2011)
Log Message:
-----------
mkdir $tempdir moved to Sysconfig,earlier stage to trap this

Modified Paths:
--------------
    branches/1.3/LedgerSMB/Database.pm
    branches/1.3/LedgerSMB/Sysconfig.pm

Modified: branches/1.3/LedgerSMB/Database.pm
===================================================================
--- branches/1.3/LedgerSMB/Database.pm	2011-12-03 11:35:50 UTC (rev 4132)
+++ branches/1.3/LedgerSMB/Database.pm	2011-12-03 12:42:14 UTC (rev 4133)
@@ -36,7 +36,7 @@
 };
 
 my $temp = $LedgerSMB::Sysconfig::tempdir;
- (-d "$temp") ||  system("mkdir -p $temp");
+#(-d "$temp") ||  system("mkdir -p $temp"); moved to Sysconfig, so can be trapped earlier
 
 my $logger = Log::Log4perl->get_logger('LedgerSMB::Database');
 

Modified: branches/1.3/LedgerSMB/Sysconfig.pm
===================================================================
--- branches/1.3/LedgerSMB/Sysconfig.pm	2011-12-03 11:35:50 UTC (rev 4132)
+++ branches/1.3/LedgerSMB/Sysconfig.pm	2011-12-03 12:42:14 UTC (rev 4133)
@@ -202,4 +202,11 @@
 # Backup path
 our $backuppath = $tempdir;
 
+if(-d "$tempdir"){}
+else
+{
+ my $rc=system("mkdir -p $tempdir");#TODO what if error?
+ #$logger->info("created tempdir \$tempdir rc=\$rc"); log4perl not initialised yet!
+ print STDERR localtime()." Sysconfig.pm created tempdir $tempdir rc=$rc\n";
+}
 1;

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