Changeset 29614

Timestamp:

Oct 29, 2010, 2:57:30 PM (16 years ago)

Author:

watersc1

Message:

Nebulous diskbalance code.

Location:

trunk/ippTasks

Files:

• Makefile.am (modified) (1 diff)
• diskbalance.pro (modified) (5 diffs)

trunk/ippTasks/Makefile.am

@@ -25 +25 @@
         survey.pro \
         replicate.pro \
+        diskbalance.pro \
         dist.pro \
         dist.cleanup.pro \

trunk/ippTasks/diskbalance.pro

@@ -24 +24 @@
 
 macro balance.on
-  task balance.govern
-    active true
-  end
   task balance.load
     active true
@@ -36 +33 @@
 
 macro balance.off
-  task balance.govern
-    active false
-  end
   task balance.load
     active false
@@ -76 +70 @@
   book setword balanceControl control nSources $1
   book setword balanceControl control mDestinations $2
+end
+
+macro show.balance.numbers
+  book listpage balanceControl control
+  echo "balance so_ids: $BALANCE_SO_ID_START $BALANCE_SO_ID_RANGE"
+end
+
+macro show.balancePending
+  book npages balancePending -var N
+  echo "$N pages in book"
+  book listbook balancePending
 end
 
@@ -168 +173 @@
   periods       -poll 0.5
   periods       -exec 5
-  periods       -timeout 30
+  periods       -timeout 5
+  npending      200 
 
   task.exec
@@ -183 +189 @@
     if ("$pageName" == "NULL") break
 
-    book setwork balancePending $pageName pantaskState RUN
+    book setword balancePending $pageName pantaskState RUN
 
     book getword balancePending $pageName key              -var KEY