(serve-selector selector config)))
(print "... served selector '" selector "'. Closing connection."))
(o (exn)
- (print-error-message o out-port)
(print-error-message o)
+ (display "Invalid selector.\r\n.\r\n" out-port)
(print "Error while attempting to serve selector " selector "."))))
(begin
(print "Connection from blacklisted IP. Closing.")
dir-selector config))
((type display-string selector)
(serve-record (list type display-string
- (make-pathname dir-selector selector)
+ (normalize-pathname (make-pathname dir-selector selector))
(config-host config) (config-port config))
dir-selector config))
((display-string selector)