198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
|
#f
(begin
(with-output-to-file fname
(lambda ()
(print "You can delete this file")))
(delete-file fname)
#t)))))
;; do some sanity checks on the system
;;
(define (mutils:syscheck)
;; current dir writeable and do megatest.config, runconfigs.config files exist/readable
(print "Current directory " (current-directory) " writeable: "
(if (check-write-create ".") "yes" "no"))
;; home dir writeable
(print "Home directory " (get-environment-variable "HOME") " writeable: " (if (check-write-create (get-environment-variable "HOME")) "yes" "no"))
;; /tmp writeable
(print "/tmp directory writeable: " (if (check-write-create "/tmp") "yes" "no"))
;; load configs
;; each run disk read/write
;; link tree writeable
)
)
|
>
>
>
|
|
|
>
|
>
>
>
>
>
>
>
>
>
>
|
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
|
#f
(begin
(with-output-to-file fname
(lambda ()
(print "You can delete this file")))
(delete-file fname)
#t)))))
;; (define (confirm-ssh-access-to-host hostname)
;; do some sanity checks on the system
;;
(define (mutils:syscheck proc)
;; current dir writeable and do megatest.config, runconfigs.config files exist/readable
(print "Current directory " (current-directory) " writeable: "
(if (check-write-create ".") "yes" "NO"))
;; home dir writeable
(print "Home directory " (get-environment-variable "HOME") " writeable: "
(if (check-write-create (get-environment-variable "HOME")) "yes" "NO"))
;; /tmp writeable
(print "/tmp directory writeable: " (if (check-write-create "/tmp") "yes" "NO"))
;; load configs
(print "$DISPLAY set: " (if (get-environment-variable "DISPLAY")
(conc (get-environment-variable "DISPLAY") " yes")
"NO"))
(print "$DISPLAY accessible? "
(if (eq? (system "xdpyinfo -display $DISPLAY &>/dev/null;") 0)
"yes" "NO"))
;; check load on homehost
;; each run disk read/write
;; link tree writeable
)
)
|