Changeset 42041 in vbox for trunk/src/VBox/Main

Timestamp:

Jul 6, 2012 4:22:39 PM (13 years ago)

Author:

vboxsync

Message:

webservice/clienttest.pl: add sample code for triggering an ACPI shutdown, and fix quite a bit of API version bit rot

File:

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

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

@@ -6 +6 @@
 # programming reference (SDKRef.pdf) for how to use this sample.
 #
-# Copyright (C) 2008-2010 Oracle Corporation
+# Copyright (C) 2008-2012 Oracle Corporation
 #
 # The following license applies to this file only:
@@ -51 +51 @@
               "    $cmd version: print version of VirtualBox web service.\n".
               "    $cmd list: list installed virtual machines.\n".
-              "    $cmd startvm <vm>: start the virtual machine named <vm>.\n";
+              "    $cmd startvm <vm>: start the virtual machine named <vm>.\n".
+              "    $cmd acpipowerbutton <vm>: shutdown of the irtual machine named <vm>.\n";
         exit 0;
     }
@@ -60 +61 @@
         $optMode = $this;
     }
-    elsif ($this eq 'startvm')
+    elsif (    ($this eq 'startvm')
+            || ($this eq 'acpipowerbutton')
+          )
     {
         $optMode = $this;
@@ -113 +116 @@
 elsif ($optMode eq "startvm")
 {
-    # assume it's a UUID
-    my $machine = vboxService->IVirtualBox_getMachine($vbox, $vmname);
-    if (!$machine)
-    {
-        # no: then try a name
-        $machine = vboxService->IVirtualBox_findMachine($vbox, $vmname);
-    }
+    my $machine = vboxService->IVirtualBox_findMachine($vbox, $vmname);
 
     die "[$cmd] Cannot find VM \"$vmname\"; stopped"
@@ -134 +131 @@
     print "[$cmd] UUID: $uuid\n";
 
-    my $progress = vboxService->IVirtualBox_openRemoteSession($vbox,
-                                                              $session,
-                                                              $uuid,
-                                                              "vrdp",
-                                                              "");
-    die "[$cmd] Cannot open remote session; stopped"
+    my $progress = vboxService->IMachine_launchVMProcess($machine,
+                                                         $session,
+                                                         "headless",
+                                                         "");
+    die "[$cmd] Cannot launch VM; stopped"
         if (!$progress);
 
-    print("[$cmd] Waiting for the remote session to open...\n");
+    print("[$cmd] Waiting for the VM to start...\n");
     vboxService->IProgress_waitForCompletion($progress, -1);
 
@@ -154 +150 @@
     print("[$cmd] Result: $resultCode\n");
 
-    vboxService->ISession_close($session);
+    vboxService->ISession_unlockMachine($session);
+
+    vboxService->IWebsessionManager_logoff($vbox);
+}
+elsif ($optMode eq "acpipowerbutton")
+{
+    my $machine = vboxService->IVirtualBox_findMachine($vbox, $vmname);
+
+    die "[$cmd] Cannot find VM \"$vmname\"; stopped"
+        if (!$machine);
+
+    my $session = vboxService->IWebsessionManager_getSessionObject($vbox);
+    die "[$cmd] Cannot get session object; stopped"
+        if (!$session);
+
+    my $shared = SOAP::Data->type('vbox:LockType')->name('session')->value('Shared');
+    vboxService->IMachine_lockMachine($machine, $session, $shared);
+
+    my $console = vboxService->ISession_getConsole($session);
+
+    vboxService->IConsole_powerButton($console);
+
+    vboxService->ISession_unlockMachine($session);
 
     vboxService->IWebsessionManager_logoff($vbox);
@@ -160 +178 @@
 elsif ($optMode eq "openhd")
 {
-    my $harddisk = vboxService->IVirtualBox_openHardDisk($vbox, $disk, 1, 0, "", 0, "");
+    my $medium = vboxService->IVirtualBox_openMedium($vbox, $disk, 3, # DeviceType_HardDisk
+                                                     1, # AccessMode_ReadWrite
+                                                     0, # false
+                                                     "", # empty uuid
+                                                     0, # false
+                                                     ""); #empty uuid
 }