source: trunk/packages/invirt-remote/server/usr/sbin/invirt-remote-proxy @ 2011

#!/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