X-Git-Url: http://xvm.mit.edu/gitweb/invirt/packages/invirt-remote.git/blobdiff_plain/315d974f414c74456adbf60eb9912a8908421939..602b0bb2a5afc374482d3018398fc6c047703943:/host/usr/sbin/invirt-vmcontrol

diff --git a/host/usr/sbin/invirt-vmcontrol b/host/usr/sbin/invirt-vmcontrol
index 70bff12..66f5ca6 100755
--- a/host/usr/sbin/invirt-vmcontrol
+++ b/host/usr/sbin/invirt-vmcontrol
@@ -22,6 +22,9 @@ case "$ACTION" in
 	;;
     install|create)
 	shift; shift;
+	if [ -f "/etc/invirt/nocreate" ]; then
+		echo "Host $HOSTNAME is currently refusing VM creation." && exit 2
+	fi
 	xm list "$MACHINE" >/dev/null 2>/dev/null && echo "$MACHINE already exists" && exit 1
 	if [ "$ACTION" = "install" ]; then
 	    xm create invirt-database machine_name="$ORIGMACHINE" installer_options="$(printf '%q ' "$@")"