Update of /cvsroot/hcoop/domtool2/src/plugins
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv32006/src/plugins
Modified Files:
alias.sml
Log Message:
Domain alias support for e-mail aliases
Index: alias.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/plugins/alias.sml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** alias.sml 6 Aug 2006 02:49:48 -0000 1.3
--- alias.sml 29 Apr 2007 20:15:05 -0000 1.4
***************
*** 25,32 ****
structure SM = DataStructures.StringMap
! val aliases : TextIO.outstream SM.map ref = ref SM.empty
fun aliasesF node = valOf (SM.find (!aliases, node))
! val aliasesD : TextIO.outstream SM.map ref = ref SM.empty
fun aliasesDF node = valOf (SM.find (!aliasesD, node))
--- 25,32 ----
structure SM = DataStructures.StringMap
! val aliases : Domain.files SM.map ref = ref SM.empty
fun aliasesF node = valOf (SM.find (!aliases, node))
! val aliasesD : Domain.files SM.map ref = ref SM.empty
fun aliasesDF node = valOf (SM.find (!aliasesD, node))
***************
*** 35,39 ****
val files = map (fn node => aliasesF node) nodes
in
! fn s => app (fn file => TextIO.output (file, s)) files
end
--- 35,40 ----
val files = map (fn node => aliasesF node) nodes
in
! (fn s => app (fn file => #write file s) files,
! fn () => app (fn file => #writeDom file ()) files)
end
***************
*** 42,46 ****
val files = map (fn node => aliasesDF node) nodes
in
! fn s => app (fn file => TextIO.output (file, s)) files
end
--- 43,48 ----
val files = map (fn node => aliasesDF node) nodes
in
! (fn s => app (fn file => #write file s) files,
! fn () => app (fn file => #writeDom file ()) files)
end
***************
*** 48,52 ****
SM.insert (r,
node,
! Domain.domainFile {node = node, name
= base}))
SM.empty Domain.nodes
--- 50,54 ----
SM.insert (r,
node,
! Domain.domainsFile {node = node, name
= base}))
SM.empty Domain.nodes
***************
*** 56,61 ****
val _ = Domain.registerAfter
! (fn _ => (SM.app TextIO.closeOut (!aliases);
! SM.app TextIO.closeOut (!aliasesD)))
fun validEmailUser s =
--- 58,63 ----
val _ = Domain.registerAfter
! (fn _ => (SM.app (fn file => #close file ()) (!aliases);
! SM.app (fn file => #close file ()) (!aliasesD)))
fun validEmailUser s =
***************
*** 118,123 ****
val nodes = Env.env (Env.list Env.string) (env, "MailNodes")
! val write = write nodes
! val writeD = writeD nodes
fun writeTarget (writer, t) =
--- 120,125 ----
val nodes = Env.env (Env.list Env.string) (env, "MailNodes")
! val (write, writeDom) = write nodes
! val (writeD, writeDomD) = writeD nodes
fun writeTarget (writer, t) =
***************
*** 131,145 ****
User s => (write s;
write "@";
! write (Domain.currentDomain ());
write ": ";
writeTarget (write, t);
write "\n")
| Default => (write "*@";
! write (Domain.currentDomain ());
write ": ";
writeTarget (write, t);
write "\n")
| CatchAll => (writeD "*@";
! writeD (Domain.currentDomain ());
writeD ": ";
writeTarget (writeD, t);
--- 133,147 ----
User s => (write s;
write "@";
! writeDom ();
write ": ";
writeTarget (write, t);
write "\n")
| Default => (write "*@";
! writeDom ();
write ": ";
writeTarget (write, t);
write "\n")
| CatchAll => (writeD "*@";
! writeDomD ();
writeD ": ";
writeTarget (writeD, t);
-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
hcoop-cvs mailing list
hcoop-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hcoop-cvs
