join: Remove old filesystem initial password storage cruft

diff --git a/app.sml b/app.sml
index aa9fb15..e0c3b0b 100644 (file)
--- a/app.sml
+++ b/app.sml
@@ -126,12 +126,8 @@ fun preAdd app =
                                    WHERE id = ^(C.intToSql app)`)
 
        val app = lookupApp app
                                    WHERE id = ^(C.intToSql app)`)
 
        val app = lookupApp app

-
-       val outf = TextIO.openOut (Config.passwordFiles ^ #name app)

     in
     in

-       TextIO.output (outf, #unix_passwd app);
-       TextIO.output1 (outf, #"\n");
-       TextIO.closeOut outf
+       ()

     end
 
 fun add app =
     end
 
 fun add app =


@@ -140,8 +136,7 @@ fun add app =
     in
        ignore (C.dml (getDb ()) ($`UPDATE MemberApp
                                    SET status = 4
     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 =
     end
 
 fun welcome app =

diff --git a/config.sig b/config.sig
index 59f832c..66dd016 100644 (file)
--- a/config.sig
+++ b/config.sig
@@ -6,7 +6,6 @@ val emailSuffix : string
 val boardEmail : string
 val dbstring : string
 val kerberosSuffix : string
 val boardEmail : string
 val dbstring : string
 val kerberosSuffix : string

-val passwordFiles : string

 val passgenDbstring : string
 val statsRoot : string
 val staticFilesRoot : string
 val passgenDbstring : string
 val statsRoot : string
 val staticFilesRoot : string

diff --git a/config.sml b/config.sml
index f59bd37..42eac5f 100644 (file)
--- 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 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/"
 val passgenDbstring = "dbname='hcoop_passgen' user='hcoop' host='postgres' port=5433"
 
 val statsRoot = "/afs/hcoop.net/user/h/hc/hcoop/portal-tools/etc/stats/"