2003-07-08 Kevin Layer <layer@relay.known.net>

ChangeLog

@@ -1,3 +1,14 @@
+2003-07-08  Kevin Layer  <layer@relay.known.net>
+
+	* smtp-server.cl:
+	- small bug fix to format call
+	- have a non-nil and non-t value of *helo-must-match-ip* means
+	  just log, don't really reject (unless problems resolving the
+	  domain are found) the connection.  It's useful for seeing what
+	  would happen if you set the variable to `t'.
+	* config.cl: doc changes to *helo-must-match-ip*
+	...add CVS Id to all .cl files
+
 2003-07-08  Ahmon Dancy  <dancy@dancy>
 
 	*honors -m and -oM options so the sender will get a copy of mail

aliases.cl

@@ -1,3 +1,5 @@
+;; $Id: aliases.cl,v 1.9 2003/07/08 18:05:24 layer Exp $
+
 (in-package :user)
 
 (defstruct aliases-info

blacklist.cl

@@ -1,3 +1,5 @@
+;; $Id: blacklist.cl,v 1.4 2003/07/08 18:05:24 layer Exp $
+
 (in-package :user)
 
 ;; email blacklists of various types.

bounce.cl

@@ -1,3 +1,5 @@
+;; $Id: bounce.cl,v 1.9 2003/07/08 18:05:24 layer Exp $
+
 (in-package :user)
 
 ;; Makes something like:

checkers.cl

@@ -1,3 +1,5 @@
+;; $Id: checkers.cl,v 1.3 2003/07/08 18:05:24 layer Exp $
+
 (in-package :user)
 
 ;; Checks that are run after a message body is received but before it

config.cl

@@ -1,3 +1,5 @@
+;; $Id: config.cl,v 1.21 2003/07/08 18:05:24 layer Exp $
+
 (in-package :user)
 
 (defparameter *debug* nil)
@@ -76,9 +78,10 @@
 ;; address must succeed before mail is accepted.
 (defparameter *reverse-dns-required* nil)
 
-;; If non-nil, then the result of a DNS lookup on the name specified
-;; in the HELO command must match the IP address of the connected
-;; client
+;; If the value is t, then the result of a DNS lookup on the name
+;; specified in the HELO command must match the IP address of the connected
+;; client.  If non-nil and not t, then just log connections that would be
+;; rejected if the value of this variable were t.
 (defparameter *helo-must-match-ip* nil)
 
 

deliver-smtp.cl

@@ -1,3 +1,5 @@
+;; $Id: deliver-smtp.cl,v 1.8 2003/07/08 18:05:24 layer Exp $
+
 (in-package :user)
 
 ;; XXX --  Need a check to make sure that we never try to connect to
@@ -240,4 +242,4 @@
 
 
 
-
+

deliver.cl

@@ -1,3 +1,5 @@
+;; $Id: deliver.cl,v 1.14 2003/07/08 18:05:24 layer Exp $
+
 (in-package :user)
 
 (defstruct wmts-async

emailaddr.cl

@@ -1,3 +1,5 @@
+;; $Id: emailaddr.cl,v 1.9 2003/07/08 18:05:24 layer Exp $
+
 (in-package :user)
 
 (defstruct emailaddr

greylist.cl

@@ -1,3 +1,5 @@
+;; $Id: greylist.cl,v 1.4 2003/07/08 18:05:24 layer Exp $
+
 (in-package :user)
 
 (eval-when (compile load eval)

headers.cl

@@ -1,3 +1,5 @@
+;; $Id: headers.cl,v 1.8 2003/07/08 18:05:24 layer Exp $
+
 (in-package :user)
 
 (defstruct header

input.cl

@@ -1,3 +1,5 @@
+;; $Id: input.cl,v 1.13 2003/07/08 18:05:24 layer Exp $
+
 (in-package :user)
 
 (defun trusted-user-p (us)

ipaddr.cl

@@ -1,11 +1,4 @@
-;; This software is Copyright (c) Franz Inc., 2001-2002.
-;; Franz Inc. grants you the rights to distribute
-;; and use this software as governed by the terms
-;; of the Lisp Lesser GNU Public License
-;; (http://opensource.franz.com/preamble.html),
-;; known as the LLGPL.
-;;
-;; $Id: ipaddr.cl,v 1.1.1.1 2003/04/23 17:23:16 dancy Exp $
+;; $Id: ipaddr.cl,v 1.2 2003/07/08 18:05:24 layer Exp $
 
 (in-package :user)
 

lex.cl

@@ -1,3 +1,5 @@
+;; $Id: lex.cl,v 1.2 2003/07/08 18:05:24 layer Exp $
+
 (in-package :user)
 
 (defun lex-list (spec string &key (pos 0) (max (length string)))

load.cl

@@ -1,3 +1,5 @@
+;; $Id: load.cl,v 1.12 2003/07/08 18:05:24 layer Exp $
+
 (in-package :user)
 
 (defparameter *source-files*

lock.cl

@@ -1,3 +1,5 @@
+;; $Id: lock.cl,v 1.3 2003/07/08 18:05:24 layer Exp $
+
 (in-package :user)
 
 

log.cl

@@ -1,3 +1,5 @@
+;; $Id: log.cl,v 1.2 2003/07/08 18:05:24 layer Exp $
+
 (in-package :user)
 
 (defparameter *log-opened* nil)

maild.cl

@@ -1,3 +1,5 @@
+;; $Id: maild.cl,v 1.15 2003/07/08 18:05:24 layer Exp $
+
 (in-package :user)
 
 (defparameter *configfile* "/etc/maild.cl")

maild.init

@@ -10,6 +10,7 @@
 # config: /etc/maild.cl
 
 # This script stolen from redhat's sendmail script
+# $Id: maild.init,v 1.2 2003/07/08 18:05:25 layer Exp $
 
 # Source function library.
 . /etc/rc.d/init.d/functions

mailer.cl

@@ -1,3 +1,5 @@
+;; $Id: mailer.cl,v 1.2 2003/07/08 18:05:25 layer Exp $
+
 (in-package :user)
 
 (defun get-mailer-by-id (id)

queue-process.cl

@@ -1,3 +1,5 @@
+;; $Id: queue-process.cl,v 1.11 2003/07/08 18:05:25 layer Exp $
+
 (in-package :user)