X-Git-Url: http://xvm.mit.edu/gitweb/invirt/packages/invirt-remote.git/blobdiff_plain/2176cbdb63ce8467dcb5282f7f59a14e5d6154b3..d7f33e5a8eba8e45cb5ad588a644a5482e82f7d4:/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 91dceda..983d524 100755
--- a/files/usr/sbin/sipb-xen-remote-proxy
+++ b/files/usr/sbin/sipb-xen-remote-proxy
@@ -1,23 +1,26 @@
-#!/bin/sh
+#!/bin/bash
 # invoke as sipb-xen-remote-proxy-$TYPE, with "TYPE" in the remctl sense.
-klist -s || kinit -k host/remote.mit.edu
+
+klist -s || kinit -k
 
 TYPE="${0##*-}"
 case "$TYPE" in
     control )
-	SERVICE="$2" ;;
+	MACHINE="$1"; SERVICE="$2"; shift; shift ;;
     * )
-	SERVICE="$1" ;;
+	SERVICE="$1"; shift ;;
 esac
 
 case "$TYPE/$SERVICE" in
     web/listvms )
-	shift; sipb-xen-remote-listvms "$@" ;;
-    control/create )
-	remctl black-mesa remote "$TYPE" "$@" ;;
+	sipb-xen-remote-listvms "$@" ;;
+    control/create|control/install )
+	sipb-xen-remote-create "$SERVICE" "$MACHINE" "$@" ;;
+    control/listhost|control/list-host )
+	sipb-xen-remote-listhost "$MACHINE" "$@" ;;
     control/* )
 	# Everything but create must go where the VM is already running.
-	sipb-xen-remote-control "$@" ;;
+	sipb-xen-remote-control "$MACHINE" "$SERVICE" "$@" ;;
     * )
-	remctl black-mesa remote "$TYPE" "$@" ;;
+	remctl "$(invirt-getconf hosts.0.hostname)" remote "$TYPE" "$SERVICE" "$@" ;;
 esac