Changeset 27035 for trunk/ippTasks/rcserver.pro

Timestamp:

Feb 22, 2010, 4:46:26 PM (16 years ago)

Author:

bills

Message:

remove rcserer.checkstatus tasks. They aren't being used

File:

• trunk/ippTasks/rcserver.pro (modified) (5 diffs)

trunk/ippTasks/rcserver.pro

@@ -9 +9 @@
 ### Initialise the books containing the tasks to do
 book init rcPendingFS
-book init rcPendingDest
 
 ### Database lists
 $rcPendingFS_DB = 0
-$rcPendingDest_DB = 0
 
 ### Check status of tasks
 macro rcserver.status
   book listbook rcPendingFS
-  book listbook rcPendingDest
 end
 
@@ -24 +21 @@
 macro rcserver.reset
   book init rcPendingFS
-  book init rcPendingDest
 end
 
@@ -35 +31 @@
     active true
   end
-  task rcserver.checkstatus.load
-    active true
-  end
-  task rcserver.checkstatus.run
-    active true
-  end
 end
 macro rcserver.off
@@ -47 +37 @@
   end
   task rcserver.makefileset.run
-    active false
-  end
-  task rcserver.checkstatus.load
-    active false
-  end
-  task rcserver.checkstatus.run
     active false
   end
@@ -172 +156 @@
   end
 end
-
-
-task           rcserver.checkstatus.load
-  host         local
-
-  periods      -poll $LOADPOLL
-#  periods      -exec $LOADEXEC
-  periods      -exec 20
-  periods      -timeout 30
-  npending     1
-
-  stdout NULL
-  stderr $LOGSUBDIR/rcserver.checkstatus.load.log
-
-  task.exec
-    $run = disttool -pendingdest
-    if ($DB:n == 0)
-      option DEFAULT
-    else
-      # save the DB name for the exit tasks
-      option $DB:$rcPendingDest_DB
-      $run = $run -dbname $DB:$rcPendingDest_DB
-      $rcPendingDest_DB ++
-      if ($rcPendingDest_DB >= $DB:n) set rcPendingDest_DB = 0
-    end
-    add_poll_args run
-    add_poll_labels run
-    command $run
-  end
-
-  # success
-  task.exit    0
-    # convert 'stdout' to book format
-    ipptool2book stdout rcPendingDest -key dest_id -uniq -setword dbname $options:0 -setword pantaskState INIT
-    if ($VERBOSE > 2)
-      book listbook rcPendingDest
-    end
-
-    # delete existing entries in the appropriate pantaskStates
-    process_cleanup rcPendingDest
-  end
-
-  # locked list
-  task.exit    default
-    showcommand failure
-  end
-
-  # operation times out?
-  task.exit    timeout
-    showcommand timeout
-  end
-end
-
-task           rcserver.checkstatus.run
-  periods      -poll $RUNPOLL
-  periods      -exec $RUNEXEC
-  periods      -timeout 60
-
-  periods      -exec 20
-
-  task.exec
-    book npages rcPendingDest -var N
-    if ($N == 0) break
-    if ($NETWORK == 0) break
-    
-    # look for new components to process (pantaskState == INIT)
-    book getpage rcPendingDest 0 -var pageName -key pantaskState INIT
-    if ("$pageName" == "NULL") break
-
-    stdout NULL
-    stderr $LOGSUBDIR/rcserver.checkstatus.run.log
-
-    book setword rcPendingDest $pageName pantaskState RUN
-    book getword rcPendingDest $pageName dest_id -var DEST_ID
-    book getword rcPendingDest $pageName dest_id -var DEST_ID
-    book getword rcPendingDest $pageName status_uri -var STATUS_URI
-    book getword rcPendingDest $pageName last_fileset -var LAST_FILESET
-    book getword rcPendingDest $pageName dbname -var DBNAME
-
-    host anyhost
-
-    $run = rcserver_checkstatus.pl --dest_id $DEST_ID --dest_id $DEST_ID --status_uri $STATUS_URI --last_fileset $LAST_FILESET
-    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 rcPendingDest $options:0 $JOB_STATUS
-  end
-
-  # operation timed out?
-  task.exit    timeout
-    showcommand timeout
-    book setword rcPendingDest $options:0 pantaskState TIMEOUT
-  end
-end
-