- (print "Usage:\n"
- progname " -h/--help\n"
- progname " gopher-root-dir server-hostname server-port")
- (let ((root (car args))
- (hostname (cadr args))
- (port (if (= (length args) 3) (string->number (caddr args)) 70)))
- (if port
- (run-server (make-server-config root hostname port))
- (error "Invalid port argument." port))))))
+ (print-usage progname)
+ (begin
+ (if (or (equal? (car args) "-n")
+ (equal? (car args) "--no-footer"))
+ (begin
+ (config-display-footer-set! config #f)
+ (set! args (cdr args))))
+ (print args)
+ (if (or (< (length args) 2)
+ (> (length args) 3))
+ (print-usage progname)
+ (begin
+ (config-root-dir-set! config (car args))
+ (config-host-set! config (cadr args))
+ (if (= (length args) 3)
+ (config-port-set! config (string->number (caddr args))))
+ (run-server config)))))))