(print type display-string "\t" selector "\t" host "\t" port "\r"))
((type display-string selector host)
(serve-record (list type display-string selector host 70)
- dir-selectorconfig))
+ dir-selector config))
((type display-string selector)
(serve-record (list type display-string
(make-pathname dir-selector selector)
(let-values (((in-port out-port id) (process command)))
(serve-info-records (string-chomp (read-string #f in-port) "\n"))))))
-(define (serve-expression expression path config)
+(define (serve-expression expression dir-selector config)
(with-selector-dir
dir-selector config
(lambda ()
(begin
(config-display-footer-set! config #f)
(set! args (cdr args))))
- (print args)
(if (or (< (length args) 2)
(> (length args) 3))
(print-usage progname)
(config-port-set! config (string->number (caddr args))))
(run-server config)))))))
-;; (main)
+(main)
-(define (test)
- (run-server (make-config "gopher-root" "localhost" 70 #t)))
+;; (define (test)
+;; (run-server (make-config "gopher-root" "localhost" 70 #t)))
;; (test)