X-Git-Url: http://xvm.mit.edu/gitweb/invirt/packages/invirt-remote.git/blobdiff_plain/d8c96686c66f6078a2c63835ff68f114a4e8dacc..15813cdf61c889aae4cc9b1d2eecbdf71869fb8a:/files/usr/sbin/sipb-xen-remote-proxy

diff --git a/files/usr/sbin/sipb-xen-remote-proxy b/files/usr/sbin/sipb-xen-remote-proxy
index b230166..91dceda 100755
--- a/files/usr/sbin/sipb-xen-remote-proxy
+++ b/files/usr/sbin/sipb-xen-remote-proxy
@@ -1,10 +1,23 @@
 #!/bin/sh
 # invoke as sipb-xen-remote-proxy-$TYPE, with "TYPE" in the remctl sense.
 klist -s || kinit -k host/remote.mit.edu
+
 TYPE="${0##*-}"
-SERVICE="$1"
-#echo remctl black-mesa remote "$TYPE" "$@"
-case "$SERVICE" in
-    listvms ) shift; sipb-xen-remote-listvms "$@" ;;
-    *       ) remctl black-mesa remote "$TYPE" "$@" ;;
+case "$TYPE" in
+    control )
+	SERVICE="$2" ;;
+    * )
+	SERVICE="$1" ;;
+esac
+
+case "$TYPE/$SERVICE" in
+    web/listvms )
+	shift; sipb-xen-remote-listvms "$@" ;;
+    control/create )
+	remctl black-mesa remote "$TYPE" "$@" ;;
+    control/* )
+	# Everything but create must go where the VM is already running.
+	sipb-xen-remote-control "$@" ;;
+    * )
+	remctl black-mesa remote "$TYPE" "$@" ;;
 esac