AboutSummaryRefsLogTreeCommitDiffStats
path: root/mcron.scm
diff options
context:
space:
mode:
authordale_mellor <dale_mellor>2003-07-05 12:13:19 +0000
committerdale_mellor <dale_mellor>2003-07-05 12:13:19 +0000
commit62b040336328d99ade41776bd52b1d7cd7298629 (patch)
tree501d06d9af92555884a0820214a2634bde8a36e9 /mcron.scm
parent3725aedd02d9b24c1239610066dd62387ef4d5a9 (diff)
downloadmcron-0.99.1.tar.gz
mcron-0.99.1.tar.bz2
mcron-0.99.1.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.scm15
1 files changed, 6 insertions, 9 deletions
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))))