From 10d1a16d92e99b44c15aa5719e21f6549f271836 Mon Sep 17 00:00:00 2001
From: adamch <adamch>
Date: Sun, 4 Nov 2007 20:52:42 +0000
Subject: [PATCH] Update vmailpasswd for new servers

---
 vmailpasswd/mlt.conf       | 2 +-
 vmailpasswd/out/.cvsignore | 4 ++++
 vmailpasswd/pass.sml       | 6 ++----
 3 files changed, 7 insertions(+), 5 deletions(-)
 create mode 100644 vmailpasswd/out/.cvsignore

diff --git a/vmailpasswd/mlt.conf b/vmailpasswd/mlt.conf
index ec2f7f8..2ad8f60 100644
--- 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
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
--- 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
-- 
2.20.1