[hcoop-cvs] domtool2/src main.sml,1.106,1.107

[Adam C. <ad...@us...>]

Update of /cvsroot/hcoop/domtool2/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv25505/src

Modified Files:
	main.sml 
Log Message:
Print on start of mysql-fixperms in domtool-server

Index: main.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/main.sml,v
retrieving revision 1.106
retrieving revision 1.107
diff -C2 -d -r1.106 -r1.107
*** main.sml	10 Jul 2008 23:38:53 -0000	1.106
--- main.sml	24 Nov 2008 14:08:35 -0000	1.107
***************
*** 1556,1567 ****
  
  			       | MsgMysqlFixperms =>
! 				 doIt (fn () => if OS.Process.isSuccess
! 						       (OS.Process.system "/usr/bin/sudo -H /afs/hcoop.net/common/etc/scripts/mysql-grant-table-drop") then
! 						    ("Requested mysql-fixperms",
! 						     NONE)
  						 else
  						     ("Requested mysql-fixperms, but execution failed!",
  						      SOME "Script execution failed."))
! 				      (fn () => ())
  
  			       | MsgDescribe dom =>
--- 1556,1568 ----
  
  			       | MsgMysqlFixperms =>
! 				 (print "Starting mysql-fixperms\n";
! 				  doIt (fn () => if OS.Process.isSuccess
! 							(OS.Process.system "/usr/bin/sudo -H /afs/hcoop.net/common/etc/scripts/mysql-grant-table-drop") then
! 						     ("Requested mysql-fixperms",
! 						      NONE)
  						 else
  						     ("Requested mysql-fixperms, but execution failed!",
  						      SOME "Script execution failed."))
! 				       (fn () => ()))
  
  			       | MsgDescribe dom =>