Better checking of Block arguments

[hcoop/zz_old/domtool.git] / src / djbdns / djbdns.sml

diff --git a/src/djbdns/djbdns.sml b/src/djbdns/djbdns.sml
index 4f05e91..d8c9ac3 100644 (file)
--- a/src/djbdns/djbdns.sml
+++ b/src/djbdns/djbdns.sml
@@ -283,13 +283,14 @@ struct
                        val st = Posix.FileSys.stat fullName
                    in
                        if Posix.FileSys.ST.isDir st then
-                           if OS.Process.isSuccess (OS.Process.system (rsync ^ " -az --delete " ^ fullName ^ "/*.dns `" ^ cat ^ " " ^ fullName ^ "/destination`")) then
+                           ()
+                           (*if OS.Process.isSuccess (OS.Process.system (rsync ^ " -az --delete " ^ fullName ^ "/*.dns `" ^ cat ^ " " ^ fullName ^ "/destination`")) then
                                if OS.Process.isSuccess (OS.Process.system (rsync ^ " -az --delete " ^ fullName ^ "/slaves/* `" ^ cat ^ " " ^ fullName ^ "/slaves_destination`")) then
                                    ()
                                else
                                    print ("Error sending sub-slaves to slave " ^ name ^ "\n")
                            else
-                               print ("Error sending to slave " ^ name ^ "\n")
+                               print ("Error sending to slave " ^ name ^ "\n")*)
                        else
                            ()
                    end