Changeset 17681 in vbox for trunk/src/VBox/Main/webservice/samples/perl

Timestamp:

Mar 11, 2009 11:45:18 AM (16 years ago)

Author:

vboxsync

Message:

webservice: fix perl sample + documentation

File:

• trunk/src/VBox/Main/webservice/samples/perl/clienttest.pl (modified) (3 diffs)

trunk/src/VBox/Main/webservice/samples/perl/clienttest.pl

@@ -3 +3 @@
 #
 # This little perl program attempts to connect to a running VirtualBox
-# webservice and calls various methods on it.
-#
-# To get this to run:
-#
-# 0) If not yet among perl's modules, install SOAP::Lite. Users of debian
-#    based systems might try 'sudo apt-get install libsoap-lite-perl'.
-#
-# 1) In this directory, run
-#    stubmaker file:///path/to/sdk/bindings/webservice/vboxwebService.wsdl
-#    Note: the command is named stubmaker.pl on some systems.
-#    stubmaker should be installed on your system if you have SOAP::Lite and
-#    will, after a little while of thinking, create a vboxService.pm
-#    file in the current directory, which the "use" statement below
-#    then includes.
-#
-#    (SOAP::Lite supports parsing the WSDL file on every run of
-#    the script, but it takes up to a minute to do so, hence the external
-#    variant via stubmaker.pl here.)
-#
-# 2) Start vboxwebsrv.
-#
-# 3) Run this script.
-#
+# webservice and calls various methods on it. Please refer to the SDK
+# programming reference (SDKRef.pdf) for how to use this sample.
 #
 # Copyright (C) 2006-2009 Sun Microsystems, Inc.
@@ -44 +23 @@
 use strict;
 use SOAP::Lite;
-use vboxService;
+use vboxService;    # generated by stubmaker, see SDKRef.pdf
 use Data::Dumper;
 
@@ -103 +82 @@
 {
     print "[$cmd] Listing machines:\n";
-    my $result = vboxService->IVirtualBox_getMachines($vbox);
-    foreach my $idMachine (@{$result->{'array'}})
+    my @result = vboxService->IVirtualBox_getMachines2($vbox);
+    foreach my $idMachine (@result)
     {
         my $if = vboxService->IManagedObjectRef_getInterfaceName($idMachine);