CVS: tmda-cgi Authenticate.py,1.15,1.16

Update of /cvsroot/tmda/tmda-cgi
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32710

Modified Files:
	Authenticate.py 
Log Message:
Incorporated patch from John Maslanik <[email protected]> to populate the TCPHOSTNAME variable for checkvpw programs.


Index: Authenticate.py
===================================================================
RCS file: /cvsroot/tmda/tmda-cgi/Authenticate.py,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- Authenticate.py	7 Jun 2003 03:49:42 -0000	1.15
+++ Authenticate.py	2 Feb 2004 15:08:35 -0000	1.16
@@ -41,6 +41,12 @@
 def InitProgramAuth( Program ):
   """Initializes the authentication scheme with a checkpw-style program.
     (Implemented by Auth.py)"""
+
+  # Populate TCPLOCALHOST for checkpw-stype programs that need it
+  # (i.e. checkvpw)
+  if os.environ.has_key("HTTP_HOST"):
+    os.putenv('TCPLOCALHOST',os.environ["HTTP_HOST"])
+
   global authinit
   authinit = 0
   try: