Change granter.sh to give permissions to user specified on command line

[hcoop/zz_old/portal.git] / request.sml

diff --git a/request.sml b/request.sml
index 08b7853..ed48c2a 100644 (file)
--- a/request.sml
+++ b/request.sml
@@ -97,14 +97,17 @@ fun notify f req =
                    ()
                else
                    (Mail.mwrite (mail, name);
+                    Mail.mwrite (mail, emailSuffix);
                     Mail.mwrite (mail, ","))
            end
          | doOne r = rowError (table ^ ".doOne", r)
     in
-       Mail.mwrite (mail, "From: Hcoop Portal <portal@hcoop.net>\nTo: ");
+       Mail.mwrite (mail, "From: Hcoop Portal <portal");
+       Mail.mwrite (mail, emailSuffix);
+       Mail.mwrite (mail, ">\nTo: ");
        Mail.mwrite (mail, #name user);
-       Mail.mwrite (mail, "@hcoop.net\n");
-       Mail.mwrite (mail, "Bcc: ");
+       Mail.mwrite (mail, emailSuffix);                     
+       Mail.mwrite (mail, "\nBcc: ");
        C.app (getDb ()) doOne ($`SELECT name
                                  FROM WebUser JOIN Membership ON (usr = id AND grp = ^(C.intToSql grp))`);
        Mail.mwrite (mail, "\nSubject: ");
@@ -130,7 +133,7 @@ val notifyNew = notify (fn (user, mail) =>
                           (Mail.mwrite (mail, #name user);
                            Mail.mwrite (mail, " has requested the following ");
                            Mail.mwrite (mail, T.descr);
-                           Mail.mwrite (mail, " packages:\n\n")))
+                           Mail.mwrite (mail, ":\n\n")))
 
 val statusToString =
     fn NEW => "New"
@@ -146,4 +149,4 @@ fun notifyMod (oldStatus, newStatus, changer, req) =
                Mail.mwrite (mail, statusToString newStatus);
                Mail.mwrite (mail, ".\n\n"))) req
                
-end
\ No newline at end of file
+end