Poll voting limit by membership length

[bpt/portal.git] / vmailpasswd / pass.sml

diff --git a/vmailpasswd/pass.sml b/vmailpasswd/pass.sml
index c78c84b..fbbf26f 100644 (file)
--- a/vmailpasswd/pass.sml
+++ b/vmailpasswd/pass.sml
@@ -6,11 +6,9 @@ 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,