diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2015-07-21 16:23:52 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-05-07 11:32:19 +0200 |
| commit | 8f136b3d67966a1a72cadd74fdad850e24797a4c (patch) | |
| tree | 9f5bf090a4589f1b6af8fdb36150e97162f35178 | |
| parent | 2dd8fa9d8f4cc23f4a02a41c2b7898e5c8143e54 (diff) | |
| download | mcron-8f136b3d67966a1a72cadd74fdad850e24797a4c.tar.gz mcron-8f136b3d67966a1a72cadd74fdad850e24797a4c.tar.bz2 mcron-8f136b3d67966a1a72cadd74fdad850e24797a4c.zip | |
main: Add 'show-package-information' procedure.
* scm/mcron/main.scm (show-package-information): New procedure.
| -rw-r--r-- | scm/mcron/main.scm | 17 |
1 files changed, 12 insertions, 5 deletions
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: <http://www.gnu.org/gethelp/>\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))) |