fun unsetDirectory usr =
ignore (C.dml (getDb ()) ($`DELETE FROM DirectoryPref WHERE usr = ^(C.intToSql usr)`))
-end
\ No newline at end of file
+fun subscribed (list, address) = OS.Process.isSuccess (OS.Process.system (String.concat
+ ["/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/sbin/portalsub ",
+ list,
+ " add ",
+ address]))
+
+fun unsubscribe (list, address) = OS.Process.isSuccess (OS.Process.system (String.concat
+ ["/usr/bin/sudo -u list /usr/local/sbin/portalsub ",
+ list,
+ " rm ",
+ address]))
+
+end