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

Timestamp:

Jun 25, 2009 11:53:37 AM (15 years ago)

Author:

vboxsync

Message:

API/others: Renamed IConsole::discardSavedState to IConsole::forgetSavedState, added parameter. Deleted old IConsole::powerDown, renamed IConsole::powerDownAsync to IConsole::powerDown (as promised for 2.1). Implemented perl sample code for registering a hard disk. Cleaned up constant formatting in the API docs. Updated SDK changelog. Renamed com/errorprint2.h to com/errorprint.h, added a few assertion variants. Eliminated com/errorprint_legacy.h. Adjusted all files using the affected headers and APIs. Renamed tstHeadless2 to tstHeadless.

File:

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

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

@@ -39 +39 @@
 my $optMode;
 my $vmname;
+my $disk;
 
 while (my $this = shift(@ARGV))
@@ -66 +67 @@
         {
             die "[$cmd] Missing parameter: You must specify the name of the VM to start.\nStopped";
+        }
+    }
+    elsif ($this eq 'openhd')
+    {
+        $optMode = $this;
+
+        if (!($disk = shift(@ARGV)))
+        {
+            die "[$cmd] Missing parameter: You must specify the name of the disk to open.\nStopped";
         }
     }
@@ -148 +158 @@
     vboxService->IWebsessionManager_logoff($vbox);
 }
+elsif ($optMode eq "openhd")
+{
+    my $harddisk = vboxService->IVirtualBox_openHardDisk($vbox, $disk, 1, 0, "", 0, "");
+}