#!/bin/sh
# invoke as sipb-xen-remote-proxy-$TYPE, with "TYPE" in the remctl sense.
+
klist -s || kinit -k host/remote.mit.edu
-#echo remctl black-mesa remote ${0##*-} "$@"
-if false ; then
- remctl black-mesa remote ${0##*-} "$@"
-else
- case "$1" in
- listvms ) shift; sipb-xen-remote-listvms "$@" ;;
- * ) remctl black-mesa remote ${0##*-} "$@" ;;
- esac
-fi
+
+TYPE="${0##*-}"
+case "$TYPE" in
+ control )
+ MACHINE="$1"; SERVICE="$2"; shift; shift ;;
+ * )
+ SERVICE="$1"; shift ;;
+esac
+
+case "$TYPE/$SERVICE" in
+ web/listvms )
+ sipb-xen-remote-listvms "$@" ;;
+ control/create )
+ sipb-xen-remote-create "$MACHINE" "$@" ;;
+ control/listhost )
+ sipb-xen-remote-listhost "$MACHINE" "$@" ;;
+ control/* )
+ # Everything but create must go where the VM is already running.
+ sipb-xen-remote-control "$MACHINE" "$SERVICE" "$@" ;;
+ * )
+ remctl black-mesa remote "$TYPE" "$SERVICE" "$@" ;;
+esac