From 8f136b3d67966a1a72cadd74fdad850e24797a4c Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Tue, 21 Jul 2015 16:23:52 +0200 Subject: main: Add 'show-package-information' procedure. * scm/mcron/main.scm (show-package-information): New procedure. --- scm/mcron/main.scm | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) (limited to 'scm') diff --git a/scm/mcron/main.scm b/scm/mcron/main.scm index db321cf..f5e9e3e 100644 --- a/scm/mcron/main.scm +++ b/scm/mcron/main.scm @@ -139,6 +139,15 @@ There is NO WARRANTY, to the extent permitted by law.\n" (when (option-ref options 'version #f) (show-version)) +(define (show-package-information) + "Display where to get help and send bug reports." + (simple-format #t "\nReport bugs to: ~a.\n +~a home page: <~a>\n +General help using GNU software: \n" + config-package-bugreport + config-package-name + config-package-url)) + ;; If the user asked for the help text of this program, give it to him and get ;; out. @@ -181,11 +190,9 @@ reading all the information in the users' crontabs and in /etc/crontab.\n " -l (list user's crontab)\n" " -r (delete user's crontab)\n")) - (else "rubbish")) - -"\n\n -Report bugs to " config-package-bugreport ".\n -")) + (else "rubbish")))) + (newline) + (show-package-information) (quit))) -- cgit v1.2.3