235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
|
(directory-exists? (conc areapath "/logs")))
'()))
;; Get the list of server logs.
(let* (
;; For some reason, when I uncomment the below line, ext-tests sometimes starts 1000's of servers.
;; (exiting-servers (system (conc "bash -c 'rm -f `grep -il exiting " areapath "/logs/server-*-*.log 2> /dev/null`'")))
(server-logs (glob (conc areapath "/logs/server-*-*.log")))
(num-serv-logs (length server-logs)))
(if (or (null? server-logs) (= num-serv-logs 0))
(let ()
(debug:print 2 *default-log-port* "There are no servers running at " (common:human-time))
'()
)
(let loop ((hed (string-chomp (car server-logs)))
|
>
>
>
>
>
>
>
>
>
|
>
>
>
>
|
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
|
(directory-exists? (conc areapath "/logs")))
'()))
;; Get the list of server logs.
(let* (
;; For some reason, when I uncomment the below line, ext-tests sometimes starts 1000's of servers.
;; (exiting-servers (system (conc "bash -c 'rm -f `grep -il exiting " areapath "/logs/server-*-*.log 2> /dev/null`'")))
(server-logs
(handle-exceptions
exn
(begin
(debug:print 0 *default-log-port* "server:get-list: glob failed , exn=" exn)
(thread-sleep! 60)
(system "lsof -c mtest > /tmp/$USER/glob-failed.$$.lsof")
(debug:print 0 *default-log-port* "lsof output saved in /tmp/$USER/glob-failed.$$.lsof")
(thread-sleep! 60)
(glob (conc areapath "/logs/server-*-*.log"))
)
(glob (conc areapath "/logs/server-*-*.log"))
)
)
(num-serv-logs (length server-logs)))
(if (or (null? server-logs) (= num-serv-logs 0))
(let ()
(debug:print 2 *default-log-port* "There are no servers running at " (common:human-time))
'()
)
(let loop ((hed (string-chomp (car server-logs)))
|