Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18293
Modified Files:
SQLInstall.pm
Log Message:
cosmetic (logging additions)
Index: SQLInstall.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/SQLInstall.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** SQLInstall.pm 5 Dec 2004 20:46:56 -0000 1.24
--- SQLInstall.pm 24 Jan 2005 17:12:41 -0000 1.25
***************
*** 220,223 ****
--- 220,224 ----
};
if ( $@ ) {
+ $log->error( "Failed to get datasource '$ds_name': $@" );
$self->_set_state( "Set: $structure_set",
undef,
***************
*** 229,235 ****
|| $ds_info->{driver_name};
my @files = $self->_massage_arrayref(
! $self->get_structure_file( $structure_set,
! $driver_name ) );
foreach my $structure_file ( @files ) {
$self->_set_datasource( $structure_file, $ds_name );
--- 230,237 ----
|| $ds_info->{driver_name};
my @files = $self->_massage_arrayref(
! $self->get_structure_file( $structure_set, $driver_name )
! );
foreach my $structure_file ( @files ) {
+ $log->info( "Processing structure file '$structure_file'" );
$self->_set_datasource( $structure_file, $ds_name );
***************
*** 243,246 ****
--- 245,249 ----
if ( $@ or ! $table_sql ) {
my $error = $@ || "File cannot be found or it is empty";
+ $log->error( $error );
$self->_set_state( $full_file,
undef, $error, undef );
***************
*** 254,261 ****
--- 257,267 ----
eval { $ds->do( $full_table_sql ) };
if ( $@ ) {
+ $log->error( "Caught exception ($@) running 'do' on SQL:\n",
+ $full_table_sql );
$self->_set_status( $full_file, undef );
$self->_set_error( $full_file, $@ );
}
else {
+ $log->info( "SQL from '$full_file' processed ok" );
$self->_set_status( $full_file, 1 );
$self->_set_error( $full_file, undef );
|
