X-Git-Url: http://xvm.mit.edu/gitweb/invirt/packages/invirt-remote.git/blobdiff_plain/ccdd1009d00397d0f81fa9a95aa96faf448b9e94..ab1973b52cb6de053cca60b50d058907f88e246b:/host/usr/sbin/invirt-vmcontrol?ds=inline

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 ' "$@")"