X-Git-Url: http://xvm.mit.edu/gitweb/invirt/packages/invirt-remote.git/blobdiff_plain/c2ef438b4260463f5294e5236d9b66bb9f4f5592..ccdd1009d00397d0f81fa9a95aa96faf448b9e94:/server/usr/sbin/invirt-remote-proxy diff --git a/server/usr/sbin/invirt-remote-proxy b/server/usr/sbin/invirt-remote-proxy new file mode 100755 index 0000000..f05fa65 --- /dev/null +++ b/server/usr/sbin/invirt-remote-proxy @@ -0,0 +1,30 @@ +#!/bin/bash +# invoke as invirt-remote-proxy-$TYPE, with "TYPE" in the remctl sense. + +klist -s || kinit -k + +TYPE="${0##*-}" +case "$TYPE" in + control ) + MACHINE="$1"; SERVICE="$2"; shift; shift ;; + * ) + SERVICE="$1"; shift ;; +esac + +case "$TYPE/$SERVICE" in + web/listvms ) + invirt-remote-listvms "$@" ;; + web/vnccert ) + invirt-remote-vnccert "$@" ;; + control/help ) + invirt-remctl-help ;; + control/create|control/install ) + invirt-remote-create "$SERVICE" "$MACHINE" "$@" ;; + control/listhost|control/list-host ) + invirt-remote-listhost "$MACHINE" "$@" ;; + control/* ) + # Everything but create must go where the VM is already running. + invirt-remote-control "$MACHINE" "$SERVICE" "$@" ;; + * ) + remctl "$(invirt-getconf hosts.0.hostname)" remote "$TYPE" "$SERVICE" "$@" ;; +esac