Overview
| Comment: | Fixed an issue that would print out a 'skipping dur to packets' warning even if the number of packets had been reached |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
af3a660dfbb6065dafea4b91677da02e |
| User & Date: | jmoon18 on 2019-08-16 18:03:02 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-08-19
| ||
| 14:05 | Made change to allow version numbers to differ with existing servers check-in: f08db11c36 user: jmoon18 tags: v1.65, v1.6533 | |
|
2019-08-16
| ||
| 18:03 | Fixed an issue that would print out a 'skipping dur to packets' warning even if the number of packets had been reached check-in: af3a660dfb user: jmoon18 tags: v1.65 | |
|
2019-08-08
| ||
| 14:47 | Udpated version file to 1.65/32 check-in: 19f2bc121f user: jmoon18 tags: v1.65, v1.6532 | |
Changes
Modified mtut.scm from [1e2f303d96] to [db4fca7b0a].
| ︙ | ︙ | |||
1125 1126 1127 1128 1129 1130 1131 |
;; runtrans)
(print "key-msg: " key-msg)
;;(push-run-spec torun contour
;; (if optional ;; we need to be able to differentiate same contour, different behavior.
;; (conc runkey ":" optional) ;; NOTE: NOT COMPLETELY IMPLEMENTED. DO NOT USE
;; runkey)
;; key-msg)
| > | > > | 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 |
;; runtrans)
(print "key-msg: " key-msg)
;;(push-run-spec torun contour
;; (if optional ;; we need to be able to differentiate same contour, different behavior.
;; (conc runkey ":" optional) ;; NOTE: NOT COMPLETELY IMPLEMENTED. DO NOT USE
;; runkey)
;; key-msg)
)))))
(if (>= packets-generated (configf:lookup mtconf "setup" "max_packets_per_run")) (print "Skipping area: " area " and target: " runkey " due to packets-generated: " packets-generated " higher than " (configf:lookup mtconf "setup" "max_packets_per_run"))))
) (filter (lambda (x) (if (not (args:get-arg "-area")) #t (if (string= x (args:get-arg "-area")) #t #f))) all-areas))
) val-alist)) ;; iterate over the param split by ;\s*
;; fossil scm based triggers
;;
((fossil)
(for-each
(lambda (fspec)
|
| ︙ | ︙ | |||
1372 1373 1374 1375 1376 1377 1378 |
(user (alist-ref 'U pkta))
(area (alist-ref 'G pkta))
(logf (conc logdir "/" uuid "-run.log"))
(fullcmd (conc "NBFAKE_LOG=" logf " nbfake " cmdline)))
(if (check-access user mtconf action area)
(if (and (> cpuload maxload)
(member action '("run" "archive"))) ;; do not run archive or run if load is over the specified limit
| | | 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 |
(user (alist-ref 'U pkta))
(area (alist-ref 'G pkta))
(logf (conc logdir "/" uuid "-run.log"))
(fullcmd (conc "NBFAKE_LOG=" logf " nbfake " cmdline)))
(if (check-access user mtconf action area)
(if (and (> cpuload maxload)
(member action '("run" "archive"))) ;; do not run archive or run if load is over the specified limit
(print "WARNING: cpuload too high, skipping processing of " uuid " due to " cpuload " > " maxload)
(begin
(print "RUNNING: " fullcmd)
(system fullcmd) ;; replace with process ...
(mark-processed pdb (list (alist-ref 'id pktdat)))
(let-values (((ack-uuid ack-pkt)
(add-z-card
(construct-sdat 'P uuid
|
| ︙ | ︙ |