Changeset 29720 for trunk/ippTasks/survey.pro

Timestamp:

Nov 9, 2010, 2:46:22 PM (16 years ago)

Author:

bills

Message:

delete the troublesome task publish.trigger and implement a survey task

File:

• trunk/ippTasks/survey.pro (modified) (13 diffs)

trunk/ippTasks/survey.pro

@@ -32 +32 @@
  book create SURVEY_CHIP_BG
  book create SURVEY_WARP_BG
+ book create SURVEY_PUBLISH
  $haveSurveyBooks = TRUE
 end
@@ -44 +45 @@
 $SURVEY_CHIP_BG_DB = 0
 $SURVEY_WARP_BG_DB = 0
-
-$SURVEY_EXEC = 120
+$SURVEY_PUBLISH_DB = 0
+
+$SURVEY_EXEC = 5
 $SURVEY_POLL = 10
 $SURVEY_TIMEOUT = 600
@@ -77 +79 @@
     active true
   end
+  task survey.publish
+    active true
+  end
 end
 
@@ -105 +110 @@
   end
   task survey.warp.bg
+    active false
+  end
+  task survey.publish
     active false
   end
@@ -355 +363 @@
   book listbook SURVEY_WARP_BG
 end
+
+# user functions to manipulate publish labels
+macro survey.add.publish
+  if ($0 != 3)
+    echo "USAGE: survey.add.publish (label) (client_id)"
+    break
+  end
+  book newpage SURVEY_PUBLISH $1
+  book setword SURVEY_PUBLISH $1 CLIENT_ID $2
+  book setword SURVEY_PUBLISH $1 STATE PENDING
+end
+
+macro survey.del.publish
+  if ($0 != 2)
+    echo "USAGE: survey.del.publish (label)"
+    break
+  end
+  book delpage SURVEY_PUBLISH $1
+end
+
+macro survey.show.publish
+  if ($0 != 1)
+    echo "USAGE: survey.show.publish"
+    break
+  end
+  book listbook SURVEY_PUBLISH
+end
+
 
 task survey.diff
@@ -579 +615 @@
     end
     
-    echo $run
+    # echo $run
     command $run
   end
@@ -651 +687 @@
     end
     
-    echo $run
+    # echo $run
     command $run
   end
@@ -674 +710 @@
   end
 end
+
 
 task survey.addstar
@@ -723 +760 @@
     
     $run = $run -definebyquery -destreaked -label $label -set_dvodb $dvodb -set_minidvodb_group $minidvodb_group -set_minidvodb -set_label $minidvodb_group
-    echo $run
+    # echo $run
     command $run
   end
@@ -934 +971 @@
     end
     
-    echo $run
+    # echo $run
     command $run
   end
@@ -957 +994 @@
   end
 end
+
+
+
 
 task survey.warp.bg
@@ -1004 +1044 @@
     end
     
-    echo $run
+    # echo $run
     command $run
   end
@@ -1027 +1067 @@
   end
 end
+
+task survey.publish
+  host local
+ 
+  periods      -poll $SURVEY_POLL
+  periods      -exec $SURVEY_EXEC
+  periods      -timeout $SURVEY_TIMEOUT
+  npending     1
+
+#  stdout $LOGDIR/survey.publish.log
+#  stderr $LOGDIR/survey.publish.log
+
+  # generate publish runs
+  task.exec
+    book npages SURVEY_PUBLISH -var N
+    if ($N == 0)
+      echo "No labels for processing"
+      break
+    endif
+
+    book getpage SURVEY_PUBLISH 0 -var label -key STATE NEW
+    if ("$label" == "NULL")
+      # All labels have been done --- reset
+      echo "Resetting labels"
+      for i 0 $N
+        book getpage SURVEY_PUBLISH $i -var label
+        book setword SURVEY_PUBLISH $label STATE NEW
+      end
+      book getpage SURVEY_PUBLISH 0 -var label -key STATE NEW
+
+      # Select different database
+      $SURVEY_PUBLISH ++
+      if ($SURVEY_PUBLISH >= $DB:n) set SURVEY_PUBLISH = 0
+    end
+
+    book setword SURVEY_PUBLISH $label STATE DONE
+    book getword SURVEY_PUBLISH $label CLIENT_ID -var client_id
+  
+    $run = pubtool -definerun -label $label -client_id $client_id
+
+    if ($DB:n == 0)
+      option DEFAULT
+    else
+      $run = $run -dbname $DB:$SURVEY_PUBLISH
+      option $DB:$SURVEY_PUBLISH
+    end
+    
+    echo $run
+    command echo $run
+  end
+
+  # success
+  task.exit    0
+    echo "Success"
+  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