val you_all = Init.lookupUser you %>
-<p><h3>The mailing list checkboxes on this page don't work yet. You should visit <a href="https://members.hcoop.net/portal/pref">the corresponding page on the old portal</a> if you want to change subscriptions.</h3></p>
-
<form action="pref" method="post">
<input type="hidden" name="cmd" value="mod">
<table class="blanks">
ignore (C.dml (getDb ()) ($`DELETE FROM DirectoryPref WHERE usr = ^(C.intToSql usr)`))
fun subscribed (list, address) = OS.Process.isSuccess (OS.Process.system (String.concat
- ["/usr/bin/sudo -u list /usr/local/bin/portalsub ",
+ ["/usr/bin/sudo -u list /usr/local/sbin/portalsub ",
list,
" check ",
address]))
fun subscribe (list, address) = OS.Process.isSuccess (OS.Process.system (String.concat
- ["/usr/bin/sudo -u list /usr/local/bin/portalsub ",
+ ["/usr/bin/sudo -u list /usr/local/sbin/portalsub ",
list,
" add ",
address]))
fun unsubscribe (list, address) = OS.Process.isSuccess (OS.Process.system (String.concat
- ["/usr/bin/sudo -u list /usr/local/bin/portalsub ",
+ ["/usr/bin/sudo -u list /usr/local/sbin/portalsub ",
list,
" rm ",
address]))