Update vmailpasswd for new servers

diff --git a/vmailpasswd/mlt.conf b/vmailpasswd/mlt.conf
index ec2f7f8..2ad8f60 100644 (file)
--- a/vmailpasswd/mlt.conf
+++ b/vmailpasswd/mlt.conf
@@ -1,4 +1,4 @@
 out    out
-pub    /home/hcoop/members/cgi
+pub    /home/hcoop/public_html/cgi-bin
 
 cm     $/smlnj-lib.cm

diff --git a/vmailpasswd/out/.cvsignore b/vmailpasswd/out/.cvsignore
new file mode 100644 (file)
index 0000000..c68e5de
--- /dev/null
+++ b/vmailpasswd/out/.cvsignore
@@ -0,0 +1,4 @@
+*.sml
+.cm
+heap.*
+*.cm

diff --git a/vmailpasswd/pass.sml b/vmailpasswd/pass.sml
index c78c84b..fc0a595 100644 (file)
--- a/vmailpasswd/pass.sml
+++ b/vmailpasswd/pass.sml
@@ -6,17 +6,15 @@ fun validEmail email =
        [_, dom] => dom <> "localhost"
       | _ => false
 
-val vmp = "/usr/local/bin/vmailpasswd"
-
 fun change (email, old, new) =
     let
-       val cmd = String.concat ["/usr/local/bin/vmailpasswd \"",
+       val cmd = String.concat ["/usr/bin/sudo /usr/local/bin/vmailpasswd \"",
                                 String.toString email,
                                 "\" \"",
                                 String.toString old,
                                 "\" \"",
                                 String.toString new,
-                                "\" >/dev/null 2>/dev/null"]
+                                "\" >/tmp/pass1 2>/tmp/pass2"]
     in
        OS.Process.isSuccess (OS.Process.system cmd)
     end