Megatest

Check-in [aa94695956]
Login
Overview
Comment:updated call to execute listner script to process run as system call was bloacking the rest of the process
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: aa94695956a625174f6d85c2f566a81c4107867e
User & Date: pjhatwal on 2018-05-21 16:01:21
Other Links: branch diff | manifest | tags
Context
2018-05-21
16:38
change method of launching logpro with explicit sh -c "logpro ..." to avoid unfortunate $SHELL interactions; add support for env var $LOGPRO_EXE to override logpro in $PATH if necessary to aid future debug check-in: 5cda9f7346 user: bjbarcla tags: v1.65
16:01
updated call to execute listner script to process run as system call was bloacking the rest of the process check-in: aa94695956 user: pjhatwal tags: v1.65
15:41
bump max homehost load from 1.2 to 2.0 to keep server from squeching requests too early check-in: 03d9a6fefa user: bjbarcla tags: v1.65
Changes

Modified mtut.scm from [b905e19be8] to [dc1f744eed].

1443
1444
1445
1446
1447
1448
1449
1450



1451
1452
1453
1454
1455
1456
1457
1443
1444
1445
1446
1447
1448
1449

1450
1451
1452
1453
1454
1455
1456
1457
1458
1459







-
+
+
+







                               (system (conc "kill " pid))))  
                             (begin
															   (debug:print 0 *default-log-port* ctime " received " instr )
																;(nn-send rep "ok")
                                (if (not (equal? instr "ping"))
                                  (begin
                                   (debug:print 0 *default-log-port* ctime " running \"" script " " instr "\"")
                                    (system (conc script " '" instr "'")))))))
                                    ;(system (conc script " '" instr "'"))
                                      (process-run script (list (conc "'" instr "'")))  
                                     (debug:print 0 *default-log-port* ctime " done" ))))))
                           (loop (nn-recv rep))))
		       (print "ERROR: Port " portnum " already in use. Try another port")))))))
      ((gather) ;; gather all area db's into /tmp/$USER_megatest/alldbs
       (let* ((mtconfdat (simple-setup (args:get-arg "-start-dir")))
              (mtconf    (car mtconfdat))
              (areas     (get-area-names mtconf)))
         (print "areas: " areas)))