dmbcs/mcron
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

All changes from 0.99.1 to 0.99.2 pre-release.

Browse source
This commit is contained in:
dale_mellor 2003-07-20 15:52:35 +00:00
commit 2c6cfc753d
13 changed files with 399 additions and 331 deletions
Download patch file Download diff file Expand all files Collapse all files

22
crontab.scm
View file

@ -30,15 +30,10 @@
(define (hit-server user-name)
(catch #t (lambda ()
(let ((server-pid (with-input-from-file "/var/run/cron.pid"
(lambda () (string->number (read-line))))))
(catch #t (lambda ()
(with-output-to-file "/var/cron/update" (lambda ()
(display user-name)(newline))))
(lambda (key . args)
(display "Cannot write to /var/cron/update.\n")
(primitive-exit 14)))
(kill server-pid SIGHUP)))
(let* ((socket (socket AF_UNIX SOCK_STREAM 0)))
(connect socket AF_UNIX "/var/cron/socket")
(display user-name socket)
(close socket)))
(lambda (key . args)
(display "Warning: a cron daemon is not running.\n"))))
@ -145,14 +140,13 @@
;; crontab, wake the cron daemon up, and remove the temporary file.
((option-ref options 'edit #f)
(let ((temp-file (string-append "/tmp/crontab." (number->string (getpid))))
(editor (cond ((getenv "VISUAL") (getenv "VISUAL"))
((getenv "EDITOR") (getenv "EDITOR"))
(else "vi"))))
(let ((temp-file (string-append "/tmp/crontab." (number->string (getpid)))))
(catch #t (lambda () (copy-file crontab-file temp-file))
(lambda (key . args) (with-output-to-file temp-file noop)))
(chown temp-file (getuid) (getgid))
(system (string-append editor " " temp-file))
(system (string-append (or (getenv "VISUAL") (getenv "EDITOR") "vi")
" "
temp-file))
(read-vixie-file temp-file)
(copy-file temp-file crontab-file)
(delete-file temp-file)