SF.net SVN: ledger-smb:[4118] branches/1.3/scripts/setup.pl

[..hidden..]

Revision: 4118
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4118&view=rev
Author:   tshvr
Date:     2011-12-01 11:12:13 +0000 (Thu, 01 Dec 2011)
Log Message:
-----------
todo testing return codes?

Modified Paths:
--------------
    branches/1.3/scripts/setup.pl

Modified: branches/1.3/scripts/setup.pl
===================================================================
--- branches/1.3/scripts/setup.pl	2011-12-01 11:10:28 UTC (rev 4117)
+++ branches/1.3/scripts/setup.pl	2011-12-01 11:12:13 UTC (rev 4118)
@@ -23,6 +23,8 @@
 use LedgerSMB::Database;
 use strict;
 
+my $logger = Log::Log4perl->get_logger('LedgerSMB::Scripts::setup');
+
 sub __default {
 
     my ($request) = @_;
@@ -438,6 +440,7 @@
     use LedgerSMB::Sysconfig;
     my ($request) = @_;
     my $creds = LedgerSMB::Auth::get_credentials();
+    my $rc=0;
 
 
     # ENVIRONMENT NECESSARY
@@ -450,7 +453,8 @@
             company_name => $request->{database},
                 password => $creds->{password}}
     );
-    $database->create_and_load();
+    $rc=$database->create_and_load();#TODO what if createdb fails?
+    $logger->info("create_and_load rc=$rc");
     $database->process_roles('Roles.sql');
 
     #COA Directories

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