openinteract-commits

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

Update of /cvsroot/openinteract/OpenInteract2/script
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14875

Modified Files:
	oi2_manage 
Log Message:
debugging updates

Index: oi2_manage
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/script/oi2_manage,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -d -r1.29 -r1.30
*** oi2_manage	5 Dec 2004 19:33:13 -0000	1.29
--- oi2_manage	25 Jan 2005 02:48:10 -0000	1.30
***************
*** 78,82 ****
  
      if ( $OPT_debug ) {
!         my $log_level = ( $OPT_debug == 1 ) ? $DEBUG : $INFO;
          $log->level( $log_level );
      }
--- 78,82 ----
  
      if ( $OPT_debug ) {
!         my $log_level = ( $OPT_debug ) ? $DEBUG : $INFO;
          $log->level( $log_level );
      }
***************
*** 164,179 ****
      eval { $task->execute };
      if ( $@ ) {
!         my $error = $@;
!         $log->error( "Caught exception during task execution: $error" );
!         for ( 0..10 ) {
!             my ( $pkg, $file, $line, $sub ) = caller( $_ );
!             $log->error( "Call $_: $pkg, $file, $line, $sub" );
          }
          outl( 'Caught exception during task execution.' );
!         if ( $error->isa( 'OpenInteract2::Exception::Parameter' ) ) {
!             outl( show_parameter_error( $error ) );
          }
          else {
!             outl( "$error\n" );
          }
          exit(1);
--- 164,181 ----
      eval { $task->execute };
      if ( $@ ) {
!         my $task_error = $@;
!         $log->error( "Caught exception during task execution: $task_error" );
!         $log->error( "Contents of task:\n", Dumper( $task ) );
!         foreach my $step ( 0..10 ) {
!             my ( $pkg, $file, $line, $sub ) = caller( $step );
!             next unless ( $pkg );
!             $log->error( "Call $step: $pkg, $file, $line, $sub" );
          }
          outl( 'Caught exception during task execution.' );
!         if ( ref $task_error and $task_error->isa( 'OpenInteract2::Exception::Parameter' ) ) {
!             outl( show_parameter_error( $task_error ) );
          }
          else {
!             outl( "$task_error\n" );
          }
          exit(1);