80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
(define (connect udata dbfname dbtype)
udata)
(define (ping udata host-port)
(let* ((cookie (make-cookie udata))
(res (send-receive udata host-port 'ping "just pinging" (conc (current-seconds)))))
(print "got res=" res)
))
;;======================================================================
;; network utilities
;;======================================================================
(define (rate-ip ipaddr)
|
>
|
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
(define (connect udata dbfname dbtype)
udata)
(define (ping udata host-port)
(let* ((cookie (make-cookie udata))
(res (send-receive udata host-port 'ping "just pinging" (conc (current-seconds)))))
(print "got res=" res)
(equal? res cookie)
))
;;======================================================================
;; network utilities
;;======================================================================
(define (rate-ip ipaddr)
|