1 structure Pref
:> PREF
=
7 case C
.oneOrNoRows (getDb ()) ($`SELECT
* FROM DirectoryPref WHERE usr
= ^
(C
.intToSql usr
)`
) of
11 fun setDirectory usr
=
12 if hasDirectory usr
then
15 ignore (C
.dml (getDb ()) ($`INSERT INTO
DirectoryPref (usr
) VALUES (^
(C
.intToSql usr
))`
))
17 fun unsetDirectory usr
=
18 ignore (C
.dml (getDb ()) ($`DELETE FROM DirectoryPref WHERE usr
= ^
(C
.intToSql usr
)`
))
20 fun subscribed (list
, address
) = OS
.Process
.isSuccess (OS
.Process
.system (String.concat
21 ["/usr/bin/sudo -u list /usr/local/bin/portalsub ",
26 fun subscribe (list
, address
) = OS
.Process
.isSuccess (OS
.Process
.system (String.concat
27 ["/usr/bin/sudo -u list /usr/local/bin/portalsub ",
32 fun unsubscribe (list
, address
) = OS
.Process
.isSuccess (OS
.Process
.system (String.concat
33 ["/usr/bin/sudo -u list /usr/local/bin/portalsub ",