From: Adam C. <ad...@us...> - 2008-11-24 14:08:41
|
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 => |