From bed62880a40bad051336f6368966c6c580ed620f Mon Sep 17 00:00:00 2001
From: Clinton Ebadi <clinton@unknownlamer.org>
Date: Sat, 4 Oct 2014 17:18:21 -0400
Subject: [PATCH] join: Remove old filesystem initial password storage cruft

---
 app.sml    | 9 ++-------
 config.sig | 1 -
 config.sml | 2 --
 3 files changed, 2 insertions(+), 10 deletions(-)

diff --git a/app.sml b/app.sml
index aa9fb15..e0c3b0b 100644
--- a/app.sml
+++ b/app.sml
@@ -126,12 +126,8 @@ fun preAdd app =
 				    WHERE id = ^(C.intToSql app)`)
 
 	val app = lookupApp app
-
-	val outf = TextIO.openOut (Config.passwordFiles ^ #name app)
     in
-	TextIO.output (outf, #unix_passwd app);
-	TextIO.output1 (outf, #"\n");
-	TextIO.closeOut outf
+	()
     end
 
 fun add app =
@@ -140,8 +136,7 @@ fun add app =
     in
 	ignore (C.dml (getDb ()) ($`UPDATE MemberApp
 				    SET status = 4
-				    WHERE id = ^(C.intToSql app)`));
-	OS.FileSys.remove (Config.passwordFiles ^ #name appR)
+				    WHERE id = ^(C.intToSql app)`))
     end
 
 fun welcome app =
diff --git a/config.sig b/config.sig
index 59f832c..66dd016 100644
--- a/config.sig
+++ b/config.sig
@@ -6,7 +6,6 @@ val emailSuffix : string
 val boardEmail : string
 val dbstring : string
 val kerberosSuffix : string
-val passwordFiles : string
 val passgenDbstring : string
 val statsRoot : string
 val staticFilesRoot : string
diff --git a/config.sml b/config.sml
index f59bd37..42eac5f 100644
--- a/config.sml
+++ b/config.sml
@@ -9,8 +9,6 @@ val dbstring = "dbname='hcoop_portal3test' user='hcoop' host='postgres' port=543
 
 val kerberosSuffix = "@HCOOP.NET"
 		     
-val passwordFiles = "/var/lib/portal/"
-
 val passgenDbstring = "dbname='hcoop_passgen' user='hcoop' host='postgres' port=5433"
 
 val statsRoot = "/afs/hcoop.net/user/h/hc/hcoop/portal-tools/etc/stats/"
-- 
2.20.1