Megatest

Diff
Login

Differences From Artifact [2f13b51de5]:

To Artifact [3296395607]:


1643
1644
1645
1646
1647
1648
1649
1650

1651
1652
1653
1654
1655
1656
1657
			       (delete-file* "do-not-run-mtutil-go")))
			 (let loop ((last-run (- (current-seconds) (+ period 10))) ;; fake out first time in 
				    (this-run (current-seconds)))
			   (if (file-exists? "do-not-run-mtutil-go")
			       (exit))
			   (let ((delta (- this-run last-run)))
			     (if (>= delta period)
				 (begin

				   (print "Running import at " (current-seconds))
				   (common:load-pkts-to-db mtconf)
				   (print "Running generate run pkts at " (current-seconds))
				   (generate-run-pkts mtconf toppath)
				   (print "Running run dispatch at " (current-seconds))
				   (common:load-pkts-to-db mtconf)
				   (dispatch-commands mtconf toppath)







|
>







1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
			       (delete-file* "do-not-run-mtutil-go")))
			 (let loop ((last-run (- (current-seconds) (+ period 10))) ;; fake out first time in 
				    (this-run (current-seconds)))
			   (if (file-exists? "do-not-run-mtutil-go")
			       (exit))
			   (let ((delta (- this-run last-run)))
			     (if (>= delta period)
				 (let* ((mtconfdat (simple-setup (args:get-arg "-start-dir")))
					(mtconf    (car mtconfdat)))
				   (print "Running import at " (current-seconds))
				   (common:load-pkts-to-db mtconf)
				   (print "Running generate run pkts at " (current-seconds))
				   (generate-run-pkts mtconf toppath)
				   (print "Running run dispatch at " (current-seconds))
				   (common:load-pkts-to-db mtconf)
				   (dispatch-commands mtconf toppath)