A cautionary tale about .mailman

[bpt/portal.git] / pref.mlt

<% val you = Init.getUserId ();
val yourname = Init.getUserName ();
val youremail = yourname ^ "@hcoop.net";

@header [("title", ["Member preferences"])];

if $"cmd" = "mod" then
	if $"dir" = "on" then
		Pref.setDirectory you
	else
		Pref.unsetDirectory you
	end;

	if not (iff $"discuss" = "on" then
			Pref.subscribe ("hcoop-discuss", youremail)
		    else
			Pref.unsubscribe ("hcoop-discuss", youremail)) then
		%><h3>Error setting <tt>hcoop-discuss</tt> status</h3><%
	end;

	if not (iff $"misc" = "on" then
			Pref.subscribe ("hcoop-misc", youremail)
		    else
			Pref.unsubscribe ("hcoop-misc", youremail)) then
		%><h3>Error setting <tt>hcoop-misc</tt> status</h3><%
	end;

	%><h3>Preferences updated</h3><%
end %>

<form action="pref" method="post">
<input type="hidden" name="cmd" value="mod">
<table class="blanks">
<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="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>
</table>

<% @footer[] %>