- (print "Usage:\n"
- progname " -h/--help\n"
- progname " [-n/--no-footer] [-u/--user UID] [-g/--group GID] root-dir hostname [port]\n"
- "\n"
- "The -n option tells the server to not display a directory footer.\n"
- "The -u and -g can be used to set the UID and GID of the process following\n"
- "the creation of the TCP port listener (which often requires root)."))
+ (let ((indent-str (make-string (string-length progname) #\space)))
+ (print "Usage:\n"
+ progname " -h/--help\n"
+ progname " [-n/--no-footer] [-u/--user UID] [-g/--group GID]\n"
+ indent-str " [-b/--blacklist FILE] [-r/--blacklist-resp RESPFILE] root-dir hostname [port]\n"
+ "\n"
+ "The -n option tells the server to not display a directory footer.\n"
+ "The -u and -g can be used to set the UID and GID of the process following\n"
+ "the creation of the TCP port listener (which often requires root).\n"
+ "The -b option can be used to specify a FILE containing a list of IP addresses\n"
+ "to block from the server. If a connection from a blocked address is served,\n"
+ "the response file RESPFILE is served instead, if this is provided.")))