|
Lines 16-30
Link Here
|
| 16 |
d-wait |
16 |
d-wait |
| 17 |
d)) |
17 |
d)) |
| 18 |
|
18 |
|
| 19 |
(define *d-socket* "/var/run/alteratord/.socket") |
19 |
(define *d-user* (passwd:name (getpwuid (getuid)))) |
| 20 |
(define *d-user* "root") |
20 |
(define *tmpdir* (string-append (if (string=? *d-user* "root") |
| 21 |
(define *d-group* "_alteratord") |
21 |
"/tmp" |
|
|
22 |
(or (getenv "TMPDIR") "/tmp")) |
| 23 |
"/alterator")) |
| 24 |
(define *d-socket* (string-append *tmpdir* "/.socket")) |
| 25 |
(define *d-group* (if (string=? *d-user* "root") |
| 26 |
"_alteratord" |
| 27 |
*d-user*)) |
| 22 |
(define *d-control* "/etc/rc.d/init.d/alteratord") |
28 |
(define *d-control* "/etc/rc.d/init.d/alteratord") |
| 23 |
(define *d-process* #f) |
29 |
(define *d-process* #f) |
| 24 |
(define *d-restart-service* #f) |
30 |
(define *d-restart-service* #f) |
| 25 |
|
31 |
|
| 26 |
(define *null-port* (open-output-file "/dev/null")) |
32 |
(define *null-port* (open-output-file "/dev/null")) |
| 27 |
|
33 |
|
|
|
34 |
(or (access? *tmpdir* W_OK) (mkdir *tmpdir*)) |
| 35 |
|
| 28 |
;; conversion between text and s-exp |
36 |
;; conversion between text and s-exp |
| 29 |
|
37 |
|
| 30 |
(define (text->scm str) |
38 |
(define (text->scm str) |
