Add copyright notice.

scheme/ftpd/ftpd.scm

@@ -1,7 +1,10 @@
 ; RFC 959 ftp daemon
 
-; Mike Sperber <sperber@informatik.uni-tuebingen.de>
-; Copyright (c) 1998 Michael Sperber.
+;;; This file is part of the Scheme Untergrund Networking package.
+
+;;; Copyright (c) 1998-2002 by Mike Sperber <sperber@informatik.uni-tuebingen.de>
+;;; 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*)))

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. <sperber@informatik.uni-tuebingen.de>
+;;; 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

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".
 

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)

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

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)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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.

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

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!

scheme/httpd/options.scm

@@ -1,5 +1,10 @@
 ;;; http server in the Scheme Shell	-*- Scheme -*-
-;;; Mike Sperber <sperber@informatik.uni-tuebingen.de>
+
+;;; 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.

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

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?

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)

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
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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".
 

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. <shivers@lcs.mit.edu>
+;;; For copyright information, see the file COPYING which comes with
+;;; the distribution.
 
 ;;; (read-crlf-line [fd/port retain-crlf?]) -> string or EOF object
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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.
 ; 

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:

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 <emarsden@mail.dotcom.fr>
+
+;;; 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.
 
 
 

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,

scheme/lib/ls.scm

@@ -1,7 +1,10 @@
 ; ls clone in scsh
 
-; Mike Sperber <sperber@informatik.uni-tuebingen.de>
-; 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

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 <emarsden@mail.dotcom.fr>
 
+;;; 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 =====================================================
 ;;

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 <emarsden@mail.dotcom.fr>
 
+;;; 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 ========================================================
 ;;

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
 

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 <emarsden@mail.dotcom.fr>
 
+;;; 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 ==============================================================
 ;;

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

scheme/lib/rfc822.scm

@@ -1,7 +1,10 @@
-;;; RFC 822 field-parsing code		-*- Scheme -*- 
-;;; Copyright (c) 1995 by Olin Shivers.
-;;; <shivers@lcs.mit.edu>
-;;;
+;;; RFC 822 field-parsing code
+
+;;; This file is part of the Scheme Untergrund Networking package.
+
+;;; Copyright (c) 1995 by Olin Shivers <shivers@lcs.mit.edu>
+;;; 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

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.
-;;; <bdc@ai.mit.edu>, <shivers@lcs.mit.edu>
-;;;
+;;; 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:

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)

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]
 

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.