clienttest.pl revision 23179f1443b03947d85eccc81cbc6b5153a4abf3
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync# This little perl program attempts to connect to a running VirtualBox
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync# webservice and calls various methods on it. Please refer to the SDK
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync# programming reference (SDKRef.pdf) for how to use this sample.
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync# Copyright (C) 2008-2009 Sun Microsystems, Inc.
e06c59a0dd265fb36fc3ade96b83ced3aec14c37vboxsync# The following license applies to this file only:
e06c59a0dd265fb36fc3ade96b83ced3aec14c37vboxsync# Permission is hereby granted, free of charge, to any person
e06c59a0dd265fb36fc3ade96b83ced3aec14c37vboxsync# obtaining a copy of this software and associated documentation
e06c59a0dd265fb36fc3ade96b83ced3aec14c37vboxsync# files (the "Software"), to deal in the Software without
e06c59a0dd265fb36fc3ade96b83ced3aec14c37vboxsync# restriction, including without limitation the rights to use,
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync# copy, modify, merge, publish, distribute, sublicense, and/or
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync# sell copies of the Software, and to permit persons to whom the
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync# Software is furnished to do so, subject to the following conditions:
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync# The above copyright notice and this permission notice shall be
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync# included in all copies or substantial portions of the Software.
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync# OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync# HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync# WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync# OTHER DEALINGS IN THE SOFTWARE.
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsyncuse vboxService; # generated by stubmaker, see SDKRef.pdf
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync print "$cmd: test the VirtualBox web service.\n".
7519a1c4323fa86fbb19a36a91cd25abfd7af714vboxsync "Usage:\n".
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync " $cmd <mode>\n".
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync "with <mode> being one of 'version', 'list', 'start'; default is 'list'.\n".
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync " $cmd version: print version of VirtualBox web service.\n".
18470279db8a9fdd714617adbe1aa8b63cc80aeevboxsync " $cmd list: list installed virtual machines.\n".
512facdec74744adf03a688eae5ae00628d89d82vboxsync " $cmd startvm <vm>: start the virtual machine named <vm>.\n";
if (!$optMode);
if (!$vbox)
if (!$machine)
if (!$machine);
if (!$session);
if (!$uuid);
$session,
$uuid,
if (!$progress);
my $fCompleted;
my $resultCode;