43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
(tcp-listen (rpc:default-server-port))))
(define (server:client-setup db)
(let* ((hostinfo (db:get-var db "SERVER"))
(hostdat (if hostinfo (string-split hostinfo ":")))
(host (if hostinfo (car hostdat)))
(port (if (and hostinfo (> (length hostdat) 1))(cadr hostdat) #f)))
(rpc:publish-procedure!
'query
host
(lambda (sql callback)
(print "Executing query '" sql "' ...")
(sqlite3:for-each-row
callback
db sql))))
|
|
<
<
<
<
<
<
<
<
|
43
44
45
46
47
48
49
50
|
(tcp-listen (rpc:default-server-port))))
(define (server:client-setup db)
(let* ((hostinfo (db:get-var db "SERVER"))
(hostdat (if hostinfo (string-split hostinfo ":")))
(host (if hostinfo (car hostdat)))
(port (if (and hostinfo (> (length hostdat) 1))(cadr hostdat) #f)))
(set! *runremote* (vector host port))))
|