+(define (serve-url selector config)
+ (let ((url (substring selector 4)))
+ (print
+ "If you are seeing this page, your gopher browser does not\r\n"
+ "properly support URL directory entries or cannot follow such\r\n"
+ "links. To view the link you requested, use a web browser to\r\n"
+ "open the follwing url:\r\n"
+ "\r\n"
+ url "\r\n")))
+
+