X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=lambdamail.git;a=blobdiff_plain;f=lambdamail.scm;h=eb5943c487f18e1cf3321a26b49239e35814214a;hp=25454e15d8bbed3a40a1bb2f54bedd8773700cd9;hb=e46944f2bb36d332fce40ec6c6f83bbe367ac71b;hpb=388c4d83a62d86384b925e112c7106d4e739bd55

diff --git a/lambdamail.scm b/lambdamail.scm
index 25454e1..eb5943c 100644
--- a/lambdamail.scm
+++ b/lambdamail.scm
@@ -293,11 +293,15 @@
 (define (print-usage progname)
   (print "Usage:\n"
          progname " -h/--help\n"
+         progname " -v/--version\n"
          progname " [-u/--user UID] [-g/--group GID] hostname [[port [spooldir]]\n"
          "\n"
          "The -u and -g options can be used to set the UID and GID of the process\n"
          "following the creation of the TCP port listener (which often requires root)."))
 
+(define (print-version)
+  (print lambdamail-version))
+
 (define (main)
   (let ((progname (pathname-file (car (argv))))
         (config (make-config "" 25 "/var/spool/mail" '() '())))
@@ -319,6 +323,9 @@
                  ((or (equal? this-arg "-h")
                       (equal? this-arg "--help"))
                   (print-usage progname))
+                 ((or (equal? this-arg "-v")
+                      (equal? this-arg "--version"))
+                  (print-version))
                  (else
                   (print "Unknown option " this-arg "\n")
                   (print-usage progname)))