case "$TYPE/$SERVICE" in
web/listvms )
sipb-xen-remote-listvms "$@" ;;
- control/create )
- sipb-xen-remote-create "$MACHINE" "$@" ;;
+ control/create|control/install )
+ sipb-xen-remote-create "$SERVICE" "$MACHINE" "$@" ;;
control/listhost )
sipb-xen-remote-listhost "$MACHINE" "$@" ;;
control/* )