Changeset 23480 for trunk/ippTasks/detrend.stack.pro

Timestamp:

Mar 20, 2009, 6:08:06 PM (17 years ago)

Author:

eugene

Message:

move detrend cleanup tasks to new detrend.cleanup.pro

File:

• trunk/ippTasks/detrend.stack.pro (modified) (5 diffs)

trunk/ippTasks/detrend.stack.pro

@@ -7 +7 @@
 
 book init detPendingStackedImfile
-book init detCleanupStackedImfile
 
 macro detstack.reset
   book init detPendingStackedImfile
-  book init detCleanupStackedImfile
 end
 
@@ -17 +15 @@
   echo detPendingStackedImfile
   book listbook detPendingStackedImfile
-  echo detCleanupStackedImfile
-  book listbook detCleanupStackedImfile
 end
 
@@ -26 +22 @@
   end
   task detrend.stack.run
-    active true
-  end
-  task detrend.cleanup.stack.load
-    active true
-  end
-  task detrend.cleanup.stack.run
     active true
   end
@@ -43 +33 @@
     active false
   end
-  task detrend.cleanup.stack.load
-    active false
-  end
-  task detrend.cleanup.stack.run
-    active false
-  end
 end
 
 # this variable will cycle through the known database names
 $detPendingStackedImfile_DB = 0
-$detCleanupStackedImfile_DB = 0
 
 # select images ready for detrend_stack.pl
@@ -182 +165 @@
   end
 end
-
-########## cleanup stack ###########
-task           detrend.cleanup.stack.load
-  host         local
-
-  periods      -poll $LOADPOLL
-  periods      -exec $LOADEXEC
-  periods      -timeout 30
-  npending     1
-  active       true
-
-  stdout NULL
-  stderr $LOGDIR/detrend.cleanup.stack.log
-
-  task.exec
-    $run = dettool -pendingcleanup_stacked
-    if ($DB:n == 0)
-      option DEFAULT
-    else
-      # save the DB name for the exit tasks
-      option $DB:$detCleanupStackedImfile_DB
-      $run = $run -dbname $DB:$detCleanupStackedImfile_DB
-      $detCleanupStackedImfile_DB ++
-      if ($detCleanupStackedImfile_DB >= $DB:n) set detCleanupStackedImfile_DB = 0
-    end
-    add_poll_args run
-    command $run
-  end
-
-  # success
-  task.exit    0
-    # convert 'stdout' to book format
-    ipptool2book stdout detCleanupStackedImfile -key det_id:iteration:class_id -uniq -setword dbname $options:0 -setword pantaskState INIT
-    if ($VERBOSE > 2)
-      book listbook detCleanupStackedImfile
-    end
-
-    # delete existing entries in the appropriate pantaskStates
-    process_cleanup detCleanupStackedImfile
-  end
-
-  # locked list
-  task.exit    default
-    showcommand failure
-  end
-
-  task.exit    crash
-    showcommand crash
-  end
-
-  # operation times out?
-  task.exit    timeout
-    showcommand timeout
-  end
-end
-
-# run the ipp_cleanup.pl script on pending images
-task           detrend.cleanup.stack.run
-  periods      -poll $RUNPOLL
-  periods      -exec $RUNEXEC
-  periods      -timeout 60
-  active       true
-
-  task.exec
-    book npages detCleanupStackedImfile -var N
-    if ($N == 0) break
-    if ($NETWORK == 0) break
-    
-    # look for new images in detCleanupStackedImfile (pantaskState == INIT)
-    book getpage detCleanupStackedImfile 0 -var pageName -key pantaskState INIT
-    if ("$pageName" == "NULL") break
-
-    book setword detCleanupStackedImfile $pageName pantaskState RUN
-    book getword detCleanupStackedImfile $pageName det_id   -var DET_ID   
-    book getword detCleanupStackedImfile $pageName iteration -var ITERATION
-    book getword detCleanupStackedImfile $pageName class_id -var CLASS_ID 
-    book getword detCleanupStackedImfile $pageName camera -var CAMERA
-    book getword detCleanupStackedImfile $pageName state -var CLEANUP_MODE
-    book getword detCleanupStackedImfile $pageName dbname -var DBNAME
-
-    # specify choice of local or remote host based on camera and chip (class_id)
-    set.host.for.camera $CAMERA FPA
-
-    stdout $LOGDIR/detrend.cleanup.stack.log
-    stderr $LOGDIR/detrend.cleanup.stack.log
-
-    # XXX is everything listed here needed?
-    $run = ipp_cleanup.pl --stage detrend.stack.imfile --stage_id $DET_ID --iteration $ITERATION --class_id $CLASS_ID --camera $CAMERA --mode $CLEANUP_MODE
-    add_standard_args run
-
-    # save the pageName for future reference below
-    options $pageName
-
-    # create the command line
-    if ($VERBOSE > 1)
-      echo command $run
-    end
-    command $run
-  end
-
-  # default exit status
-  task.exit    default
-    process_exit detCleanupStackedImfile $options:0 $JOB_STATUS
-  end
-
-  # locked list
-  task.exit    crash
-    showcommand crash
-    echo "hostname: $JOB_HOSTNAME"
-    book setword detCleanupStackedImfile $options:0 pantaskState CRASH
-  end
-
-  # operation timed out?
-  task.exit    timeout
-    showcommand timeout
-    book setword detCleanupStackedImfile $options:0 pantaskState TIMEOUT
-  end
-end
-