fun main () =
case CommandLine.arguments () of
[list, cmd, addr] =>
- if list <> "hcoop-discuss" andalso list <> "hcoop-misc" andalso list <> "hcoop-announce" andalso list <> "hcoop-sysadmin" then
+ if list <> "hcoop-discuss" andalso list <> "hcoop-help" andalso list <> "hcoop-misc"
+ andalso list <> "hcoop-announce" andalso list <> "hcoop-sysadmin" then
(print "Bad mailing list name\n";
OS.Process.failure)
else if not (validEmail addr) then
%><h3>Error setting <tt>hcoop-discuss</tt> status</h3><%
end;
+ if not (iff $"help" = "on" then
+ Pref.subscribe ("hcoop-help", youremail)
+ else
+ Pref.unsubscribe ("hcoop-help", youremail)) then
+ %><h3>Error setting <tt>hcoop-help</tt> status</h3><%
+ end;
+
if not (iff $"misc" = "on" then
Pref.subscribe ("hcoop-misc", youremail)
else
<tr></tr>
<tr> <td><input type="checkbox" name="dir"<% if Pref.hasDirectory you then %> checked<% end %>></td> <td>Include me in the public member directory.</td> </tr>
<tr> <td><input type="checkbox" name="discuss"<% if Pref.subscribed ("hcoop-discuss", youremail) then %> checked<% end %>></td> <td>Include me on the <tt>hcoop-discuss</tt> mailing list. <i>(On-topic discussion and sporadically high volume)</i></td> </tr>
+<tr> <td><input type="checkbox" name="help"<% if Pref.subscribed ("hcoop-help", youremail) then %> checked<% end %>></td> <td>Include me on the <tt>hcoop-help</tt> mailing list. <i>(Members-helping-members support on how to use HCoop services)</i></td> </tr>
<tr> <td><input type="checkbox" name="sysadmin"<% if Pref.subscribed ("hcoop-sysadmin", youremail) then %> checked<% end %>></td> <td>Include me on the <tt>hcoop-sysadmin</tt> mailing list. <i>(Discussion about technical adminstrative planning and related issues, not dealing directly with member support requests)</i></td> </tr>
<tr> <td><input type="checkbox" name="misc"<% if Pref.subscribed ("hcoop-misc", youremail) then %> checked<% end %>></td> <td>Include me on the <tt>hcoop-misc</tt> mailing list. <i>(Off-topic)</i></td> </tr>
<tr> <td><input type="submit" value="Save"></td> </tr>