diff options
author | dale_mellor <dale_mellor> | 2003-07-05 12:13:19 +0000 |
---|---|---|
committer | dale_mellor <dale_mellor> | 2003-07-05 12:13:19 +0000 |
commit | 62b040336328d99ade41776bd52b1d7cd7298629 (patch) | |
tree | 501d06d9af92555884a0820214a2634bde8a36e9 /mcron.scm | |
parent | 3725aedd02d9b24c1239610066dd62387ef4d5a9 (diff) | |
download | mcron-62b040336328d99ade41776bd52b1d7cd7298629.tar.gz mcron-62b040336328d99ade41776bd52b1d7cd7298629.tar.bz2 mcron-62b040336328d99ade41776bd52b1d7cd7298629.zip |
Disabled installation of cron, crontab by default. Fixed up all information files to reflect this.0.99.1
Diffstat (limited to 'mcron.scm')
-rw-r--r-- | mcron.scm | 15 |
1 files changed, 6 insertions, 9 deletions
@@ -239,8 +239,7 @@ Report bugs to " config-package-bugreport ".\n (display " /var/run/cron.pid.)\n") (primitive-exit 1))) (if (not (option-ref options 'schedule #f)) - (with-output-to-file "/var/run/cron.pid" - (lambda () #t))) + (with-output-to-file "/var/run/cron.pid" noop)) (setenv "MAILTO" #f) (c-set-cron-signals))) @@ -604,19 +603,17 @@ Report bugs to " config-package-bugreport ".\n (use-modules (srfi srfi-2)) (define (process-files-in-system-directory) -;;; (catch #t (lambda () + (catch #t (lambda () (let ((directory (opendir "/var/cron/tabs"))) (do ((file-name (readdir directory) (readdir directory))) ((eof-object? file-name) (closedir directory)) (and-let* ((user (valid-user file-name))) (set! configuration-user user) (read-vixie-file (string-append "/var/cron/tabs/" - file-name))))) -;;; ) -;;; (lambda (key . args) -;;; (display "You do not have permission to access the system crontabs.\n") -;;; (primitive-exit 4))) - ) + file-name)))))) + (lambda (key . args) + (display "You do not have permission to access the system crontabs.\n") + (primitive-exit 4)))) |