' d='M14,14H2V2h12v12z'/%3E%3Cpath style='fill:rgb(64,64,64)' d='M13,13H3V3h10v10z'/%3E%3Cpath style='fill:rgb(248,248,248)' d='M12,12H4V4h8v8z'/%3E%3Cpath style='fill:rgb(80,128,208)' d='M11,9H5V7h6v6z'/%3E%3C/svg%3E)
' d='M14,14H2V2h12v12z'/%3E%3Cpath style='fill:rgb(64,64,64)' d='M13,13H3V3h10v10z'/%3E%3Cpath style='fill:rgb(248,248,248)' d='M12,12H4V4h8v8z'/%3E%3Cpath style='fill:rgb(80,128,208)' d='M5,7h2v-2h2v2h2v2h-2v2h-2v-2h-2z'/%3E%3C/svg%3E)
Overview
Context
Changes
Modified Makefile
from [9608a7fac5]
to [62190f81bd].
|
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
| 26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
-
+
-
+
| # module source files
MSRCFILES = autoload.scm dbi.scm ducttape-lib.scm pkts.scm stml2.scm \
cookie.scm mutils.scm mtargs.scm apimod.scm \
configfmod.scm commonmod.scm dbmod.scm rmtmod.scm \
debugprint.scm mtver.scm csv-xml.scm servermod.scm \
hostinfo.scm adjutant.scm processmod.scm testsmod.scm \
itemsmod.scm keysmod.scm mtmod.scm rmtmod.scm \
tasksmod.scm pgdb.scm launchmod.o runsmod.scm \
tasksmod.scm pgdb.scm launchmod.scm runsmod.scm \
http-transportmod.scm portloggermod.scm clientmod.scm \
archivemod.scm ezstepsmod.o subrunmod.scm
archivemod.scm ezstepsmod.scm subrunmod.scm
GUISRCF = dashboard-context-menu.scm dashboard-tests.scm \
dashboard-guimonitor.scm gutils.scm dcommon.scm tree.scm \
vg.scm
OFILES = $(SRCFILES:%.scm=%.o)
GOFILES = $(GUISRCF:%.scm=%.o)
|
|
Modified megatest.scm
from [9175824e00]
to [c9b0038b4d].
|
2608
2609
2610
2611
2612
2613
2614
2615
2616
| 2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
|
+
| ((1)(exit 1))
((2)(exit 2))
(else (exit 3)))))
)
)
(import megatest-main)
(main)
|
Modified server.scm
from [98353dafaa]
to [643d5fcda0].
|
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
| 82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
-
+
| ((rpc) (db:obj->string (vector success/fail query-sig result)))
((http) (db:obj->string (vector success/fail query-sig result)))
((fs) result)
(else
(debug:print-error 0 *default-log-port* "unrecognised transport type: " *transport-type*)
result)))
(define (server:record->url servr)
#;(define (server:record->url servr)
(handle-exceptions
exn
(begin
(debug:print-info 0 *default-log-port* "Unable to get server url from " servr ", exn=" exn)
#f)
(match-let (((mod-time host port start-time server-id pid)
servr))
|
|