case "$TYPE/$SERVICE" in
web/listvms )
sipb-xen-remote-listvms "$@" ;;
- control/create )
- sipb-xen-remote-create "$MACHINE" "$@" ;;
- control/listhost )
+ control/create|control/install )
+ sipb-xen-remote-create "$SERVICE" "$MACHINE" "$@" ;;
+ control/listhost|control/list-host )
sipb-xen-remote-listhost "$MACHINE" "$@" ;;
control/* )
# Everything but create must go where the VM is already running.