(match record
(('shell command) (serve-shell-command command))
(('eval expression) (serve-expression expression))
+ (('url display-string url)
+ (print #\h display-string "\tURL:" url "\tfake\t80\r"))
((type display-string selector host port)
(print type display-string "\t" selector "\t" host "\t" port "\r"))
((type display-string selector host)
(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)