This is an egg for CHICKEN 4, the unsupported old release. You're almost certainly looking for the CHICKEN 5 version of this egg, if it exists.
If it does not exist, there may be equivalent functionality provided by another egg; have a look at the egg index. Otherwise, please consider porting this egg to the current version of CHICKEN.
phricken is a flexible Gopher server implemented on top of the gopher extension.
The phricken egg provides a high-level interface to the Gopher protocol, along with a Gopher server. Client requests are passed to a configurable chain of handlers, giving you complete control over the meaning of Gopher selectors. Handlers are included for URLs, files, directory listings, and Scheme gophermap files (an S-expression syntax for Gopher response entries). You may also define new handlers and attach them wherever you like in the selector space. Finally, detailed logging is performed by default.
- make-entry type name sel #!optional (host h) (port p)procedure
- make-info-entry #!rest msgprocedure
- make-error-entry #!rest msgprocedure
- make-url-entry name urlprocedure
make-entry creates a record consisting of the five main fields in RFC 1436, in the fashion of gopher#make-entry. Here, the host and port fields are optional and will be filled in from the (host) and (port) module parameters. Fields may be of any type, as they are converted to strings via ->string before sending.
The other three procedures are convenience functions creating entries of type i, 3 and h respectively. As in pygopherd, info and error entries have their selectors set to "fake", hosts to "(NULL)", and ports to "0".
(make-entry 'I "Picture of me" "/me.jpg") (make-info-entry "There are " time-til-boom " seconds until self-destruct")
- sgm->entry exprprocedure
(i "Blog entry for " y "-" m "-" d) (1 "Public directory" "/pub") (h "3e8.org hypertext service" "http://3e8.org")
Entries are meant to look exactly like you'd expect a gophermap to look if implemented using s-expressions, instead of the more typical flat file. However, the exact behavior is dictated by the sgm-rules.
sgm-rules is an alist mapping a type symbol to a transformer procedure. To transform, the appropriate procedure is looked up using the first field (type), and then the entire entry is passed to the procedure via apply. It is therefore natural to use the existing make-entry family of procedures here.
Here's the default definition of sgm-rules:
(define sgm-rules (make-parameter `((*default* . ,make-entry) (i . ,(lambda (type . msg) (apply make-info-entry msg))) (3 . ,(lambda (type . msg) (apply make-error-entry msg))) (h . ,(lambda (type name url) (make-url-entry name url))) )))
If the entry type is not found, the rule *default* is consulted; an error is signaled if no rules match.
- send-entry eprocedure
Sends one entry to the client. e may be an entry record or an sgm entry (s-expr), which is automatically converted into an entry record.
(send-entry `(3 "Invalid selector " ,selector))
- send-entries Lprocedure
Sends multiple entries to the client, using send-entry.
(send-entries `((i "Chat log") (i "--------") (i) ,@(map (lambda (x) `(i ,(utc-seconds->string (car x)) " | " ,(cadr x))) (read-file (chatfile))) (i) (7 "Say" ,(request-selector req)) (1 "Refresh" ,(request-selector req)) (1 "Go home" "")))
- handle-request selector extraprocedure
- request selector matches extrarecord
It executes the handlers in (handlers) in order until one returns a true value. If a handler throws an exception, processing terminates immediately, a generic internal server error is sent to the user, the error is logged, and the exception is re-signaled.
Each handler is passed a request record. The selector and extra fields are taken directly from the arguments to handle-request (see gopher#accept for an explanation). The matches field is initially the empty list, but may be modified by the matcher procedures, which perform a regex match on the selector and set matches to the submatch results.
- handle-open-dir rootprocedure
Returns a handler which generates a directory listing for any directory under document root ROOT, using filenames->entries to determine how to generate an entry for each filename.
Expects to be attached to a resource (path is second submatch).
(match-resource "/pub/www" (handle-dir "/var/www/myhost/pub")) ; Now selector /pub/www/files sends an index of the ; directory /var/www/myhost/pub/files
- handle-file rootprocedure
Returns a file handler for the document root at ROOT. The filename path will be taken from the request's second submatch and so is generally wrapped in a match-resource.
This handler sends every file via gopher#send-binary-file, even type 0 text files. This seems to be okay with modern (ahem) Gopher clients, which are less stringent about a terminating full-stop and don't require lines end in CRLF. Clients therefore receive a verbatim representation of the text file instead of a transformed one, as you would over the web. If you wish to treat text files separately, you might define a similar handler which uses extension-type to distinguish between text and binary files.
(match-resource "/pub/www" (handle-file "/var/www/myhost/pub")) ; Now selector /pub/www/todo.txt sends /var/www/myhost/pub/todo.txt
- handle-sgm rootprocedure
- sgm-filename index.sgmparameter
Serves up Scheme gophermaps. If sgm-filename exists in the directory indicated by the selector (relative to ROOT), read the file contents as a Scheme Gophermap and send the results. The file is read with read-file.
Expects to be attached to a resource (path is second submatch).
(match-resource "" (handle-sgm "/var/phricken/root")) ; An access to /pix/index.sgm will now render the ; contents of /var/phricken/root/pix/index.sgm
where index.sgm might contain:
(i "My pictures") (i "-----------") (I "Me at the Apollo" "/pix/apollo.jpg") (I "Me at Carnegie Hall" "/pix/carnegie.jpg")
- url-redirect-time 0parameter
A handler which sends a meta redirect HTML page to the user. The destination URL comes from the request's first submatch, so this is usually used with match-url.
url-redirect-time can be parameterized to set the content refresh time.
The matcher procedures act as handler "gatekeepers". They take an existing handler and return a new handler which performs a regular expression match on the selector before proceeding with the original handling. If the match fails, #f is immediately returned.
This allows you to 'mount' a handler anywhere you want in selector space. The request record is also updated with any regex submatch information, which is required by some handlers.
- match-selector rx handlerprocedure
Returns a new handler that matches the incoming request selector against regex RX using string-match, and calls HANDLER with the request object. Any submatches will be added to the matches field of the request (i.e., it is the CDR of the result of string-match).
- match-resource resource handlerprocedure
Returns a handler that matches a selector "resource" -- this is just a shortcut for match-selector, matching the directory (posix-string or SRE) you provide as "resource", plus optional subdirectory path.
- match-url handlerprocedure
Convenience matcher for URL:xxx selectors; the first submatch will be the URL, as expected by handle-url.
These handler helpers are used by handle-open-dir, and can also be used in your own handlers.
- extension-type extprocedure
Convert a filename extension EXT (a case-insensitive string) to a Gopher entry type (a symbol) using extension-type-map.
(extension-type (pathname-extension "me.jpg")) ; => I
Case-insensitive map of file extension (as symbol) to 1-character Gopher entry type (as symbol).
(define extension-type-map (make-parameter `((txt . 0) (log . 0) (scm . 0) (sgm . 0) (c . 0) (h . 0) (png . I) (gif . g) (jpg . I) (svg . I))))
entry>entry> dir fn dir-selprocedure
Convert pathname into a Gopher entry. DIR is the directory on disk; FN is the file's basename; DIR-SEL is the selector corresponding to DIR.
Returns an entry object or an SGM entry; either is permissible. Generated entries need not be file entries; they might be, for example, info entries!
The default value is a procedure that maps directories to type 1, other files based on extension-type-map, and defaults to binary type 9. Symbolic links are currently ignored.
- filenames->entries dir basenames dir-selprocedure
DIR is the containing directory on disk; BASENAMES are the basenames of the files, such as those provided via the (directory dir) call; DIR-SEL is the absolute selector corresponding to this directory (not relative to any resource).
- any-handler #!rest handlersprocedure
Returns a handler which executes HANDLERS in order and returns the first true value, or #f. Useful when you have more than one handler you'd like to try against a particular matched selector.
- bind-fs sel rootprocedure
Utility function which 'mounts' fs ROOT on resource selector SEL with default filesystem handlers.
(define (bind-fs sel root) (match-resource sel (any-handler (handle-sgm root) (handle-open-dir root) (handle-file root))))
- sanitize-filename fnprocedure
Sanitize filename FN; currently just removes any references to a parent directory "..".
- selector->filename s rootprocedure
Converts a selector string into a filename string by prepending the ROOT path. Also confirms the file exists and the user has read permission. Returns #f on failure.
- send-line lineprocedure
Send a single line to the client, and terminate it with a CRLF.
Send an end-of-transmission indicator to the client, which is simply a period on a line by itself.
- utc-seconds->string secondsprocedure
Convert seconds since UNIX epoch into a UTC time string suitable for logging.
(utc-seconds->string (current-seconds)) ;=> "2009-02-13 21:32:18"
- logger-impl type req #!rest msgprocedure
The default logger implementation logs a formatted message to (logger-port), by default (current-error-port), or skips logging if the port is #f. No locking is performed. Seek to EOF is not done on write because some ports do not support seeking; therefore, files should be opened in append mode, as in (open-output-file file #:append).
It is legal for req to be #f if a request has not yet been created--for example, upon early error, or initial connect.
type can be any symbol; current types are 'connect, 'access, 'error, 'redirect. By default, types are not treated specially, just displayed in the log message.
- port 70parameter
- listen-address #fparameter
host and port are used in make-entry as the default hostname and port, and port is used in start-server! to determine which port to listen on. Note that host must be a DNS name which clients can resolve to reach your machine. host defaults to the value of (get-host-name).
listen-address is the IP address to listen on (bind to), as a string, or #f for the unspecified address.
client-ip is read-only; you can read it inside a handler to determine the IP address of the remote end.
- phricken-user #!optional userparameter
- phricken-group #!optional groupparameter
start-server! will switch to the specified user and group after opening the listen socket, allowing you to run unprivileged while listening on a privileged port. If #f, the default, then no switch is done.
- start-server! #!optional (bg #f)procedure
If optional BG is #t, the server will itself be started in a new thread, allowing you to debug at the REPL.
The tcp6 extension is used to permit IPv6 support, so tcp6 parameters such as tcp-bind-ipv6-only and tcp-buffer-size are applicable.
Other than the inline examples in this document, there is an operational phricken server running at gopher://3e8.org and gopher://ipv6.3e8.org. It implements several custom handlers, a simple config file, listening on multiple addresses and IPv6 support.
The example source code is also available in the egg.
- 1.2 Avoid seek to EOF when logging; implement user and group switching (patches from Kooda)
- 1.1 IPv6 support; listen-address
- 1.0 Initial release
Copyright (c) 2009-2011 Jim Ursetto. All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. Neither the name of the author nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.