Changeset 30246

Timestamp:

Jan 12, 2011, 1:35:09 PM (15 years ago)

Author:

watersc1

Message:

forgot a date method

File:

• tags/ipp-20101215/ippTasks/register.pro (modified) (6 diffs)

tags/ipp-20101215/ippTasks/register.pro

@@ -9 +9 @@
 book init regPendingExp
 book init regPendingBurntoolImfile
+book init regDates
 
 macro register.reset
@@ -14 +15 @@
   book init regPendingExp
   book init regPendingBurntoolImfile
+  book init regDates
 end
 
@@ -21 +23 @@
   book listbook regPendingExp
   book listbook regPendingBurntoolImfile
+  book listbook regDates
 end
 
@@ -100 +103 @@
   end
 end
+
+macro register.add.date
+  if ($0 != 2) 
+    echo "USAGE: register.add.date (YYYY-MM-DD)"
+    break
+  end
+
+   book newpage regDates $1
+   book setword regDates $1 nsState NEW
+   book setword regDates $1 dbname $DB:0 
+end
+
 
 $valid_burntool_value = 14
@@ -547 +562 @@
   # select entried from the current DB; cycle to the next DB, if it exists
   task.exec
-     book npages nsData -var Npages
+     book npages regDates -var Npages
      if ($Npages == 0) 
        $today = `date -u +%Y-%m-%d`
      else 
-       book getpage nsData $ns_datePAGE -var today
-       $ns_datePAGE ++
-       if ($ns_datePAGE >= $Npages) set ns_datePAGE = 0
+       book getpage regDates $reg_datePAGE -var today
+       $reg_datePAGE ++
+       if ($reg_datePAGE >= $Npages) set reg_datePAGE = 0
      end
 
@@ -669 +684 @@
 end
 
-    
+task   register.initday.load
+  host            local
+  periods         -poll $LOADPOLL
+  periods         -exec $LOADEXEC
+  periods         -timeout 30
+  trange          0:00:00 1:00:00 -nmax 1
+  npending        1
+
+  task.exec
+    $today = `date -u +%Y-%m-%d`
+    book newpage regDates $today
+    book setword regDates $today nsState NEW
+    book setword regDates $today dbname $DB:0
+
+    command true
+  end
+
+  task.exit       0
+    # nothing to do here?
+  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
+