From 62b040336328d99ade41776bd52b1d7cd7298629 Mon Sep 17 00:00:00 2001 From: dale_mellor Date: Sat, 5 Jul 2003 12:13:19 +0000 Subject: Disabled installation of cron, crontab by default. Fixed up all information files to reflect this. --- mcron.scm | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) (limited to 'mcron.scm') diff --git a/mcron.scm b/mcron.scm index b41a88b..08842cd 100644 --- a/mcron.scm +++ b/mcron.scm @@ -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)))) -- cgit v1.2.3