[hcoop-cvs] domtool2/src domain.sig, 1.24, 1.25 domain.sml, 1.70, 1.71 main.sml, 1.110, 1.111 msg.s

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