Print on start of mysql-fixperms in domtool-server

diff --git a/src/main.sml b/src/main.sml
index 4836ed8..9b9d296 100644 (file)
--- a/src/main.sml
+++ b/src/main.sml
@@ -1555,14 +1555,15 @@ fun service () =
                                      (fn () => ())
 
                               | MsgMysqlFixperms =>
                                      (fn () => ())
 
                               | 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)
+                                (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."))
                                                 else
                                                     ("Requested mysql-fixperms, but execution failed!",
                                                      SOME "Script execution failed."))

-                                     (fn () => ())
+                                      (fn () => ()))

 
                               | MsgDescribe dom =>
                                 doIt (fn () => if not (Domain.validDomain dom) then
 
                               | MsgDescribe dom =>
                                 doIt (fn () => if not (Domain.validDomain dom) then