84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
(if pid
(sqlite3:execute mdb "DELETE FROM servers WHERE hostname=? AND pid=?;" hostname pid)
(if port
(sqlite3:execute mdb "DELETE FROM servers WHERE hostname=? AND port=?;" hostname port)
(debug:print 0 "ERROR: tasks:server-deregister called with neither pid nor port specified"))))
(define (tasks:server-deregister-self mdb)
(tasks:server-deregister mdb pid: (current-process-id) (get-host-name)))
(define (tasks:server-get-server-id mdb)
;; dunno yet
0)
(define (tasks:client-register mdb pid hostname cmdline)
(sqlite3:execute
|
|
|
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
(if pid
(sqlite3:execute mdb "DELETE FROM servers WHERE hostname=? AND pid=?;" hostname pid)
(if port
(sqlite3:execute mdb "DELETE FROM servers WHERE hostname=? AND port=?;" hostname port)
(debug:print 0 "ERROR: tasks:server-deregister called with neither pid nor port specified"))))
(define (tasks:server-deregister-self mdb)
(tasks:server-deregister mdb (get-host-name) pid: (current-process-id)))
(define (tasks:server-get-server-id mdb)
;; dunno yet
0)
(define (tasks:client-register mdb pid hostname cmdline)
(sqlite3:execute
|