oops
[invirt/packages/invirt-remote.git] / files / usr / sbin / sipb-xen-remote-proxy
index 0f4f9e8..c94a764 100755 (executable)
@@ -1,7 +1,7 @@
-#!/bin/sh
+#!/bin/bash
 # invoke as sipb-xen-remote-proxy-$TYPE, with "TYPE" in the remctl sense.
 
 # 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
 
 TYPE="${0##*-}"
 case "$TYPE" in
@@ -15,10 +15,12 @@ case "$TYPE/$SERVICE" in
     web/listvms )
        sipb-xen-remote-listvms "$@" ;;
     control/create )
     web/listvms )
        sipb-xen-remote-listvms "$@" ;;
     control/create )
-       remctl black-mesa remote "$TYPE" "$MACHINE" "$SERVICE" "$@" ;;
+       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" "$@" ;;
     * )
     control/* )
        # Everything but create must go where the VM is already running.
        sipb-xen-remote-control "$MACHINE" "$SERVICE" "$@" ;;
     * )
-       remctl black-mesa remote "$TYPE" "$SERVICE" "$@" ;;
+       remctl "$(invirt-getconf hosts.0.hostname)" remote "$TYPE" "$SERVICE" "$@" ;;
 esac
 esac