|
|
|
|
@ -122,6 +122,9 @@
|
|
|
|
|
(sleep (sec/mins 9))))
|
|
|
|
|
(loop)))
|
|
|
|
|
|
|
|
|
|
#! As the git repository is no longer updated there is no need to
|
|
|
|
|
establish a job loop or populate the statistics tables asynchronously
|
|
|
|
|
|
|
|
|
|
(begin-thread (with-mutex %json-lock
|
|
|
|
|
(git:fetch)
|
|
|
|
|
(set! mcron-locked (mutex-owner %json-lock))
|
|
|
|
|
@ -129,6 +132,13 @@
|
|
|
|
|
(calculate-strings!))
|
|
|
|
|
(sleep (next-timestamp))
|
|
|
|
|
(job-loop))
|
|
|
|
|
|
|
|
|
|
(sleep 1)
|
|
|
|
|
(while (mutex-locked? %json-lock)
|
|
|
|
|
(sleep 1))
|
|
|
|
|
!#
|
|
|
|
|
|
|
|
|
|
; Functional parts of the asynchronous code above
|
|
|
|
|
(git:fetch)
|
|
|
|
|
(process-stats! $stat-tree)
|
|
|
|
|
(calculate-strings!)
|
|
|
|
|
|