[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 SQLInstall.pm,1.24,1.25

[Chris W. <la...@us...>]

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 );