remctl .. control .. listhost: say where a VM is running
[invirt/packages/invirt-remote.git] / files / usr / sbin / sipb-xen-remote-proxy
1 #!/bin/sh
2 # invoke as sipb-xen-remote-proxy-$TYPE, with "TYPE" in the remctl sense.
3
4 klist -s || kinit -k host/remote.mit.edu
5
6 TYPE="${0##*-}"
7 case "$TYPE" in
8     control )
9         MACHINE="$1"; SERVICE="$2"; shift; shift ;;
10     * )
11         SERVICE="$1"; shift ;;
12 esac
13
14 case "$TYPE/$SERVICE" in
15     web/listvms )
16         sipb-xen-remote-listvms "$@" ;;
17     control/create )
18         sipb-xen-remote-create "$MACHINE" "$@" ;;
19     control/listhost )
20         sipb-xen-remote-listhost "$MACHINE" "$@" ;;
21     control/* )
22         # Everything but create must go where the VM is already running.
23         sipb-xen-remote-control "$MACHINE" "$SERVICE" "$@" ;;
24     * )
25         remctl black-mesa remote "$TYPE" "$SERVICE" "$@" ;;
26 esac