Update of /cvsroot/hcoop/domtool2/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv6994/src
Modified Files:
domain.sig domain.sml main.sml msg.sml msgTypes.sml
Log Message:
Changes to support IMAP on hopper all compile but are not tested yet
Index: domain.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/domain.sml,v
retrieving revision 1.70
retrieving revision 1.71
diff -C2 -d -r1.70 -r1.71
*** domain.sml 14 Apr 2009 14:07:25 -0000 1.70
--- domain.sml 27 Sep 2009 19:07:34 -0000 1.71
***************
*** 28,31 ****
--- 28,32 ----
val ssl_context = ref (NONE : OpenSSL.context option)
fun set_context ctx = ssl_context := SOME ctx
+ fun get_context () = valOf (!ssl_context)
val nodes = map #1 Config.nodeIps
Index: msgTypes.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/msgTypes.sml,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -d -r1.35 -r1.36
*** msgTypes.sml 17 Feb 2009 16:30:22 -0000 1.35
--- msgTypes.sml 27 Sep 2009 19:07:34 -0000 1.36
***************
*** 127,130 ****
--- 127,132 ----
| MsgReUsers
(* Rerun all callbacks for cases where the set of users has changed *)
+ | MsgVmailChanged
+ (* Server tells slave that vmail user information has changed *)
end
Index: main.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/main.sml,v
retrieving revision 1.110
retrieving revision 1.111
diff -C2 -d -r1.110 -r1.111
*** main.sml 19 Feb 2009 14:19:56 -0000 1.110
--- main.sml 27 Sep 2009 19:07:34 -0000 1.111
***************
*** 1702,1705 ****
--- 1702,1709 ----
| MsgRegenerate => (Domain.resetLocal ();
Msg.send (bio,
MsgOk))
+ | MsgVmailChanged => (if Vmail.doChanged
() then
+ Msg.send (bio,
MsgOk)
+ else
+ Msg.send (bio,
MsgError "userdb update failed"))
| _ => (print "Dispatcher sent
unexpected command\n";
Msg.send (bio, MsgError
"Unexpected command"))
Index: msg.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/msg.sml,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -d -r1.36 -r1.37
*** msg.sml 17 Feb 2009 16:30:22 -0000 1.36
--- msg.sml 27 Sep 2009 19:07:34 -0000 1.37
***************
*** 238,241 ****
--- 238,242 ----
OpenSSL.writeString (bio, s))
| MsgReUsers => OpenSSL.writeInt (bio, 41)
+ | MsgVmailChanged => OpenSSL.writeInt (bio, 42)
fun checkIt v =
***************
*** 351,354 ****
--- 352,356 ----
| 40 => Option.map MsgDescription (OpenSSL.readString bio)
| 41 => SOME MsgReUsers
+ | 42 => SOME MsgVmailChanged
| _ => NONE)
Index: domain.sig
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/domain.sig,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** domain.sig 17 Feb 2009 16:30:22 -0000 1.24
--- domain.sig 27 Sep 2009 19:07:34 -0000 1.25
***************
*** 91,94 ****
--- 91,95 ----
(* UNIX users, groups, and paths the user may act with *)
+ val get_context : unit -> OpenSSL.context
val set_context : OpenSSL.context -> unit
------------------------------------------------------------------------------
Come build with us! The BlackBerry® Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9-12, 2009. Register now!
http://p.sf.net/sfu/devconf
_______________________________________________
hcoop-cvs mailing list
hcoop-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hcoop-cvs
