From aeeeea79c1210a623c4c76a83f9369e0a753fbb8 Mon Sep 17 00:00:00 2001 From: sperber Date: Tue, 27 Aug 2002 09:03:22 +0000 Subject: [PATCH] Add copyright notice. --- scheme/ftpd/ftpd.scm | 9 ++++++--- scheme/httpd/access-control.scm | 6 +++++- scheme/httpd/cgi-server.scm | 5 +++++ scheme/httpd/error.scm | 5 +++++ scheme/httpd/file-dir-handler.scm | 9 +++++++++ scheme/httpd/handle-fatal-error.scm | 5 +++++ scheme/httpd/http-top.scm | 9 +++++++-- scheme/httpd/info-gateway.scm | 5 +++++ scheme/httpd/logging.scm | 8 +++++++- scheme/httpd/options.scm | 7 ++++++- scheme/httpd/request.scm | 7 ++++++- scheme/httpd/response.scm | 6 ++++++ scheme/httpd/rman-gateway.scm | 6 ++++++ scheme/httpd/seval.scm | 8 +++++++- scheme/lib/cgi-script.scm | 5 +++++ scheme/lib/crlf-io.scm | 5 +++++ scheme/lib/dns.scm | 7 +++++++ scheme/lib/format-net.scm | 9 ++++++++- scheme/lib/ftp.scm | 10 ++++++---- scheme/lib/htmlout.scm | 6 ++++++ scheme/lib/ls.scm | 7 +++++-- scheme/lib/netrc.scm | 9 +++++---- scheme/lib/nettime.scm | 8 ++++---- scheme/lib/parse-forms.scm | 5 +++++ scheme/lib/pop3.scm | 9 +++++---- scheme/lib/rate-limit.scm | 5 +++++ scheme/lib/rfc822.scm | 11 +++++++---- scheme/lib/smtp.scm | 8 ++++++-- scheme/lib/sunet-utilities.scm | 6 ++++++ scheme/lib/uri.scm | 5 +++++ scheme/lib/url.scm | 5 +++++ 31 files changed, 180 insertions(+), 35 deletions(-) diff --git a/scheme/ftpd/ftpd.scm b/scheme/ftpd/ftpd.scm index 63552a6..c6e258d 100644 --- a/scheme/ftpd/ftpd.scm +++ b/scheme/ftpd/ftpd.scm @@ -1,7 +1,10 @@ ; RFC 959 ftp daemon -; Mike Sperber -; Copyright (c) 1998 Michael Sperber. +;;; This file is part of the Scheme Untergrund Networking package. + +;;; Copyright (c) 1998-2002 by Mike Sperber +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ; It doesn't support the following desirable things: ; @@ -1218,7 +1221,7 @@ ; Version -(define *ftpd-version* "$Revision: 1.6 $") +(define *ftpd-version* "$Revision: 1.7 $") (define (copy-port->port-binary input-port output-port) (let ((buffer (make-string *window-size*))) diff --git a/scheme/httpd/access-control.scm b/scheme/httpd/access-control.scm index 64a8133..c873753 100644 --- a/scheme/httpd/access-control.scm +++ b/scheme/httpd/access-control.scm @@ -1,6 +1,10 @@ ;;; http server in the Scheme Shell -*- Scheme -*- -;;; Access control + +;;; This file is part of the Scheme Untergrund Networking package. + ;;; Copyright (c) 1996 by Mike Sperber. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ;;; This code is very rudimentary at the moment and up for some expansion. ;;; Right now, it is primarily useful for running the server through a diff --git a/scheme/httpd/cgi-server.scm b/scheme/httpd/cgi-server.scm index 5c6bbdb..fad2c51 100644 --- a/scheme/httpd/cgi-server.scm +++ b/scheme/httpd/cgi-server.scm @@ -1,5 +1,10 @@ ;;; Server support for NCSA's WWW Common Gateway Interface -*- Scheme -*- + +;;; This file is part of the Scheme Untergrund Networking package. + ;;; Copyright (c) 1995 by Olin Shivers. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ;;; See http://hoohoo.ncsa.uiuc.edu/cgi/interface.html for a sort of "spec". diff --git a/scheme/httpd/error.scm b/scheme/httpd/error.scm index 7decbfc..fcb6dde 100644 --- a/scheme/httpd/error.scm +++ b/scheme/httpd/error.scm @@ -1,5 +1,10 @@ ;;; Error stuff for the http server. -*- Scheme -*- + +;;; This file is part of the Scheme Untergrund Networking package. + ;;; Copyright (c) 1995 by Olin Shivers. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ;;; An http error condition is a data structure with the following pieces: ;;; (error-code request message . irritants) diff --git a/scheme/httpd/file-dir-handler.scm b/scheme/httpd/file-dir-handler.scm index 44881ef..daf9685 100644 --- a/scheme/httpd/file-dir-handler.scm +++ b/scheme/httpd/file-dir-handler.scm @@ -1,3 +1,12 @@ +;;; http server in the Scheme Shell -*- Scheme -*- + +;;; This file is part of the Scheme Untergrund Networking package. + +;;; Copyright (c) 1994 by Brian D. Carlstrom and Olin Shivers. +;;; Copyright (c) 1996-2002 by Mike Sperber. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. + (define server/buffer-size 8192) ; WTF ;;; (home-dir-handler user-public-dir) -> handler diff --git a/scheme/httpd/handle-fatal-error.scm b/scheme/httpd/handle-fatal-error.scm index 10dee02..63ed459 100644 --- a/scheme/httpd/handle-fatal-error.scm +++ b/scheme/httpd/handle-fatal-error.scm @@ -1,5 +1,10 @@ ;;; Handle fatal errors in a sensible way. -*- Scheme -*- + +;;; This file is part of the Scheme Untergrund Networking package. + ;;; Copyright (c) 1995 by Olin Shivers. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ;;; (with-fatal-error-handler* handler thunk) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; diff --git a/scheme/httpd/http-top.scm b/scheme/httpd/http-top.scm index 09995a4..cf2cb24 100644 --- a/scheme/httpd/http-top.scm +++ b/scheme/httpd/http-top.scm @@ -1,5 +1,10 @@ -;;; Scheme Underground Web Server -*- Scheme -*- -;;; Olin Shivers +;;; Scheme Untergrund Web Server -*- Scheme -*- + +;;; This file is part of the Scheme Untergrund Networking package. + +;;; Copyright (c) 1995 by Olin Shivers. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ;;; This file contains a few example top-level path-handlers and ;;; other useful fragments. diff --git a/scheme/httpd/info-gateway.scm b/scheme/httpd/info-gateway.scm index abf9bed..793b55e 100644 --- a/scheme/httpd/info-gateway.scm +++ b/scheme/httpd/info-gateway.scm @@ -1,6 +1,11 @@ ;;; GNU info -> HTML gateway for the SU web server. -*- Scheme -*- + +;;; This file is part of the Scheme Untergrund Networking package. + ;;; Copyright (c) 1996 by Mike Sperber. ;;; based on code with the same purpose by Gaebe Engelhart +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ;;; (info-handler parse-info reference find-icon address) -> handler diff --git a/scheme/httpd/logging.scm b/scheme/httpd/logging.scm index a2f483b..9edb100 100644 --- a/scheme/httpd/logging.scm +++ b/scheme/httpd/logging.scm @@ -1,6 +1,12 @@ ;;; logging.scm ;;; logging functionality for web server -;;; 2002, Andreas Bernauer, Martin Gasbichler + +;;; This file is part of the Scheme Untergrund Networking package. + +;;; Copyright (c) 2002 by Martin Gasbichler. +;;; Copyright (c) 2002 by Andreas Bernauer. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ;; default: no logging ;; initialized by init-http-log! diff --git a/scheme/httpd/options.scm b/scheme/httpd/options.scm index bfcc95b..5833c37 100644 --- a/scheme/httpd/options.scm +++ b/scheme/httpd/options.scm @@ -1,5 +1,10 @@ ;;; http server in the Scheme Shell -*- Scheme -*- -;;; Mike Sperber + +;;; This file is part of the Scheme Untergrund Networking package. + +;;; Copyright (c) 2002 by Mike Sperber. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ;;; This package manages options to the http server as an abstract ;;; data type. diff --git a/scheme/httpd/request.scm b/scheme/httpd/request.scm index cc6f33e..8a1f6bc 100644 --- a/scheme/httpd/request.scm +++ b/scheme/httpd/request.scm @@ -1,5 +1,10 @@ ;;;; HTTP request -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +;;; This file is part of the Scheme Untergrund Networking package. +;;; Copyright (c) 1996 by Olin Shivers. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. + ;;;; This code defines the http REQUEST data structure (define-record request diff --git a/scheme/httpd/response.scm b/scheme/httpd/response.scm index 6be1824..dd18256 100644 --- a/scheme/httpd/response.scm +++ b/scheme/httpd/response.scm @@ -1,3 +1,9 @@ +;;; This file is part of the Scheme Untergrund Networking package. + +;;; Copyright (c) 2002 by Mike Sperber. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. + (define-record-type :http-response (make-response code message seconds mime extras body) response? diff --git a/scheme/httpd/rman-gateway.scm b/scheme/httpd/rman-gateway.scm index 6395b27..b44b3a5 100644 --- a/scheme/httpd/rman-gateway.scm +++ b/scheme/httpd/rman-gateway.scm @@ -1,5 +1,11 @@ ;;; man page -> HTML gateway for the SU web server. -*- Scheme -*- + +;;; This file is part of the Scheme Untergrund Networking package. + ;;; Copyright (c) 1996 by Mike Sperber. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. + ;;; This uses RosettaMan and is currently based on version 2.5a6 ;;; (RosettaMan is based at ;;; ftp.cs.berkeley.edu:/ucb/people/phelps/tcltk/rman.tar.Z) diff --git a/scheme/httpd/seval.scm b/scheme/httpd/seval.scm index 2728856..b50f1a3 100644 --- a/scheme/httpd/seval.scm +++ b/scheme/httpd/seval.scm @@ -1,7 +1,13 @@ ;;; Path handler for uploading Scheme code to the SU web server -*- Scheme -*- + +;;; This file is part of the Scheme Untergrund Networking package. + +;;; Copyright (c) 1995 by Olin Shivers. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. + ;;; This is really just an handler example demonstrating how to upload code ;;; into the server. -;;; Copyright (c) 1995 by Olin Shivers. ;;; HTML forms ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; diff --git a/scheme/lib/cgi-script.scm b/scheme/lib/cgi-script.scm index 1e5b634..946bb2a 100644 --- a/scheme/lib/cgi-script.scm +++ b/scheme/lib/cgi-script.scm @@ -1,5 +1,10 @@ ;;; NCSA's WWW Common Gateway Interface -- script-side code -*- Scheme -*- + +;;; This file is part of the Scheme Untergrund Networking package. + ;;; Copyright (c) 1995 by Olin Shivers. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ;;; See http://hoohoo.ncsa.uiuc.edu/cgi/interface.html for a sort of "spec". diff --git a/scheme/lib/crlf-io.scm b/scheme/lib/crlf-io.scm index 46e8a02..8dd2ced 100644 --- a/scheme/lib/crlf-io.scm +++ b/scheme/lib/crlf-io.scm @@ -1,5 +1,10 @@ ;;; Read cr/lf and lf terminated lines. -*- Scheme -*- + +;;; This file is part of the Scheme Untergrund Networking package. + ;;; Copyright (c) 1995 by Olin Shivers. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ;;; (read-crlf-line [fd/port retain-crlf?]) -> string or EOF object ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; diff --git a/scheme/lib/dns.scm b/scheme/lib/dns.scm index 19045ec..d4f84bc 100644 --- a/scheme/lib/dns.scm +++ b/scheme/lib/dns.scm @@ -2,6 +2,13 @@ ; dns.scm ; ; Implementation of the RFC1035 + +;;; This file is part of the Scheme Untergrund Networking package. + +;;; Copyright (c) 2002 by Marcus Crestani. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. + ; domain names - implementation and specification ; based on the PLT-implementation. ; diff --git a/scheme/lib/format-net.scm b/scheme/lib/format-net.scm index 30f419e..e0fd823 100644 --- a/scheme/lib/format-net.scm +++ b/scheme/lib/format-net.scm @@ -1,4 +1,11 @@ -;; Does pretty-print of internet-addresses (IPv4) +;; Pretty-printing of IPv4 Internet addresses + +;;; This file is part of the Scheme Untergrund Networking package. + +;;; Copyright (c) 1998 by Mike Sperber. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. + ;; ADDRESS address to pretty-print ;; SEPERATOR optional, defaults to ".", seperator between address-parts ;; Example: diff --git a/scheme/lib/ftp.scm b/scheme/lib/ftp.scm index 8e1c637..fd93324 100644 --- a/scheme/lib/ftp.scm +++ b/scheme/lib/ftp.scm @@ -1,8 +1,10 @@ ;;; ftp.scm -- an FTP client library for the Scheme Shell -;; -;; $Id: ftp.scm,v 1.1 2002/06/08 15:05:24 sperber Exp $ -;; -;; Please send suggestions and bug reports to + +;;; This file is part of the Scheme Untergrund Networking package. + +;;; Copyright (c) 1998 by Eric Marsden. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. diff --git a/scheme/lib/htmlout.scm b/scheme/lib/htmlout.scm index 53539f3..c6472f5 100644 --- a/scheme/lib/htmlout.scm +++ b/scheme/lib/htmlout.scm @@ -1,5 +1,11 @@ ;;; Simple code for doing structured html output. -*- Scheme -*- + +;;; This file is part of the Scheme Untergrund Networking package. + ;;; Copyright (c) 1995 by Olin Shivers. +;;; Copyright (c) 1996 by Mike Sperber. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ;;; - An attribute-quoter, that will map an attribute value to its ;;; HTML text representation -- surrounding it with single or double quotes, diff --git a/scheme/lib/ls.scm b/scheme/lib/ls.scm index 9979bef..cabf038 100644 --- a/scheme/lib/ls.scm +++ b/scheme/lib/ls.scm @@ -1,7 +1,10 @@ ; ls clone in scsh -; Mike Sperber -; Copyright (c) 1998 Michael Sperber. +;;; This file is part of the Scheme Untergrund Networking package. + +;;; Copyright (c) 1998 Michael Sperber. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ; This currently does a whole bunch of stats on every file in some ; cases. In a decent OS implementation, this stuff is cached, so diff --git a/scheme/lib/netrc.scm b/scheme/lib/netrc.scm index 8804f15..1d6b15b 100644 --- a/scheme/lib/netrc.scm +++ b/scheme/lib/netrc.scm @@ -1,10 +1,11 @@ ;;; netrc.scm -- parse authentication information contained in ~/.netrc -;; -;; $Id: netrc.scm,v 1.1 2002/06/08 15:05:24 sperber Exp $ -;; -;; Please send suggestions and bug reports to +;;; This file is part of the Scheme Untergrund Networking package. +;;; Copyright (c) 1998 by Eric Marsden +;;; Copyright (c) 2002 by Andreas Bernauer. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ;;; Overview ===================================================== ;; diff --git a/scheme/lib/nettime.scm b/scheme/lib/nettime.scm index f928098..c335eba 100644 --- a/scheme/lib/nettime.scm +++ b/scheme/lib/nettime.scm @@ -1,10 +1,10 @@ ;;; nettime.scm -- obtain the time on remote machines -;; -;; $Id: nettime.scm,v 1.1 2002/06/08 15:05:24 sperber Exp $ -;; -;; Please send suggestions and bug reports to +;;; This file is part of the Scheme Untergrund Networking package. +;;; Copyright (c) 1998 by Eric Marsden +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ;;; Overview ======================================================== ;; diff --git a/scheme/lib/parse-forms.scm b/scheme/lib/parse-forms.scm index 1ec05c8..251f143 100644 --- a/scheme/lib/parse-forms.scm +++ b/scheme/lib/parse-forms.scm @@ -1,5 +1,10 @@ ;;; Code to parse information submitted from HTML forms. -*- Scheme -*- + +;;; This file is part of the Scheme Untergrund Networking package. + ;;; Copyright (c) 1995 by Olin Shivers. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ;;; See http://www.w3.org/hypertext/WWW/MarkUp/html-spec/html-spec_toc.html diff --git a/scheme/lib/pop3.scm b/scheme/lib/pop3.scm index 968891b..220f03d 100644 --- a/scheme/lib/pop3.scm +++ b/scheme/lib/pop3.scm @@ -1,9 +1,10 @@ ;;; POP3.scm --- implement the POP3 maildrop protocol in the Scheme Shell -;; -;; $Id: pop3.scm,v 1.2 2002/08/26 14:49:17 interp Exp $ -;; -;; Please send suggestions and bug reports to +;;; This file is part of the Scheme Untergrund Networking package. + +;;; Copyright (c) 1998 by Eric Marsden +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ;;; Overview ============================================================== ;; diff --git a/scheme/lib/rate-limit.scm b/scheme/lib/rate-limit.scm index 5a461c6..7b19182 100644 --- a/scheme/lib/rate-limit.scm +++ b/scheme/lib/rate-limit.scm @@ -1,5 +1,10 @@ ;;; Rate limiting -*- Scheme -*- + +;;; This file is part of the Scheme Untergrund Networking package. + ;;; Copyright (c) 2002 by Mike Sperber. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. (define-record-type rate-limiter :rate-limiter (really-make-rate-limiter simultaneous-requests diff --git a/scheme/lib/rfc822.scm b/scheme/lib/rfc822.scm index b727fb0..d8b93fc 100644 --- a/scheme/lib/rfc822.scm +++ b/scheme/lib/rfc822.scm @@ -1,7 +1,10 @@ -;;; RFC 822 field-parsing code -*- Scheme -*- -;;; Copyright (c) 1995 by Olin Shivers. -;;; -;;; +;;; RFC 822 field-parsing code + +;;; This file is part of the Scheme Untergrund Networking package. + +;;; Copyright (c) 1995 by Olin Shivers +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ;;; RFC 822 is the "Standard for the format of ARPA Internet text messages" ;;; -- the document that essentially tells how the fields in email headers diff --git a/scheme/lib/smtp.scm b/scheme/lib/smtp.scm index 74736b9..20a7b40 100644 --- a/scheme/lib/smtp.scm +++ b/scheme/lib/smtp.scm @@ -1,7 +1,11 @@ ;;; SMTP client code -*- Scheme -*- + +;;; This file is part of the Scheme Untergrund Networking package. + ;;; Copyright (c) 1995 by Brian D. Carlstrom and Olin Shivers. -;;; , -;;; +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. + ;;; See rfc821: http://www.ietf.org/rfc/rfc0821.txt ;;; SMTP protocol procedures tend to return two values: diff --git a/scheme/lib/sunet-utilities.scm b/scheme/lib/sunet-utilities.scm index 822f6bf..f6b8d45 100644 --- a/scheme/lib/sunet-utilities.scm +++ b/scheme/lib/sunet-utilities.scm @@ -1,5 +1,11 @@ ; some useful utilities +;;; This file is part of the Scheme Untergrund Networking package. + +;;; Copyright (c) 2002 by Andreas Bernauer. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. + (define (host-name-or-ip addr) (with-fatal-error-handler (lambda (condition more) diff --git a/scheme/lib/uri.scm b/scheme/lib/uri.scm index b228c70..38df085 100644 --- a/scheme/lib/uri.scm +++ b/scheme/lib/uri.scm @@ -1,5 +1,10 @@ ;;; -*- Scheme -*- + +;;; This file is part of the Scheme Untergrund Networking package. + ;;; Copyright (c) 1995 by Olin Shivers. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ;;; URI syntax -- [scheme] : path [? search ] [# fragmentid] diff --git a/scheme/lib/url.scm b/scheme/lib/url.scm index b3dbc55..0ea886c 100644 --- a/scheme/lib/url.scm +++ b/scheme/lib/url.scm @@ -1,5 +1,10 @@ ;;; URL parsing and unparsing -*- Scheme -*- + +;;; This file is part of the Scheme Untergrund Networking package. + ;;; Copyright (c) 1995 by Olin Shivers. +;;; For copyright information, see the file COPYING which comes with +;;; the distribution. ;;; I'm only implementing http URL's right now.