+
+;;; Command line argument parsing
+;;
+
+(define (print-usage progname)
+ (print "Usage: " progname " hostname [port [spooldir]]"))
+
+(define (main)
+ (let ((progname (pathname-file (car (argv))))
+ (args (cdr (argv)))
+ (config (make-config "" 25 "/var/spool/mail")))
+ (if (null? args)
+ (print-usage progname)
+ (begin
+ (config-host-set! config (car args))
+ (unless (null? (cdr args))
+ (config-port-set! config (string->number (cadr args)))
+ (unless (null? (cddr args))
+ (config-spool-dir-set! (caddr args))))
+ (run-server config)))))
+
+(main)
+
+;; (run-server (make-config "thelambdalab.xyz" 2525 "/var/spool/mail"))