From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 22 Nov 2004 19:45:27 +0000 (+0000)
Subject: Don't always encrypt password; caller must do that explicitly.
X-Git-Tag: 20090517-FFI~1446
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b448884bfaa8e7d8165a5e5a05c1a866e1870d37;p=mit-scheme.git

Don't always encrypt password; caller must do that explicitly.
---

diff --git a/v7/src/xdoc/db.scm b/v7/src/xdoc/db.scm
index 95225feb9..d372f9748 100644
--- a/v7/src/xdoc/db.scm
+++ b/v7/src/xdoc/db.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: db.scm,v 1.2 2004/11/19 14:52:24 cph Exp $
+$Id: db.scm,v 1.3 2004/11/22 19:45:23 cph Exp $
 
 Copyright 2003,2004 Massachusetts Institute of Technology
 
@@ -609,7 +609,7 @@ USA.
 		    " (" (db-quote user-name)
 		    ", " (db-quote first-names)
 		    ", " (db-quote last-name)
-		    ", " (db-quote (encrypt-password password))
+		    ", " (db-quote password)
 		    ", " "FALSE"
 		    ", " (if enabled? "TRUE" "FALSE")
 		    ")")
@@ -618,7 +618,7 @@ USA.
 (define (db-change-user-password user-name password)
   (guarantee-known-user user-name)
   (db-run-cmd "UPDATE users"
-	      " SET password = " (db-quote (encrypt-password password))
+	      " SET password = " (db-quote password)
 	      " WHERE user_name = " (db-quote user-name)))
 
 (define (db-user-real-name user-name)
@@ -674,7 +674,7 @@ USA.
 	      " SET " flag-name " = " (if value "TRUE" "FALSE")
 	      " WHERE user_name = " (db-quote user-name)))
 
-(define (encrypt-password password)
+(define (db-encrypt-password password)
   (let ((pw-line
 	 (call-with-output-string
 	   (lambda (port)
diff --git a/v7/src/xdoc/xdoc.pkg b/v7/src/xdoc/xdoc.pkg
index 9392ca151..a19869fe6 100644
--- a/v7/src/xdoc/xdoc.pkg
+++ b/v7/src/xdoc/xdoc.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xdoc.pkg,v 1.1 2004/11/01 19:21:05 cph Exp $
+$Id: xdoc.pkg,v 1.2 2004/11/22 19:45:27 cph Exp $
 
 Copyright 2004 Massachusetts Institute of Technology
 
@@ -185,6 +185,7 @@ USA.
 	  db-clear-submitter
 	  db-delete-global-value!
 	  db-delete-persistent-value!
+	  db-encrypt-password
 	  db-generate-password
 	  db-get-global-value
 	  db-get-persistent-value