Clear error message for trying to run all config in a nonexistent directory

diff --git a/Makefile b/Makefile
index 43719ea..c4512ec 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -163,7 +163,12 @@ install:
        cp src/plugins/domtool-postgres /usr/local/sbin/
        cp src/plugins/domtool-mysql /usr/local/sbin/
 
-.PHONY: grab_lib
+.PHONY: grab_lib install_server install_slave
 
 grab_lib:
        rsync -r --delete /afs/hcoop.net/common/etc/domtool/lib/* lib/
+
+install_server:
+       sudo /etc/init.d/domtool-server stop
+       sudo make install
+       sudo /etc/init.d/domtool-server start

diff --git a/src/main.sml b/src/main.sml
index 4e377a9..51b8347 100644 (file)
--- a/src/main.sml
+++ b/src/main.sml
@@ -242,6 +242,14 @@ fun request fname =
 
 fun requestDir dname =
     let
+       val _ = if Posix.FileSys.access (dname, []) then
+                   ()
+               else
+                   (print ("Can't access " ^ dname ^ ".\n");
+                    print "Did you mean to run domtool on a specific file, instead of asking for all\n";
+                    print "files in your ~/domtool directory?\n";
+                    OS.Process.exit OS.Process.failure)
+
        val _ = ErrorMsg.reset ()
 
        val (user, bio) = requestBio (fn () => checkDir dname)