diff --git a/perl-xCAT/xCAT/DSHCLI.pm b/perl-xCAT/xCAT/DSHCLI.pm index 9b09140c5..fc86ae999 100644 --- a/perl-xCAT/xCAT/DSHCLI.pm +++ b/perl-xCAT/xCAT/DSHCLI.pm @@ -598,7 +598,7 @@ sub _execute_dsh } else { - # LKV: This is where the output shows up + # HERE: This is where the output shows up #print STDOUT @{$output_buffers{$user_target}}; #print STDERR @{$error_buffers{$user_target}}; chomp(@{$output_buffers{$user_target}}); @@ -5310,7 +5310,8 @@ sub build_merge_rsync if ($syncmergescript == 0) { # don't add the xdcpmerge.sh line push @::mergelines,$line; } - my $src_file = $1; # merge file left of arror + my $src_file = $1; # merge file left of arrow + my $orig_src_file = $1; # it will be sync'd to $nodesyncfiledir/$merge_file my $dest_file = $nodesyncfiledir; $dest_file .= $src_file; @@ -5339,7 +5340,7 @@ sub build_merge_rsync # to pick up files from /var/xcat/syncfiles... if ($onServiceNode == 1) { my $newsrcfile = $syncdir; # add SN syndir on front - $newsrcfile .= $src_file; + $newsrcfile .= $orig_src_file; $src_file=$newsrcfile; } # destination file name diff --git a/perl-xCAT/xCAT/FSPvm.pm b/perl-xCAT/xCAT/FSPvm.pm index 6eda34c46..afcfa3d24 100644 --- a/perl-xCAT/xCAT/FSPvm.pm +++ b/perl-xCAT/xCAT/FSPvm.pm @@ -48,6 +48,15 @@ sub parse_args { ########################################################################## # Parse the chvm command line for options and operands ########################################################################## +my @query_array = (); +my %param_list_map = ( + 'vmcpus' => 'part_get_lpar_processing', + 'vmmemory' => 'part_get_lpar_memory', + 'vmphyslots' => 'part_get_all_io_bus_info', + 'vmnics' => 'part_get_all_vio_info', + 'vmstorage' => 'part_get_all_vio_info', + 'del_vadapter' => 'part_get_all_vio_info' +); sub chvm_parse_extra_options { my $args = shift; @@ -57,6 +66,7 @@ sub chvm_parse_extra_options { if (ref($args) ne 'ARRAY') { return "$args"; } + my %tmp_hash = (); foreach (@$args) { my ($cmd, $value) = split (/\=/, $_); if (!defined($value)) { @@ -75,14 +85,24 @@ sub chvm_parse_extra_options { # return "'$value' invalid"; # } } elsif (grep(/^$cmd$/, @support_ops)) { + if (exists($param_list_map{$cmd})) { + $tmp_hash{$param_list_map{$cmd}} = 1; + } if (exists($opt->{p775})) { return "'$cmd' doesn't work for Power 775 machines."; + } elsif ($cmd eq "del_vadapter") { + if ($value !~ /^\d+$/) { + return "Invalid param '$value', only one slot id can be specified"; + } + } elsif ($cmd eq "vmothersetting") { if ($value =~ /hugepage:\s*(\d+)/i) { $opt->{huge_page} = $1; + $tmp_hash{'get_huge_page'} = 1; } if ($value =~ /bsr:\s*(\d+)/i) { $opt->{bsr} = $1; + $tmp_hash{'get_cec_bsr'} = 1; } next; } elsif ($cmd eq "vmstorage") { @@ -157,6 +177,7 @@ sub chvm_parse_extra_options { } $opt->{$cmd} = $value; } + @query_array = keys(%tmp_hash); return undef; } @@ -763,7 +784,7 @@ sub do_op_extra_cmds { my $request = shift; my $hash = shift; my @values = (); - + my %lpar_hash = (); while (my ($mtms, $h) = each(%$hash)) { my $memhash; while (my($name, $d) = each(%$h)) { @@ -871,8 +892,15 @@ sub do_op_extra_cmds { push @values, [$name, "Success", '0']; } } + my $rethash = query_cec_info_actions($request, $name, $d, 1, \@query_array); + # need to add update db here + $lpar_hash{$name} = $rethash; + $lpar_hash{$name}->{parent} = @$d[4]; } } + if (%lpar_hash) { + update_vm_db($request, \%lpar_hash); + } return \@values; } sub check_node_info { @@ -1839,11 +1867,16 @@ sub update_vm_db { my $lpar_hash = shift; my $vm_hd = xCAT::Table->new('vm'); my %name_id_map = (); + my $commit = 0; foreach (keys (%$lpar_hash)) { my %db_update = (); my $node_hash = $lpar_hash->{$_}; - $db_update{cpus} = "$node_hash->{lpar_cpu_min}/$node_hash->{lpar_cpu_req}/$node_hash->{lpar_cpu_max}"; - $db_update{memory} = "$node_hash->{lpar_mem_min}/$node_hash->{lpar_mem_req}/$node_hash->{lpar_mem_max}"; + if (exists($node_hash->{lpar_cpu_min})) { + $db_update{cpus} = "$node_hash->{lpar_cpu_min}/$node_hash->{lpar_cpu_req}/$node_hash->{lpar_cpu_max}"; + } + if (exists($node_hash->{lpar_mem_nim})) { + $db_update{memory} = "$node_hash->{lpar_mem_min}/$node_hash->{lpar_mem_req}/$node_hash->{lpar_mem_max}"; + } if (exists($node_hash->{lpar_vmstorage_server})) { $db_update{storage} = $node_hash->{lpar_vmstorage_server}; } elsif (exists($node_hash->{lpar_vmstorage_client})) { @@ -1863,14 +1896,23 @@ sub update_vm_db { } $db_update{storage} = join(",",@tmp_array); } - $db_update{nics} = join(",",@{$node_hash->{lpar_vmnics}}); - $db_update{physlots} = join(",",@{$node_hash->{lpar_phy_bus}}); + if (exists($node_hash->{lpar_vmnics})) { + $db_update{nics} = join(",",@{$node_hash->{lpar_vmnics}}); + } + if (exists($node_hash->{lpar_phy_bus})) { + $db_update{physlots} = join(",",@{$node_hash->{lpar_phy_bus}}); + } if (exists($node_hash->{lpar_othersetting})) { $db_update{othersettings} = join(",",@{$node_hash->{lpar_othersetting}}); } - $vm_hd->setNodeAttribs($_,\%db_update); + if (%db_update) { + $vm_hd->setNodeAttribs($_,\%db_update); + $commit = 1; + } + } + if ($commit) { + $vm_hd->commit; } - $vm_hd->commit; } #my @partition_query_actions = qw(part_get_partition_cap part_get_num_of_lpar_slots part_get_hyp_config_process_and_mem part_get_hyp_avail_process_and_mem part_get_service_authority_lpar_id part_get_shared_processing_resource part_get_all_vio_info lpar_lhea_mac part_get_all_io_bus_info part_get_lpar_processing part_get_lpar_memory get_huge_page get_cec_bsr); @@ -2162,6 +2204,7 @@ sub mkspeclpar { my $opt = $request->{opt}; my $values; my @result = (); + my %lpar_hash = (); my $vmtab = xCAT::Table->new( 'vm'); unless($vmtab) { return([["Error","Cannot open vm table", 1]]); @@ -2327,10 +2370,18 @@ sub mkspeclpar { $tmp_ent->{logic_drc_phydrc} = $memhash->{logic_drc_phydrc}; $values = &create_lpar($request, $name, $d, $tmp_ent); push @result, $values; + #need to add update db here + my $rethash = query_cec_info_actions($request, $name, $d, 1, ["part_get_lpar_processing","part_get_lpar_memory","part_get_all_vio_info","part_get_all_io_bus_info","get_huge_page","get_cec_bsr"]); + $lpar_hash{$name} = $rethash; + $lpar_hash{$name}->{parent} = @$d[4]; + $name = undef; $d = undef; } } + if (%lpar_hash) { + update_vm_db($request, \%lpar_hash); + } return \@result; } diff --git a/perl-xCAT/xCAT/NetworkUtils.pm b/perl-xCAT/xCAT/NetworkUtils.pm index 2923b5228..92eee296b 100755 --- a/perl-xCAT/xCAT/NetworkUtils.pm +++ b/perl-xCAT/xCAT/NetworkUtils.pm @@ -1981,6 +1981,53 @@ sub isIpaddr } } + +#------------------------------------------------------------------------------- +=head3 getSubnetGateway + Description: + Get gateway from the networks table of the specified net. + + Arguments: + net: the net, ie. the "net" field of the networks table + Returns: + Return a string, of the gateway + undef - Failed to get the gateway + Globals: + none + Error: + none + Example: + my $gateway = xCAT::NetworkUtils::getSubnetGateway('192.168.1.0'); + Comments: + none + +=cut +#------------------------------------------------------------------------------- +sub getSubnetGateway +{ + my $netname=shift; + if( $netname =~ /xCAT::NetworkUtils/) + { + $netname=shift; + } + + my $gateway=undef; + my $nettab = xCAT::Table->new("networks"); + unless($nettab) { die "No entry defined in networks"; } + my @nets = $nettab->getAllAttribs('net','gateway'); + foreach(@nets) + { + if("$_->{net}" eq "$netname") + { + $gateway = $_->{gateway}; + last; + } + } + + return $gateway; +} + + #------------------------------------------------------------------------------- =head3 getNodeNetworkCfg @@ -2007,17 +2054,23 @@ sub isIpaddr sub getNodeNetworkCfg { my $node = shift; - + if( $node =~ /xCAT::NetworkUtils/) + { + $node =shift; + } + my $nets = xCAT::NetworkUtils::my_nets(); my $ip = xCAT::NetworkUtils->getipaddr($node); my $mask = undef; + my $gateway = undef; for my $net (keys %$nets) { my $netname; ($netname,$mask) = split /\//, $net; + $gateway=xCAT::NetworkUtils::getSubnetGateway($netname); last if ( xCAT::NetworkUtils::isInSameSubnet( $netname, $ip, $mask, 1)); } - return ($ip, $node, undef, xCAT::NetworkUtils::formatNetmask($mask,1,0)); + return ($ip, $node, $gateway, xCAT::NetworkUtils::formatNetmask($mask,1,0)); } #------------------------------------------------------------------------------- diff --git a/perl-xCAT/xCAT/TableUtils.pm b/perl-xCAT/xCAT/TableUtils.pm old mode 100644 new mode 100755 index bf3adfef3..69599d1fd --- a/perl-xCAT/xCAT/TableUtils.pm +++ b/perl-xCAT/xCAT/TableUtils.pm @@ -1177,7 +1177,9 @@ sub getAppStatus my ($class, $nodes_ref, $application) = @_; my @nodes = @$nodes_ref; - my $nltab = xCAT::Table->new('nodelist'); + # FIXME: why autocommit matters for a read-only subroutine getNodesAttribs? + # but could not get the appstatus without the autocommit=0 + my $nltab = xCAT::Table->new('nodelist', -autocommit => 0); my $nodeappstat = $nltab->getNodesAttribs(\@nodes,['appstatus']); my $ret_nodeappstat; diff --git a/perl-xCAT/xCAT/Usage.pm b/perl-xCAT/xCAT/Usage.pm index 003b1bd98..7033510a3 100644 --- a/perl-xCAT/xCAT/Usage.pm +++ b/perl-xCAT/xCAT/Usage.pm @@ -222,7 +222,7 @@ my %usage = ( lsvm [-a|--all] PPC (using Direct FSP Management) specific: lsvm [-l|--long] --p775 - lsvm [--updatedb] + lsvm zVM specific: lsvm noderange lsvm noderange --getnetworknames diff --git a/perl-xCAT/xCAT/vboxService.pm b/perl-xCAT/xCAT/vboxService.pm index 606be99cd..fde7d06fd 100644 --- a/perl-xCAT/xCAT/vboxService.pm +++ b/perl-xCAT/xCAT/vboxService.pm @@ -1,3755 +1,917 @@ -# IBM(c) 2008 EPL license http://www.eclipse.org/legal/epl-v10.html -# Ver. 2.1 (3) - sf@mauricebrinkmann.de -#------------------------------------------------------- - -package xCAT::vboxService; -my %methods = ( -IVirtualBox_getExtraData => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'key', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getExtraData -ISerialPort_setHostMode => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'hostMode', type => 'vbox:PortMode', attr => {}), - ], # end parameters - }, # end ISerialPort_setHostMode -IHostFloppyDrive_getName => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHostFloppyDrive_getName -IVHDImage_getCreated => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVHDImage_getCreated -IFloppyDrive_setEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'enabled', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end IFloppyDrive_setEnabled -IUSBDeviceFilter_getManufacturer => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_getManufacturer -IParallelPort_setIOBase => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'IOBase', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end IParallelPort_setIOBase -ISystemProperties_getNetworkAdapterCount => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISystemProperties_getNetworkAdapterCount -IMachine_getName => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getName -IVRDPServer_setEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'enabled', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end IVRDPServer_setEnabled -IHardDisk_setDescription => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'description', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHardDisk_setDescription -IVRDPServer_getNetAddress => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVRDPServer_getNetAddress -ISnapshot_getChildren => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISnapshot_getChildren -IMachine_getOSTypeId => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getOSTypeId -IUSBDevice_getRevision => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDevice_getRevision -IVirtualDiskImage_deleteImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualDiskImage_deleteImage -IHardDisk_setType => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'type', type => 'vbox:HardDiskType', attr => {}), - ], # end parameters - }, # end IHardDisk_setType -IVirtualBox_getHost => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getHost -IMachine_setCurrentSnapshot => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_setCurrentSnapshot -IUSBDevice_getId => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDevice_getId -IDVDDrive_getState => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IDVDDrive_getState -IISCSIHardDisk_getLun => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IISCSIHardDisk_getLun -IConsole_getSharedFolders => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_getSharedFolders -IMachine_getVRAMSize => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getVRAMSize -IMachine_getId => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getId -ISerialPort_setServer => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'server', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end ISerialPort_setServer -ISnapshot_setName => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'name', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISnapshot_setName -IMachine_getPAEEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getPAEEnabled -IVirtualBox_getDVDImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getDVDImage -IUSBDevice_getProductId => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDevice_getProductId -ISnapshot_getTimeStamp => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISnapshot_getTimeStamp -IVirtualBox_openFloppyImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'filePath', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_openFloppyImage -IHost_getFloppyDrives => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHost_getFloppyDrives -IMachine_getLogFolder => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getLogFolder -IMachine_getBIOSSettings => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getBIOSSettings -ISystemProperties_getMinGuestVRAM => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISystemProperties_getMinGuestVRAM -IVirtualBox_registerFloppyImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'image', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_registerFloppyImage -IHardDisk_getStorageType => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHardDisk_getStorageType -INetworkAdapter_attachToInternalNetwork => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_attachToInternalNetwork -ISerialPort_getPath => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISerialPort_getPath -ISATAController_getPortCount => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISATAController_getPortCount -IHardDisk_getLocation => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHardDisk_getLocation -IProgress_getResultCode => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IProgress_getResultCode -ISystemProperties_getMaxBootPosition => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISystemProperties_getMaxBootPosition -IMachine_getStateFilePath => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getStateFilePath -IUSBController_getDeviceFilters => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBController_getDeviceFilters -IVirtualBox_saveSettingsWithBackup => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_saveSettingsWithBackup -IMachine_attachHardDisk => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'bus', type => 'vbox:StorageBus', attr => {}), - SOAP::Data->new(name => 'channel', type => 'xsd:int', attr => {}), - SOAP::Data->new(name => 'device', type => 'xsd:int', attr => {}), - ], # end parameters - }, # end IMachine_attachHardDisk -IMachine_getSettingsFilePath => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getSettingsFilePath -INetworkAdapter_setLineSpeed => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'lineSpeed', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end INetworkAdapter_setLineSpeed -IConsole_pause => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_pause -IMachine_getClipboardMode => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getClipboardMode -IVirtualBox_getMachines2 => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getMachines2 -ISerialPort_setIOBase => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'IOBase', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end ISerialPort_setIOBase -IMachine_setName => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'name', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_setName -IMachine_getState => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getState -ISerialPort_getSlot => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISerialPort_getSlot -INetworkAdapter_setAdapterType => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'adapterType', type => 'vbox:NetworkAdapterType', attr => {}), - ], # end parameters - }, # end INetworkAdapter_setAdapterType -IConsole_takeSnapshot => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'name', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'description', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_takeSnapshot -IVirtualDiskImage_createFixedImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'size', type => 'xsd:unsignedLong', attr => {}), - ], # end parameters - }, # end IVirtualDiskImage_createFixedImage -IMachine_getCurrentSnapshot => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getCurrentSnapshot -IConsole_getRemoteUSBDevices => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_getRemoteUSBDevices -IVirtualBox_getFloppyImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getFloppyImage -INetworkAdapter_setTraceEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'traceEnabled', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end INetworkAdapter_setTraceEnabled -IProgress_getCompleted => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IProgress_getCompleted -IISCSIHardDisk_setUserName => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'userName', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IISCSIHardDisk_setUserName -ISystemProperties_getMaxVDISize => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISystemProperties_getMaxVDISize -IConsole_getUSBDevices => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_getUSBDevices -IVRDPServer_getAuthType => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVRDPServer_getAuthType -IMachine_discardSettings => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_discardSettings -IHost_getUSBDeviceFilters => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHost_getUSBDeviceFilters -IParallelPort_setPath => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'path', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IParallelPort_setPath -IParallelPort_setIRQ => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'IRQ', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end IParallelPort_setIRQ -IMouse_getAbsoluteSupported => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMouse_getAbsoluteSupported -IUSBDeviceFilter_setRevision => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'revision', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_setRevision -IFloppyDrive_getHostDrive => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IFloppyDrive_getHostDrive -IMachine_getSerialPort => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'slot', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end IMachine_getSerialPort -IMachine_detachHardDisk => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'bus', type => 'vbox:StorageBus', attr => {}), - SOAP::Data->new(name => 'channel', type => 'xsd:int', attr => {}), - SOAP::Data->new(name => 'device', type => 'xsd:int', attr => {}), - ], # end parameters - }, # end IMachine_detachHardDisk -IHardDisk_getRoot => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHardDisk_getRoot -INetworkAdapter_detach => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_detach -ISession_getMachine => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISession_getMachine -IMachine_getStatisticsUpdateInterval => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getStatisticsUpdateInterval -ISerialPort_setPath => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'path', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISerialPort_setPath -IKeyboard_putCAD => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IKeyboard_putCAD -IMachine_getParallelPort => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'slot', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end IMachine_getParallelPort -ICustomHardDisk_setLocation => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'location', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ICustomHardDisk_setLocation -IMachine_getMemoryBalloonSize => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getMemoryBalloonSize -IUSBDeviceFilter_setManufacturer => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'manufacturer', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_setManufacturer -IVHDImage_deleteImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVHDImage_deleteImage -IFloppyDrive_getState => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IFloppyDrive_getState -IUSBController_setEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'enabled', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end IUSBController_setEnabled -IMachine_getSnapshotCount => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getSnapshotCount -IVRDPServer_getAllowMultiConnection => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVRDPServer_getAllowMultiConnection -IVirtualBox_getGuestOSTypes => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getGuestOSTypes -IMachine_createSharedFolder => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'name', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'hostPath', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'writable', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end IMachine_createSharedFolder -IVirtualBox_registerHardDisk => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'hardDisk', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_registerHardDisk -ISession_close => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISession_close -IVRDPServer_setAuthType => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'authType', type => 'vbox:VRDPAuthType', attr => {}), - ], # end parameters - }, # end IVRDPServer_setAuthType -ISerialPort_setIRQ => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'IRQ', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end ISerialPort_setIRQ -IMachine_getNetworkAdapter => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'slot', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end IMachine_getNetworkAdapter -IMachine_getSessionType => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getSessionType -IVMDKImage_deleteImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVMDKImage_deleteImage -IHost_createUSBDeviceFilter => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'name', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHost_createUSBDeviceFilter -IVirtualBox_createHardDisk => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'storageType', type => 'vbox:HardDiskStorageType', attr => {}), - ], # end parameters - }, # end IVirtualBox_createHardDisk -IHardDisk_getLastAccessError => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHardDisk_getLastAccessError -ISATAController_setPortCount => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'portCount', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end ISATAController_setPortCount -IISCSIHardDisk_setPort => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'port', type => 'xsd:unsignedShort', attr => {}), - ], # end parameters - }, # end IISCSIHardDisk_setPort -IVirtualDiskImage_getCreated => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualDiskImage_getCreated -IVirtualBox_unregisterHardDisk => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_unregisterHardDisk -IFloppyDrive_mountImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'imageId', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IFloppyDrive_mountImage -INetworkAdapter_getLineSpeed => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_getLineSpeed -IConsole_getMouse => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_getMouse -INetworkAdapter_getCableConnected => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_getCableConnected -IVirtualBox_setExtraData => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'key', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'value', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_setExtraData -IVirtualBox_getSystemProperties => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getSystemProperties -IUSBController_getUSBStandard => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBController_getUSBStandard -IMachine_setPAEEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'PAEEnabled', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end IMachine_setPAEEnabled -IFloppyImage_getAccessible => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IFloppyImage_getAccessible -IProgress_getOperation => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IProgress_getOperation -IVirtualBox_getSettingsFilePath => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getSettingsFilePath -IHardDisk_getType => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHardDisk_getType -IMachine_showConsoleWindow => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_showConsoleWindow -IConsole_detachUSBDevice => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_detachUSBDevice -IMachine_getSATAController => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getSATAController -IUSBController_insertDeviceFilter => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'position', type => 'xsd:unsignedInt', attr => {}), - SOAP::Data->new(name => 'filter', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBController_insertDeviceFilter -ISession_getState => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISession_getState -IVirtualBox_unregisterDVDImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_unregisterDVDImage -ISystemProperties_getDefaultVDIFolder => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISystemProperties_getDefaultVDIFolder -IHost_getOperatingSystem => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHost_getOperatingSystem -IHostDVDDrive_getName => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHostDVDDrive_getName -IMachine_getHWVirtExEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getHWVirtExEnabled -IMachine_setMemoryBalloonSize => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'memoryBalloonSize', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end IMachine_setMemoryBalloonSize -IMachine_getLastStateChange => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getLastStateChange -IConsole_powerDown => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_powerDown -IAudioAdapter_getEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IAudioAdapter_getEnabled -IMachine_setMemorySize => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'memorySize', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end IMachine_setMemorySize -IUSBDevice_getAddress => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDevice_getAddress -IConsole_getKeyboard => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_getKeyboard -INetworkAdapter_setTraceFile => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'traceFile', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_setTraceFile -IProgress_getCancelable => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IProgress_getCancelable -IConsole_reset => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_reset -IVirtualBox_registerDVDImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'image', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_registerDVDImage -IISCSIHardDisk_setServer => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'server', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IISCSIHardDisk_setServer -IProgress_getCanceled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IProgress_getCanceled -ISystemProperties_getParallelPortCount => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISystemProperties_getParallelPortCount -INetworkAdapter_getEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_getEnabled -IDVDImage_getSize => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IDVDImage_getSize -IMachine_getSessionState => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getSessionState -ISession_getConsole => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISession_getConsole -INetworkAdapter_getAttachmentType => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_getAttachmentType -IMouse_putMouseEventAbsolute => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'x', type => 'xsd:int', attr => {}), - SOAP::Data->new(name => 'y', type => 'xsd:int', attr => {}), - SOAP::Data->new(name => 'dz', type => 'xsd:int', attr => {}), - SOAP::Data->new(name => 'buttonState', type => 'xsd:int', attr => {}), - ], # end parameters - }, # end IMouse_putMouseEventAbsolute -IWebsessionManager_logon => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => 'username', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'password', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IWebsessionManager_logon -IParallelPort_getEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IParallelPort_getEnabled -INetworkAdapter_attachToHostInterface => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_attachToHostInterface -IParallelPort_getIRQ => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IParallelPort_getIRQ -IVirtualBox_openHardDisk => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'location', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_openHardDisk -IUSBDeviceFilter_getName => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_getName -IConsole_resume => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_resume -IFloppyImage_getId => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IFloppyImage_getId -IVHDImage_setFilePath => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'filePath', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVHDImage_setFilePath -IHost_getDVDDrives => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHost_getDVDDrives -IVirtualBox_registerMachine => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'machine', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_registerMachine -IManagedObjectRef_release => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IManagedObjectRef_release -INetworkAdapter_setEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'enabled', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end INetworkAdapter_setEnabled -IMachine_setHWVirtExEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'HWVirtExEnabled', type => 'vbox:TSBool', attr => {}), - ], # end parameters - }, # end IMachine_setHWVirtExEnabled -IParallelPort_getIOBase => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IParallelPort_getIOBase -IISCSIHardDisk_getServer => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IISCSIHardDisk_getServer -IConsole_adoptSavedState => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'savedStateFile', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_adoptSavedState -IMachine_saveSettingsWithBackup => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_saveSettingsWithBackup -IVRDPServer_setAuthTimeout => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'authTimeout', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end IVRDPServer_setAuthTimeout -IMachine_getHardDisk => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'bus', type => 'vbox:StorageBus', attr => {}), - SOAP::Data->new(name => 'channel', type => 'xsd:int', attr => {}), - SOAP::Data->new(name => 'device', type => 'xsd:int', attr => {}), - ], # end parameters - }, # end IMachine_getHardDisk -IVRDPServer_getAuthTimeout => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVRDPServer_getAuthTimeout -IISCSIHardDisk_setTarget => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'target', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IISCSIHardDisk_setTarget -IFloppyDrive_unmount => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IFloppyDrive_unmount -IMachine_getFloppyDrive => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getFloppyDrive -ISnapshot_setDescription => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'description', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISnapshot_setDescription -IUSBDeviceFilter_setProductId => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'productId', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_setProductId -IUSBDevice_getPort => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDevice_getPort -IProgress_getOperationDescription => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IProgress_getOperationDescription -IVRDPServer_setNetAddress => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'netAddress', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVRDPServer_setNetAddress -IDVDDrive_setPassthrough => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'passthrough', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end IDVDDrive_setPassthrough -IUSBDevice_getProduct => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDevice_getProduct -ISystemProperties_getMaxGuestRAM => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISystemProperties_getMaxGuestRAM -IHost_removeUSBDeviceFilter => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'position', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end IHost_removeUSBDeviceFilter -IMachine_getHardDiskAttachments => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getHardDiskAttachments -IMachine_getSnapshotFolder => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getSnapshotFolder -IVirtualDiskImage_getFilePath => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualDiskImage_getFilePath -IConsole_discardCurrentState => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_discardCurrentState -IFloppyDrive_getEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IFloppyDrive_getEnabled -IConsole_sleepButton => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_sleepButton -IMouse_putMouseEvent => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'dx', type => 'xsd:int', attr => {}), - SOAP::Data->new(name => 'dy', type => 'xsd:int', attr => {}), - SOAP::Data->new(name => 'dz', type => 'xsd:int', attr => {}), - SOAP::Data->new(name => 'buttonState', type => 'xsd:int', attr => {}), - ], # end parameters - }, # end IMouse_putMouseEvent -IUSBDeviceFilter_setActive => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'active', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_setActive -IVirtualBox_openMachine => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'settingsFile', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_openMachine -IConsole_discardSnapshot => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_discardSnapshot -ISystemProperties_setLogHistoryCount => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'LogHistoryCount', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end ISystemProperties_setLogHistoryCount -IHost_getUSBDevices => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHost_getUSBDevices -IVirtualBox_unregisterFloppyImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_unregisterFloppyImage -IISCSIHardDisk_getUserName => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IISCSIHardDisk_getUserName -IHost_insertUSBDeviceFilter => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'position', type => 'xsd:unsignedInt', attr => {}), - SOAP::Data->new(name => 'filter', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHost_insertUSBDeviceFilter -IMachine_canShowConsoleWindow => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_canShowConsoleWindow -IUSBDeviceFilter_getProduct => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_getProduct -ISnapshot_getMachine => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISnapshot_getMachine -IParallelPort_getSlot => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IParallelPort_getSlot -IConsole_discardSavedState => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_discardSavedState -IMachine_saveSettings => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_saveSettings -ICustomHardDisk_deleteImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ICustomHardDisk_deleteImage -ISerialPort_getIRQ => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISerialPort_getIRQ -IHardDisk_getChildren => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHardDisk_getChildren -IDVDDrive_captureHostDrive => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'drive', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IDVDDrive_captureHostDrive -IConsole_createSharedFolder => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'name', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'hostPath', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'writable', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end IConsole_createSharedFolder -IHardDisk_getMachineId => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHardDisk_getMachineId -IMachine_getVRDPServer => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getVRDPServer -IConsole_removeSharedFolder => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'name', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_removeSharedFolder -IVMDKImage_getFilePath => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVMDKImage_getFilePath -IMachine_getSettingsFileVersion => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getSettingsFileVersion -IVirtualBox_createLegacyMachine => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'settingsFile', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'name', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_createLegacyMachine -IVirtualBox_findVirtualDiskImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'filePath', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_findVirtualDiskImage -IVirtualBox_getFloppyImageUsage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'usage', type => 'vbox:ResourceUsage', attr => {}), - ], # end parameters - }, # end IVirtualBox_getFloppyImageUsage -IVirtualDiskImage_setFilePath => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'filePath', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualDiskImage_setFilePath -IUSBDeviceFilter_getRemote => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_getRemote -INetworkAdapter_setMACAddress => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'MACAddress', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_setMACAddress -ISystemProperties_getRemoteDisplayAuthLibrary => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISystemProperties_getRemoteDisplayAuthLibrary -INetworkAdapter_setInternalNetwork => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'internalNetwork', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_setInternalNetwork -IHardDisk_getId => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHardDisk_getId -IDVDDrive_getImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IDVDDrive_getImage -ICustomHardDisk_getFormat => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ICustomHardDisk_getFormat -ISystemProperties_getSerialPortCount => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISystemProperties_getSerialPortCount -ISATAController_GetIDEEmulationPort => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'devicePosition', type => 'xsd:int', attr => {}), - ], # end parameters - }, # end ISATAController_GetIDEEmulationPort -INetworkAdapter_getTraceFile => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_getTraceFile -ISystemProperties_getDefaultMachineFolder => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISystemProperties_getDefaultMachineFolder -IISCSIHardDisk_setLun => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'lun', type => 'xsd:unsignedLong', attr => {}), - ], # end parameters - }, # end IISCSIHardDisk_setLun -IFloppyImage_getFilePath => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IFloppyImage_getFilePath -INetworkAdapter_getNATNetwork => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_getNATNetwork -ISnapshot_getOnline => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISnapshot_getOnline -IVRDPServer_getEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVRDPServer_getEnabled -IManagedObjectRef_getInterfaceName => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IManagedObjectRef_getInterfaceName -ICustomHardDisk_createFixedImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'size', type => 'xsd:unsignedLong', attr => {}), - ], # end parameters - }, # end ICustomHardDisk_createFixedImage -ISnapshot_getId => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISnapshot_getId -IConsole_getRemoteDisplayInfo => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_getRemoteDisplayInfo -IISCSIHardDisk_setPassword => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'password', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IISCSIHardDisk_setPassword -IHardDisk_getActualSize => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHardDisk_getActualSize -IVirtualBox_removeSharedFolder => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'name', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_removeSharedFolder -IConsole_attachUSBDevice => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_attachUSBDevice -IISCSIHardDisk_getPassword => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IISCSIHardDisk_getPassword -IVirtualBox_getGuestOSType => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getGuestOSType -ISnapshot_getName => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISnapshot_getName -IHardDisk_getAccessible => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHardDisk_getAccessible -IParallelPort_setEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'enabled', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end IParallelPort_setEnabled -IConsole_getPowerButtonHandled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_getPowerButtonHandled -IAudioAdapter_getAudioDriver => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IAudioAdapter_getAudioDriver -ISerialPort_getHostMode => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISerialPort_getHostMode -IConsole_getState => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_getState -IMachine_setSnapshotFolder => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'snapshotFolder', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_setSnapshotFolder -IVRDPServer_setPort => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'port', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end IVRDPServer_setPort -IVirtualBox_waitForPropertyChange => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'what', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'timeout', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end IVirtualBox_waitForPropertyChange -IVirtualBox_getSharedFolders => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getSharedFolders -ICustomHardDisk_createDynamicImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'size', type => 'xsd:unsignedLong', attr => {}), - ], # end parameters - }, # end ICustomHardDisk_createDynamicImage -IVirtualBox_getMachine => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getMachine -IKeyboard_putScancode => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'scancode', type => 'xsd:int', attr => {}), - ], # end parameters - }, # end IKeyboard_putScancode -IMachine_deleteSettings => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_deleteSettings -IHostDVDDrive_getDescription => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHostDVDDrive_getDescription -IVirtualBox_findFloppyImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'filePath', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_findFloppyImage -ISATAController_getEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISATAController_getEnabled -ICustomHardDisk_getCreated => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ICustomHardDisk_getCreated -IVirtualBox_openDVDImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'filePath', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_openDVDImage -IFloppyDrive_getImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IFloppyDrive_getImage -IConsole_getDeviceActivity => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'type', type => 'vbox:DeviceType', attr => {}), - ], # end parameters - }, # end IConsole_getDeviceActivity -ISerialPort_getEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISerialPort_getEnabled -ISystemProperties_getLogHistoryCount => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISystemProperties_getLogHistoryCount -ISnapshot_getParent => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISnapshot_getParent -IVirtualBox_getDVDImageUsage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'usage', type => 'vbox:ResourceUsage', attr => {}), - ], # end parameters - }, # end IVirtualBox_getDVDImageUsage -IConsole_powerButton => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_powerButton -IHost_getMemorySize => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHost_getMemorySize -IHardDisk_getDescription => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHardDisk_getDescription -ISerialPort_getIOBase => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISerialPort_getIOBase -IMachine_setMonitorCount => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'MonitorCount', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end IMachine_setMonitorCount -ISerialPort_getServer => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISerialPort_getServer -IMachine_getCurrentStateModified => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getCurrentStateModified -IUSBDeviceFilter_setProduct => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'product', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_setProduct -INetworkAdapter_setCableConnected => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'cableConnected', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end INetworkAdapter_setCableConnected -IMachine_getExtraData => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'key', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getExtraData -IVHDImage_createFixedImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'size', type => 'xsd:unsignedLong', attr => {}), - ], # end parameters - }, # end IVHDImage_createFixedImage -IVHDImage_getFilePath => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVHDImage_getFilePath -IVirtualBox_openSession => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'session', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'machineId', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_openSession -IConsole_getMachine => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_getMachine -IVirtualBox_unregisterMachine => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_unregisterMachine -INetworkAdapter_setNATNetwork => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'NATNetwork', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_setNATNetwork -IHost_getProcessorCount => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHost_getProcessorCount -INetworkAdapter_attachToNAT => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_attachToNAT -IDVDImage_getFilePath => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IDVDImage_getFilePath -IAudioAdapter_setAudioController => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'audioController', type => 'vbox:AudioControllerType', attr => {}), - ], # end parameters - }, # end IAudioAdapter_setAudioController -IVirtualBox_findDVDImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'filePath', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_findDVDImage -IMachine_setClipboardMode => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'clipboardMode', type => 'vbox:ClipboardMode', attr => {}), - ], # end parameters - }, # end IMachine_setClipboardMode -IHostFloppyDrive_getDescription => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHostFloppyDrive_getDescription -IUSBDeviceFilter_setName => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'name', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_setName -IDVDDrive_getPassthrough => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IDVDDrive_getPassthrough -IConsole_powerUp => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_powerUp -ISATAController_SetIDEEmulationPort => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'devicePosition', type => 'xsd:int', attr => {}), - SOAP::Data->new(name => 'portNumber', type => 'xsd:int', attr => {}), - ], # end parameters - }, # end ISATAController_SetIDEEmulationPort -IUSBDevice_getManufacturer => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDevice_getManufacturer -IProgress_getPercent => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IProgress_getPercent -IDVDImage_getAccessible => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IDVDImage_getAccessible -IVirtualBox_getFloppyImages => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getFloppyImages -IWebsessionManager_logoff => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => 'refIVirtualBox', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IWebsessionManager_logoff -IUSBDevice_getSerialNumber => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDevice_getSerialNumber -IProgress_getOperationPercent => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IProgress_getOperationPercent -IVirtualDiskImage_createDynamicImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'size', type => 'xsd:unsignedLong', attr => {}), - ], # end parameters - }, # end IVirtualDiskImage_createDynamicImage -IMachine_getNextExtraDataKey => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'key', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getNextExtraDataKey -IHost_getProcessorSpeed => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHost_getProcessorSpeed -IVirtualBox_saveSettings => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_saveSettings -ISnapshot_getDescription => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISnapshot_getDescription -INetworkAdapter_getMACAddress => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_getMACAddress -IVirtualBox_findHardDisk => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'location', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_findHardDisk -ISession_getType => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISession_getType -IVirtualBox_getHardDisks => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getHardDisks -IUSBDeviceFilter_getVendorId => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_getVendorId -IUSBController_getEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBController_getEnabled -IDVDDrive_getHostDrive => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IDVDDrive_getHostDrive -IVRDPServer_setAllowMultiConnection => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'allowMultiConnection', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end IVRDPServer_setAllowMultiConnection -IVRDPServer_getPort => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVRDPServer_getPort -IHostUSBDeviceFilter_setAction => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'action', type => 'vbox:USBDeviceFilterAction', attr => {}), - ], # end parameters - }, # end IHostUSBDeviceFilter_setAction -ISystemProperties_setHWVirtExEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'HWVirtExEnabled', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end ISystemProperties_setHWVirtExEnabled -IAudioAdapter_getAudioController => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IAudioAdapter_getAudioController -IVMDKImage_createFixedImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'size', type => 'xsd:unsignedLong', attr => {}), - ], # end parameters - }, # end IVMDKImage_createFixedImage -IUSBDeviceFilter_setPort => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'port', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_setPort -IVirtualBox_getVersion => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getVersion -IUSBDevice_getPortVersion => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDevice_getPortVersion -IUSBController_getEnabledEhci => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBController_getEnabledEhci -IISCSIHardDisk_getTarget => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IISCSIHardDisk_getTarget -IUSBDeviceFilter_getPort => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_getPort -IMachine_getSnapshot => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getSnapshot -IFloppyDrive_captureHostDrive => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'drive', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IFloppyDrive_captureHostDrive -IConsole_saveState => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_saveState -IVirtualBox_findMachine => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'name', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_findMachine -IParallelPort_getPath => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IParallelPort_getPath -IVMDKImage_getCreated => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVMDKImage_getCreated -IMachine_setExtraData => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'key', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'value', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_setExtraData -IMachine_getAccessible => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getAccessible -IVirtualBox_getProgressOperations => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getProgressOperations -INetworkAdapter_getSlot => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_getSlot -IVirtualBox_openVirtualDiskImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'filePath', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_openVirtualDiskImage -ISystemProperties_getMaxGuestVRAM => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISystemProperties_getMaxGuestVRAM -IVirtualBox_openRemoteSession => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'session', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'machineId', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'type', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'environment', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_openRemoteSession -IHostFloppyDrive_getUdi => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHostFloppyDrive_getUdi -INetworkAdapter_getInternalNetwork => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_getInternalNetwork -IVirtualBox_getNextExtraDataKey => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'key', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getNextExtraDataKey -IHost_getProcessorDescription => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHost_getProcessorDescription -IFloppyImage_getSize => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IFloppyImage_getSize -IMachine_getDescription => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getDescription -IHardDisk_getParent => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHardDisk_getParent -ISystemProperties_setDefaultMachineFolder => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'defaultMachineFolder', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISystemProperties_setDefaultMachineFolder -INetworkAdapter_getAdapterType => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_getAdapterType -ISystemProperties_setDefaultVDIFolder => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'defaultVDIFolder', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISystemProperties_setDefaultVDIFolder -IVirtualBox_getHomeFolder => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getHomeFolder -IAudioAdapter_setAudioDriver => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'audioDriver', type => 'vbox:AudioDriverType', attr => {}), - ], # end parameters - }, # end IAudioAdapter_setAudioDriver -IUSBDeviceFilter_getActive => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_getActive -IHost_getUTCTime => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHost_getUTCTime -IWebsessionManager_getSessionObject => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => 'refIVirtualBox', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IWebsessionManager_getSessionObject -IISCSIHardDisk_getPort => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IISCSIHardDisk_getPort -INetworkAdapter_setHostInterface => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'hostInterface', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_setHostInterface -IUSBDeviceFilter_setMaskedInterfaces => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'maskedInterfaces', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_setMaskedInterfaces -IMachine_getMemorySize => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getMemorySize -ISystemProperties_getMinGuestRAM => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISystemProperties_getMinGuestRAM -IDVDDrive_unmount => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IDVDDrive_unmount -IVHDImage_createDynamicImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'size', type => 'xsd:unsignedLong', attr => {}), - ], # end parameters - }, # end IVHDImage_createDynamicImage -IUSBDeviceFilter_getSerialNumber => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_getSerialNumber -INetworkAdapter_getTraceEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_getTraceEnabled -IHost_getOSVersion => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHost_getOSVersion -IUSBController_setEnabledEhci => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'enabledEhci', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end IUSBController_setEnabledEhci -IUSBDeviceFilter_getMaskedInterfaces => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_getMaskedInterfaces -IMachine_setBootOrder => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'position', type => 'xsd:unsignedInt', attr => {}), - SOAP::Data->new(name => 'device', type => 'vbox:DeviceType', attr => {}), - ], # end parameters - }, # end IMachine_setBootOrder -IMachine_getAudioAdapter => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getAudioAdapter -IMachine_getDVDDrive => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getDVDDrive -ISATAController_setEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'enabled', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end ISATAController_setEnabled -IMachine_removeSharedFolder => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'name', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_removeSharedFolder -IUSBDevice_getRemote => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDevice_getRemote -INetworkAdapter_getHostInterface => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end INetworkAdapter_getHostInterface -IUSBDeviceFilter_setVendorId => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'vendorId', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_setVendorId -IUSBDeviceFilter_setSerialNumber => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'serialNumber', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_setSerialNumber -IMachine_getSettingsModified => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getSettingsModified -IProgress_getId => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IProgress_getId -IVirtualBox_getSettingsFormatVersion => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getSettingsFormatVersion -IUSBDeviceFilter_setRemote => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'remote', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_setRemote -ISerialPort_setEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'enabled', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end ISerialPort_setEnabled -IDVDDrive_mountImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'imageId', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IDVDDrive_mountImage -IProgress_getOperationCount => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IProgress_getOperationCount -IMachine_setStatisticsUpdateInterval => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'statisticsUpdateInterval', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end IMachine_setStatisticsUpdateInterval -IAudioAdapter_setEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'enabled', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end IAudioAdapter_setEnabled -IVirtualBox_getDVDImages => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getDVDImages -IVMDKImage_setFilePath => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'filePath', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVMDKImage_setFilePath -ICustomHardDisk_getLocation => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ICustomHardDisk_getLocation -IHost_getMemoryAvailable => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHost_getMemoryAvailable -IMachine_getBootOrder => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'order', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end IMachine_getBootOrder -IKeyboard_putScancodes => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'scancodes', type => 'xsd:int', attr => {}), - SOAP::Data->new(name => 'count', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end IKeyboard_putScancodes -IMachine_getParent => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getParent -IUSBDevice_getVendorId => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDevice_getVendorId -IHostUSBDeviceFilter_getAction => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHostUSBDeviceFilter_getAction -IProgress_waitForOperationCompletion => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'operation', type => 'xsd:unsignedInt', attr => {}), - SOAP::Data->new(name => 'timeout', type => 'xsd:int', attr => {}), - ], # end parameters - }, # end IProgress_waitForOperationCompletion -IHardDisk_getSnapshotId => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHardDisk_getSnapshotId -IDVDImage_getId => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IDVDImage_getId -IMachine_getSharedFolders => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getSharedFolders -IMachine_setDescription => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'description', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_setDescription -IMachine_findSnapshot => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'name', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_findSnapshot -IUSBController_removeDeviceFilter => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'position', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end IUSBController_removeDeviceFilter -ISystemProperties_setWebServiceAuthLibrary => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'webServiceAuthLibrary', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISystemProperties_setWebServiceAuthLibrary -IHardDisk_getSize => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHardDisk_getSize -IProgress_cancel => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IProgress_cancel -IUSBController_createDeviceFilter => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'name', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBController_createDeviceFilter -IMachine_setVRAMSize => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'VRAMSize', type => 'xsd:unsignedInt', attr => {}), - ], # end parameters - }, # end IMachine_setVRAMSize -IMachine_setOSTypeId => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'OSTypeId', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_setOSTypeId -IProgress_getDescription => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IProgress_getDescription -IHardDisk_cloneToImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'filePath', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHardDisk_cloneToImage -IVirtualBox_createSharedFolder => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'name', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'hostPath', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'writable', type => 'xsd:boolean', attr => {}), - ], # end parameters - }, # end IVirtualBox_createSharedFolder -IVirtualBox_getHardDisk => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getHardDisk -IVirtualBox_getMachines => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getMachines -ISystemProperties_getHWVirtExEnabled => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISystemProperties_getHWVirtExEnabled -IMachine_getUSBController => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getUSBController -IVMDKImage_createDynamicImage => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'size', type => 'xsd:unsignedLong', attr => {}), - ], # end parameters - }, # end IVMDKImage_createDynamicImage -IHostDVDDrive_getUdi => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHostDVDDrive_getUdi -IUSBDeviceFilter_getProductId => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_getProductId -IHostUSBDevice_getState => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHostUSBDevice_getState -IVirtualBox_getSettingsFileVersion => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_getSettingsFileVersion -IUSBDeviceFilter_getRevision => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDeviceFilter_getRevision -IUSBDevice_getVersion => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IUSBDevice_getVersion -ISystemProperties_setRemoteDisplayAuthLibrary => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'remoteDisplayAuthLibrary', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISystemProperties_setRemoteDisplayAuthLibrary -IMachine_getMonitorCount => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getMonitorCount -ISystemProperties_getWebServiceAuthLibrary => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end ISystemProperties_getWebServiceAuthLibrary -IHardDisk_getAllAccessible => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IHardDisk_getAllAccessible -IMachine_getSessionPid => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IMachine_getSessionPid -IConsole_discardCurrentSnapshotAndState => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IConsole_discardCurrentSnapshotAndState -IProgress_waitForCompletion => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'timeout', type => 'xsd:int', attr => {}), - ], # end parameters - }, # end IProgress_waitForCompletion -IVirtualBox_openExistingSession => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'session', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'machineId', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_openExistingSession -IVirtualBox_createMachine => { - endpoint => 'http://localhost:18083/', - soapaction => '', - namespace => 'http://www.virtualbox.org/', - parameters => [ - SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'baseFolder', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'name', type => 'xsd:string', attr => {}), - SOAP::Data->new(name => 'id', type => 'xsd:string', attr => {}), - ], # end parameters - }, # end IVirtualBox_createMachine -); # end my %methods - -#require SOAP::Lite; # vbox.pm requires SOAP::Lite before requiring vboxService.pm, so we can check for SOAP::Lite dynamically -require Exporter; -use Carp (); - -use vars qw(@ISA $AUTOLOAD @EXPORT_OK %EXPORT_TAGS); -@ISA = qw(Exporter SOAP::Lite); -@EXPORT_OK = (keys %methods); -%EXPORT_TAGS = ('all' => [@EXPORT_OK]); - -sub _call { - ####################################################################################################################################################### - # save the additional parameter "vboxhost" which contains an URL with Port information - my ($self, $method, $vboxhost) = (shift, shift, shift); - my $name = UNIVERSAL::isa($method => 'SOAP::Data') ? $method->name : $method; - my %method = %{$methods{$name}}; - ####################################################################################################################################################### - # set the proxy to $vboxhost instead of $method{endpoint} -> in future vboxhost could contain something like "[*P**P*]" - $self->proxy($vboxhost || Carp::croak "No server address (proxy) specified") - unless $self->proxy; - my @templates = @{$method{parameters}}; - my @parameters = (); - foreach my $param (@_) { - if (@templates) { - my $template = shift @templates; - my ($prefix,$typename) = SOAP::Utils::splitqname($template->type); - my $method = 'as_'.$typename; - # TODO - if can('as_'.$typename) {...} - my $result = $self->serializer->$method($param, $template->name, $template->type, $template->attr); - push(@parameters, $template->value($result->[2])); - } - else { - push(@parameters, $param); - } - } - ####################################################################################################################################################### - # set the endpoint to $vboxhost instead of $method{endpoint} -> in future vboxhost could contain something like "[*P**P*]" - $self->endpoint($vboxhost) - ->ns($method{namespace}) - ->on_action(sub{qq!"$method{soapaction}"!}); - $self->serializer->register_ns("urn:vbox","interface"); - $self->serializer->register_ns("http://www.virtualbox.org/","vbox"); - $self->serializer->register_ns("http://schemas.xmlsoap.org/wsdl/soap/","soap"); - my $som = $self->SUPER::call($method => @parameters); - if ($self->want_som) { - return $som; - } - UNIVERSAL::isa($som => 'SOAP::SOM') ? wantarray ? $som->paramsall : $som->result : $som; -} - -sub BEGIN { - no strict 'refs'; - for my $method (qw(want_som)) { - my $field = '_' . $method; - *$method = sub { - my $self = shift->new; - @_ ? ($self->{$field} = shift, return $self) : return $self->{$field}; - } - } -} -no strict 'refs'; -for my $method (@EXPORT_OK) { - my %method = %{$methods{$method}}; - *$method = sub { - my $self = UNIVERSAL::isa($_[0] => __PACKAGE__) - ? ref $_[0] - ? shift # OBJECT - # CLASS, either get self or create new and assign to self - : (shift->self || __PACKAGE__->self(__PACKAGE__->new)) - # function call, either get self or create new and assign to self - : (__PACKAGE__->self || __PACKAGE__->self(__PACKAGE__->new)); - $self->_call($method, @_); - } -} - -sub AUTOLOAD { - my $method = substr($AUTOLOAD, rindex($AUTOLOAD, '::') + 2); - return if $method eq 'DESTROY' || $method eq 'want_som'; - die "Unrecognized method '$method'. List of available method(s): @EXPORT_OK\n"; -} - -1; +package xCAT::vboxService; +# Generated by SOAP::Lite (v0.712) for Perl -- soaplite.com +# Copyright (C) 2000-2006 Paul Kulchenko, Byrne Reese +# -- generated at [Wed Mar 26 20:28:01 2014] +# -- generated from file:///home/vbox/tinderbox/4.3-sdk/out/linux.amd64/release/obj/webservice/vboxwebService.wsdl +# -- merged V3 API Methods at [Sun Apr 06 13:31:00 2014] +# -- manually added defintions for xCAT integration of both versions by Herbert Mehlhose, IBM +# -- reduce methods hash to the needed interface functionality needed for our purpose +my %methods = ( +IVirtualBox_getExtraData => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'key', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVirtualBox_getExtraData +IMachine_getName => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IMachine_getName +IProgress_getTimeout => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IProgress_getTimeout +IVRDEServer_setVRDEProperty => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'key', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'value', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVRDEServer_setVRDEProperty +IConsole_powerDown => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IConsole_powerDown +IConsole_getPowerButtonHandled => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IConsole_getPowerButtonHandled +IManagedObjectRef_release => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IManagedObjectRef_release +IMachine_saveSettings => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IMachine_saveSettings +IMachine_getExtraData => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'key', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IMachine_getExtraData +IProgress_getPercent => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IProgress_getPercent +IProgress_getOperationPercent => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IProgress_getOperationPercent +IVirtualBox_getAPIVersion => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVirtualBox_getAPIVersion +IMachine_setExtraData => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'key', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'value', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IMachine_setExtraData +IVRDEServer_getEnabled => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVRDEServer_getEnabled +IProgress_waitForCompletion => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'timeout', type => 'xsd:int', attr => {}), + ], # end parameters + }, # end IProgress_waitForCompletion +IMachine_getState => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IMachine_getState +IVirtualBox_getGuestOSTypes => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVirtualBox_getGuestOSTypes +IMachine_launchVMProcess => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'session', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'type', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'environment', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IMachine_launchVMProcess +IMachine_getGuestProperty => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'name', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IMachine_getGuestProperty +IVirtualBox_openMachine => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'settingsFile', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVirtualBox_openMachine +IVRDEServer_getAuthLibrary => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVRDEServer_getAuthLibrary +IVRDEServer_setAuthTimeout => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'authTimeout', type => 'xsd:unsignedInt', attr => {}), + ], # end parameters + }, # end IVRDEServer_setAuthTimeout +IProgress_setTimeout => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'timeout', type => 'xsd:unsignedInt', attr => {}), + ], # end parameters + }, # end IProgress_setTimeout +IConsole_getMachine => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IConsole_getMachine +IProgress_waitForAsyncProgressCompletion => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'pProgressAsync', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IProgress_waitForAsyncProgressCompletion +IConsole_powerUp => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IConsole_powerUp +ISession_getType => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end ISession_getType +IVirtualBox_getVersion => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVirtualBox_getVersion +IMachine_setGuestProperty => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'property', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'value', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'flags', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IMachine_setGuestProperty +IVirtualBox_findMachine => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'nameOrId', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVirtualBox_findMachine +IVRDEServer_setAuthType => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'authType', type => 'vbox:AuthType', attr => {}), + ], # end parameters + }, # end IVRDEServer_setAuthType +IConsole_getDisplay => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IConsole_getDisplay +IConsole_getGuest => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IConsole_getGuest +IProgress_waitForOperationCompletion => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'operation', type => 'xsd:unsignedInt', attr => {}), + SOAP::Data->new(name => 'timeout', type => 'xsd:int', attr => {}), + ], # end parameters + }, # end IProgress_waitForOperationCompletion +IVirtualBox_getMachines => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVirtualBox_getMachines +IProgress_getResultCode => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IProgress_getResultCode +IProgress_getCompleted => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IProgress_getCompleted +IMachine_lockMachine => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'session', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'lockType', type => 'vbox:LockType', attr => {}), + ], # end parameters + }, # end IMachine_lockMachine +IMachine_getSessionType => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IMachine_getSessionType +IVirtualBox_getSystemProperties => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVirtualBox_getSystemProperties +IProgress_getOperation => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IProgress_getOperation +ISession_getState => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end ISession_getState +IVRDEServer_getVRDEProperties => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVRDEServer_getVRDEProperties +IConsole_reset => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IConsole_reset +IMachine_getSessionState => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IMachine_getSessionState +IVRDEServer_getVRDEProperty => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'key', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVRDEServer_getVRDEProperty +IVirtualBox_getMachineStates => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'machines', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVirtualBox_getMachineStates +IVRDEServer_getAuthType => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVRDEServer_getAuthType +IMachine_getVRDEServer => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IMachine_getVRDEServer +IProgress_getErrorInfo => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IProgress_getErrorInfo +ISystemProperties_getVRDEAuthLibrary => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end ISystemProperties_getVRDEAuthLibrary +IMachine_getId => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IMachine_getId +ISession_getMachine => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end ISession_getMachine +IMachine_showConsoleWindow => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IMachine_showConsoleWindow +IProcess_getStatus => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IProcess_getStatus +IVRDEServer_getVRDEExtPack => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVRDEServer_getVRDEExtPack +ISession_getConsole => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end ISession_getConsole +IWebsessionManager_logon => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => 'username', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'password', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IWebsessionManager_logon +IWebsessionManager_logoff => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => 'refIVirtualBox', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IWebsessionManager_logoff +IVRDEServer_setEnabled => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'enabled', type => 'xsd:boolean', attr => {}), + ], # end parameters + }, # end IVRDEServer_setEnabled +IConsole_powerButton => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IConsole_powerButton +IVRDEServer_setAuthLibrary => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'authLibrary', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVRDEServer_setAuthLibrary +ISession_unlockMachine => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end ISession_unlockMachine +IMachine_getDescription => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IMachine_getDescription +ISystemProperties_setVRDEAuthLibrary => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'VRDEAuthLibrary', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end ISystemProperties_setVRDEAuthLibrary +IWebsessionManager_getSessionObject => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => 'refIVirtualBox', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IWebsessionManager_getSessionObject +IProgress_getId => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IProgress_getId +IVirtualBox_getVersionNormalized => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVirtualBox_getVersionNormalized + +###################################################################### +### starting v3 additions for backward compatibility with vbox 3.2 ### +###################################################################### + +# findMachine - change in parameter name / nameOrId +IVirtualBox_findMachine_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'name', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVirtualBox_findMachine +IMachine_getState_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IMachine_getState +IMachine_getId_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IMachine_getId +IWebsessionManager_getSessionObject_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => 'refIVirtualBox', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IWebsessionManager_getSessionObject +IVirtualBox_openSession_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'session', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'machineId', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVirtualBox_openSession +ISession_getMachine_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end ISession_getMachine +IMachine_getVRDPServer_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IMachine_getVRDPServer +IVRDPServer_getEnabled_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVRDPServer_getEnabled +IVRDPServer_setEnabled_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'enabled', type => 'xsd:boolean', attr => {}), + ], # end parameters + }, # end IVRDPServer_setEnabled +# from API version 3.0 to 3.1, the 'port' attribute has been changed to 'ports' +IVRDPServer_getPorts_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVRDPServer_getPorts +IVRDPServer_getPort_V30 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVRDPServer_getPort +IVRDPServer_setPorts_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'ports', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVRDPServer_setPorts +IVRDPServer_setPort_V30 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'port', type => 'xsd:unsignedInt', attr => {}), + ], # end parameters + }, # end IVRDPServer_setPort +IMachine_saveSettings_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IMachine_saveSettings +IManagedObjectRef_release_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IManagedObjectRef_release +ISession_close_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end ISession_close +IVirtualBox_openRemoteSession_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'session', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'machineId', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'type', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'environment', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVirtualBox_openRemoteSession +IProgress_waitForCompletion_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'timeout', type => 'xsd:int', attr => {}), + ], # end parameters + }, # end IProgress_waitForCompletion +IProgress_getCompleted_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IProgress_getCompleted +IMachine_getSessionState_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IMachine_getSessionState +IVirtualBox_openExistingSession_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'session', type => 'xsd:string', attr => {}), + SOAP::Data->new(name => 'machineId', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IVirtualBox_openExistingSession +ISession_getConsole_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end ISession_getConsole +IConsole_reset_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IConsole_reset +IConsole_powerButton_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IConsole_powerButton +IConsole_powerDown_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IConsole_powerDown +IConsole_getPowerButtonHandled_V3 => { + endpoint => 'http://localhost:18083/', + soapaction => '', + namespace => 'http://www.virtualbox.org/', + parameters => [ + SOAP::Data->new(name => '_this', type => 'xsd:string', attr => {}), + ], # end parameters + }, # end IConsole_getPowerButtonHandled +); # end my %methods + +use SOAP::Lite; # vbox.pm requires SOAP::Lite before requiring vboxService.pm, so we can check for SOAP::Lite dynamically +use Exporter; +use Carp (); + +use vars qw(@ISA $AUTOLOAD @EXPORT_OK %EXPORT_TAGS); +@ISA = qw(Exporter SOAP::Lite); +#L("Setting EXPORT_OK array..."); +@EXPORT_OK = (keys %methods); +#foreach(sort @EXPORT_OK) {L("M:$_");} +%EXPORT_TAGS = ('all' => [@EXPORT_OK]); + +sub _call { + ####################################################################################################################################################### + # save the additional parameter "vboxhost" which contains an URL with Port information + #my ($self, $method, $api, $vboxhost) = (shift, shift, shift, shift); + my ($self, $method, $vboxhost) = (shift, shift, shift); + my $name = UNIVERSAL::isa($method => 'SOAP::Data') ? $method->name : $method; + #L("Function: $name()"); + my %method = %{$methods{$name}}; + ####################################################################################################################################################### + # set the proxy to $vboxhost instead of $method{endpoint} -> in future vboxhost could contain something like "[*P**P*]" + $self->proxy($vboxhost || Carp::croak "No server address (proxy) specified") + unless $self->proxy; + my @templates = @{$method{parameters}}; + my @parameters = (); + foreach my $param (@_) { + if (@templates) { + #L("Parm(T): $param"); + my $template = shift @templates; + my ($prefix,$typename) = SOAP::Utils::splitqname($template->type); + my $method = 'as_'.$typename; + # TODO - if can('as_'.$typename) {...} + #L(Data::Dumper->Dump([$template], [qw(TMPL)])); + my $result = $self->serializer->$method($param, $template->name, $template->type, $template->attr); + #L(Data::Dumper->Dump([$result], [qw(RESULT)])); + #L("Parm: " . $template->name . " Type: " . $template->type . " Val: " . $result->[2]); + push(@parameters, $template->value($result->[2])); + } + else { + #L("Parm(nonT): $param"); + push(@parameters, $param); + } + } + ####################################################################################################################################################### + # set the endpoint to $vboxhost instead of $method{endpoint} -> in future vboxhost could contain something like "[*P**P*]" + $self->endpoint($vboxhost) + ->ns($method{namespace}) + ->on_action(sub{qq!"$method{soapaction}"!}); + $self->serializer->register_ns("urn:vbox","interface"); + $self->serializer->register_ns("http://www.virtualbox.org/","vbox"); + $self->serializer->register_ns("http://schemas.xmlsoap.org/wsdl/soap/","soap"); + # strip off possible version extensions '_Vx' at end of method name + $method =~ s/$\_V[0-9.]*//i; + #L("about to super call with stripped method $method.."); + my $som = $self->SUPER::call($method => @parameters); + if ($self->want_som) { + return $som; + } + UNIVERSAL::isa($som => 'SOAP::SOM') ? wantarray ? $som->paramsall : $som->result : $som; +} + +sub BEGIN { + no strict 'refs'; + for my $method (qw(want_som)) { + my $field = '_' . $method; + *$method = sub { + my $self = shift->new; + @_ ? ($self->{$field} = shift, return $self) : return $self->{$field}; + } + } +} +no strict 'refs'; +for my $method (@EXPORT_OK) { + my %method = %{$methods{$method}}; + *$method = sub { + my $self = UNIVERSAL::isa($_[0] => __PACKAGE__) + ? ref $_[0] + ? shift # OBJECT + # CLASS, either get self or create new and assign to self + : (shift->self || __PACKAGE__->self(__PACKAGE__->new)) + # function call, either get self or create new and assign to self + : (__PACKAGE__->self || __PACKAGE__->self(__PACKAGE__->new)); + #L("CALL: $method"); + #foreach(@_) {L(" P:$_");} + $self->_call($method, @_); + } +} + +sub AUTOLOAD { + my $method = substr($AUTOLOAD, rindex($AUTOLOAD, '::') + 2); + return if $method eq 'DESTROY' || $method eq 'want_som'; + die "Unrecognized method '$method'. List of available method(s): @EXPORT_OK\n"; +} + +#sub L { +# my $string=shift; +# open FILE, ">>/tmp/soapxcatlog.txt"; +# print FILE "LOG: $string\n"; +# close FILE; +#} + + +1; + diff --git a/xCAT-server/lib/perl/xCAT/IPMI.pm b/xCAT-server/lib/perl/xCAT/IPMI.pm index fe2b1114a..d24de243b 100644 --- a/xCAT-server/lib/perl/xCAT/IPMI.pm +++ b/xCAT-server/lib/perl/xCAT/IPMI.pm @@ -122,6 +122,7 @@ sub new { unless ($ipmi2support) { $self->{ipmi15only} = 1; } + $self->{privlevel} = 4; unless ($args{'bmc'} and defined $args{'userid'} and defined $args{'password'}) { $self->{error}="bmc, userid, and password must be specified"; return $self; @@ -309,7 +310,7 @@ sub session_activated { sub set_admin_level { my $self= shift; - $self->subcmd(netfn=>0x6,command=>0x3b,data=>[4],callback=>\&admin_level_set,callback_args=>$self); + $self->subcmd(netfn=>0x6,command=>0x3b,data=>[$self->{privlevel}],callback=>\&admin_level_set,callback_args=>$self); } sub admin_level_set { my $rsp = shift; @@ -687,7 +688,7 @@ sub send_rakp3 { $self->{rmcptag}+=1; my @payload = ($self->{rmcptag},0,0,0,@{$self->{pendingsessionid}}); my @user = unpack("C*",$self->{userid}); - push @payload,unpack("C*",hmac_sha1(pack("C*",@{$self->{remoterandomnumber}},@{$self->{sidm}},4,scalar @user,@user),$self->{password})); + push @payload,unpack("C*",hmac_sha1(pack("C*",@{$self->{remoterandomnumber}},@{$self->{sidm}},$self->{privlevel},scalar @user,@user),$self->{password})); $self->sendpayload(payload=>\@payload,type=>$payload_types{'rakp3'}); } @@ -701,7 +702,7 @@ sub send_rakp1 { push @{$self->{randomnumber}},$randomnumber; } push @payload, @{$self->{randomnumber}}; - push @payload,(4,0,0); # request admin + push @payload,($self->{privlevel},0,0); # request priv my @user = unpack("C*",$self->{userid}); push @payload,scalar @user; push @payload,@user; @@ -817,6 +818,13 @@ sub got_rakp2 { } $byte = shift @data; unless ($byte == 0x00) { + if ($byte == 0x9 and $self->{privlevel} == 4) { + # this is probably an environment that wants to give us only operator + # try to connect again at 3. + $self->{privlevel} = 3; + $self->relog(); + return; + } if ($byte == 0x02) { #invalid session id is almost certainly because a retry on rmcp+ open session response rendered our session id invalid, ignore this in the hope that we'll get an answer for our retry that invalidated us.. #$self->relog(); #TODO: probably should disable RAKP1 retry here... high likelihood that we'll just spew a bad RAKP1 and Open Session Request retry would be more appropriate to try to discern a valid session id @@ -841,7 +849,7 @@ sub got_rakp2 { #Data now represents authcode.. sha1 only.. my @user = unpack("C*",$self->{userid}); my $ulength = scalar @user; - my $hmacdata = pack("C*",(@{$self->{sidm}},@{$self->{pendingsessionid}},@{$self->{randomnumber}},@{$self->{remoterandomnumber}},@{$self->{remoteguid}},4,$ulength,@user)); + my $hmacdata = pack("C*",(@{$self->{sidm}},@{$self->{pendingsessionid}},@{$self->{randomnumber}},@{$self->{remoterandomnumber}},@{$self->{remoteguid}},$self->{privlevel},$ulength,@user)); my @expectedhash = (unpack("C*",hmac_sha1($hmacdata,$self->{password}))); foreach (0..(scalar(@expectedhash)-1)) { if ($expectedhash[$_] != $data[$_]) { @@ -850,7 +858,7 @@ sub got_rakp2 { return 9; } } - $self->{sik} = hmac_sha1(pack("C*",@{$self->{randomnumber}},@{$self->{remoterandomnumber}},4,$ulength,@user),$self->{password}); + $self->{sik} = hmac_sha1(pack("C*",@{$self->{randomnumber}},@{$self->{remoterandomnumber}},$self->{privlevel},$ulength,@user),$self->{password}); $self->{k1} = hmac_sha1(pack("C*",1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1),$self->{sik}); $self->{k2} = hmac_sha1(pack("C*",2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2),$self->{sik}); my @aeskey = unpack("C*",$self->{k2}); diff --git a/xCAT-server/lib/perl/xCAT/Template.pm b/xCAT-server/lib/perl/xCAT/Template.pm index 51584ece1..5e9a75e21 100644 --- a/xCAT-server/lib/perl/xCAT/Template.pm +++ b/xCAT-server/lib/perl/xCAT/Template.pm @@ -14,6 +14,7 @@ use xCAT::ADUtils; #to allow setting of one-time machine passwords use xCAT::Utils; use xCAT::TableUtils; use xCAT::NetworkUtils; +use XML::Simple; BEGIN { $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat'; @@ -103,6 +104,13 @@ sub subvars { $ENV{NODESTATUS}=$tmp; } + + my @managedaddressmode = xCAT::TableUtils->get_site_attribute("managedaddressmode"); + my $tmp=$managedaddressmode[0]; + if( defined($tmp) ){ + $ENV{MANAGEDADDRESSMODE}=$tmp; + } + #replace the env with the right value so that correct include files can be found $inc =~ s/#ENV:([^#]+)#/envvar($1)/eg; @@ -229,6 +237,7 @@ sub subvars { $inc =~ s/#CRYPT:([^:]+):([^:]+):([^#]+)#/crydb($1,$2,$3)/eg; $inc =~ s/#COMMAND:([^#]+)#/command($1)/eg; $inc =~ s/#KICKSTARTNET#/kickstartnetwork()/eg; + $inc =~ s/#YAST2NET#/yast2network()/eg; $inc =~ s/#ESXIPV6SETUP#/esxipv6setup()/eg; $inc =~ s/#WINTIMEZONE#/xCAT::TZUtils::get_wintimezone()/eg; $inc =~ s/#WINPRODKEY:([^#]+)#/get_win_prodkey($1)/eg; @@ -652,8 +661,8 @@ sub esxipv6setup { } sub kickstartnetwork { - my $line = "network --onboot=yes --bootproto="; - my $hoststab; + my $line = "network --onboot=yes --bootproto="; + my $hoststab; my $mactab = xCAT::Table->new('mac',-create=>0); unless ($mactab) { die "mac table should always exist prior to template processing when doing autoula"; } my $ent = $mactab->getNodeAttribs($node,['mac'],prefetchcache=>1); @@ -667,12 +676,241 @@ sub kickstartnetwork { $hoststab->setNodeAttribs($node,{ip=>$ulaaddr}); $line .= $ulaaddr; } elsif ($::XCATSITEVALS{managedaddressmode} =~ /static/) { - return "#KSNET static unsupported"; + my ($ipaddr,$hostname,$gateway,$netmask)=xCAT::NetworkUtils->getNodeNetworkCfg($node); + unless($ipaddr) { die "cannot resolve the network configuration of $node"; } + $line .="static --device=$suffix --ip=$ipaddr --netmask=$netmask --gateway=$gateway --hostname=$hostname "; + + my $nrtab = xCAT::Table->new('noderes',-create=>0); + unless ($nrtab) { die "noderes table should always exist prior to template processing"; } + my $ent = $nrtab->getNodeAttribs($node,['nameservers'],prefetchcache=>1); + unless ($ent and $ent->{nameservers}) { die "attribute nameservers not set for $node"; } + my @nameserverARR=split (",",$ent->{nameservers}); + my @nameserversIP; + foreach (@nameserverARR) + { + my ($host,$ip) = xCAT::NetworkUtils->gethostnameandip($_); + push @nameserversIP, $ip; + } + + if (scalar @nameserversIP) { + $line .=" --nameserver=". join(",",@nameserversIP); + } + + + #return "#KSNET static unsupported"; } else { $line .= "dhcp --device=$suffix"; } return $line; } + + +sub yast2network { + my $line; + my $hoststab; + my $mactab = xCAT::Table->new('mac',-create=>0); + unless ($mactab) { die "mac table should always exist prior to template processing when doing autoula"; } + my $ent = $mactab->getNodeAttribs($node,['mac'],prefetchcache=>1); + unless ($ent and $ent->{mac}) { die "missing mac data for $node"; } + my $suffix = $ent->{mac}; + $suffix = lc($suffix); + if ($::XCATSITEVALS{managedaddressmode} eq "autoula") { + #TODO + return "#YAST2NET autoula unsupported" + } elsif ($::XCATSITEVALS{managedaddressmode} =~ /static/) { + my ($ipaddr,$hostname,$gateway,$netmask)=xCAT::NetworkUtils->getNodeNetworkCfg($node); + unless($ipaddr) { die "cannot resolve the network configuration of $node"; } + + my $nrtab = xCAT::Table->new('noderes',-create=>0); + unless ($nrtab) { die "noderes table should always exist prior to template processing"; } + my $ent = $nrtab->getNodeAttribs($node,['nameservers'],prefetchcache=>1); + unless ($ent and $ent->{nameservers}) { die "attribute nameservers not set for $node"; } + my @nameserverARR=split (",",$ent->{nameservers}); + my @nameserversIP; + foreach (@nameserverARR) + { + my ($host,$ip) = xCAT::NetworkUtils->gethostnameandip($_); + push @nameserversIP, $ip; + } + + + # get the domains for each node - one call for all nodes in hosts file + my $nd = xCAT::NetworkUtils->getNodeDomains([$node]); + my %nodedomains = %$nd; + my $domain=$nodedomains{$node}; + my $networkhash={ + 'networking' => [ + { + 'dns' => [ + { + 'domain' => [ + "$domain" + ], + 'dhcp_hostname' => [ + { + 'content' => 'false', + 'config:type' => 'boolean' + } + ], + 'dhcp_resolv' => [ + { + 'content' => 'false', + 'config:type' => 'boolean' + } + ], + 'nameservers' => [ + { + 'config:type' => 'list', + 'nameserver' => @nameserversIP + } + ], + 'hostname' => [ + $hostname + ], + 'searchlist' => [ + { + 'search' => [ + $domain + ], + 'config:type' => 'list' + } + ] + } + ], + 'interfaces' => [ + { + 'interface' => [ + { + 'bootproto' => [ + 'static' + ], + 'startmode' => [ + 'onboot' + ], + 'netmask' => [ + $netmask + ], + 'device' => [ + 'eth0' + ], + 'ipaddr' => [ + $ipaddr + ] + } + ], + 'config:type' => 'list' + } + ], + 'routing' => [ + { + 'ip_forward' => [ + { + 'content' => 'false', + 'config:type' => 'boolean' + } + ], + 'routes' => [ + { + 'route' => [ + { + 'destination' => [ + 'default' + ], + 'gateway' => [ + $gateway + ], + 'netmask' => [ + '-' + ], + 'device' => [ + '-' + ] + } + ], + 'config:type' => 'list' + } + ] + } + ] + } + ] + }; + my $xml = new XML::Simple(KeepRoot => 1); + $line=$xml->XMLout($networkhash); + + #return "#KSNET static unsupported"; + } else { + + my $networkhash={ + 'networking' => [ + { + 'dns' => [ + { + 'domain' => [ + 'local' + ], + 'dhcp_hostname' => [ + { + 'content' => 'true', + 'config:type' => 'boolean' + } + ], + 'hostname' => [ + 'linux' + ], + 'dhcp_resolv' => [ + { + 'content' => 'true', + 'config:type' => 'boolean' + } + ] + } + ], + 'interfaces' => [ + { + 'interface' => [ + { + 'startmode' => [ + 'onboot' + ], + 'bootproto' => [ + 'dhcp' + ], + 'device' => [ + 'eth0' + ] + } + ], + 'config:type' => 'list' + } + ], + 'routing' => [ + { + 'ip_forward' => [ + { + 'content' => 'false', + 'config:type' => 'boolean' + } + ], + 'routes' => [ + { + 'config:type' => 'list' + } + ] + } + ] + } + ] + }; + + + my $xml = new XML::Simple(KeepRoot => 1); + $line=$xml->XMLout($networkhash); + + } + return $line; +} + sub autoulaaddress { my $suffix = shift; my $prefix = $::XCATSITEVALS{autoulaprefix}; diff --git a/xCAT-server/lib/xcat/plugins/anaconda.pm b/xCAT-server/lib/xcat/plugins/anaconda.pm index fcd3c55df..7676f34d6 100644 --- a/xCAT-server/lib/xcat/plugins/anaconda.pm +++ b/xCAT-server/lib/xcat/plugins/anaconda.pm @@ -1381,18 +1381,22 @@ sub mkinstall $instserver=$ent->{nfsserver}; } + if ($::XCATSITEVALS{managedaddressmode} =~ /static/){ + my($host,$ip)=xCAT::NetworkUtils->gethostnameandip($instserver); + $instserver=$ip; + } my $httpprefix=$pkgdir; if ($installroot =~ /\/$/) { $httpprefix =~ s/^$installroot/\/install\//; } else { $httpprefix =~ s/^$installroot/\/install/; } + my $kcmdline; if ($pkvm) { $kcmdline = "ksdevice=bootif kssendmac text selinux=0 rd.dm=0 rd.md=0 repo=$httpmethod://$instserver:$httpport$httpprefix/packages/ kvmp.inst.auto=$httpmethod://$instserver:$httpport/install/autoinst/$node root=live:$httpmethod://$instserver:$httpport$httpprefix/LiveOS/squashfs.img"; } else { - $kcmdline = - "quiet repo=$httpmethod://$instserver:$httpport$httpprefix ks=$httpmethod://" + $kcmdline ="quiet repo=$httpmethod://$instserver:$httpport$httpprefix ks=$httpmethod://" . $instserver . ":". $httpport . "/install/autoinst/" . $node; @@ -1446,6 +1450,30 @@ sub mkinstall unless ($ksdev eq "bootif" and $os =~ /7/) { $kcmdline .= " ksdevice=" . $ksdev; } + + #if site.managedaddressmode=static, specify the network configuration as kernel options + #to avoid multicast dhcp + if($::XCATSITEVALS{managedaddressmode} =~ /static/){ + my ($ipaddr,$hostname,$gateway,$netmask)=xCAT::NetworkUtils->getNodeNetworkCfg($node); + unless($ipaddr) { die "cannot resolve the network configuration of $node"; } + + $kcmdline .=" ip=$ipaddr netmask=$netmask gateway=$gateway hostname=$hostname "; + my $nrtab = xCAT::Table->new('noderes',-create=>0); + unless ($nrtab) { die "noderes table should always exist prior to template processing"; } + my $ent = $nrtab->getNodeAttribs($node,['nameservers'],prefetchcache=>1); + unless ($ent and $ent->{nameservers}) { die "attribute nameservers not set for $node"; } + my @nameserverARR=split (",",$ent->{nameservers}); + my @nameserversIP; + foreach (@nameserverARR) + { + my ($host,$ip) = xCAT::NetworkUtils->gethostnameandip($_); + push @nameserversIP, $ip; + } + + if(scalar @nameserversIP){ + $kcmdline .=" dns=".join(",",@nameserversIP); + } + } #TODO: dd= for driver disks if (defined($sent->{serialport})) diff --git a/xCAT-server/lib/xcat/plugins/nimol.pm b/xCAT-server/lib/xcat/plugins/nimol.pm index 39d430ff1..afc2a9336 100644 --- a/xCAT-server/lib/xcat/plugins/nimol.pm +++ b/xCAT-server/lib/xcat/plugins/nimol.pm @@ -412,13 +412,13 @@ sub create_imgconf_file { my $rootpw = undef; my $passwdtab = xCAT::Table->new('passwd'); if ($passwdtab) { - my $et = $passwdtab->getAttribs({key => 'system', username => 'root'}, 'password'); + my $et = $passwdtab->getAttribs({key => 'vios', username => 'padmin'}, 'password'); if ($et and defined ($et->{'password'})) { $rootpw = $et->{'password'}; } } unless (defined($rootpw)) { - return "Unable to find requested password from passwd, with key=system,username=root"; + return "Unable to find requested password from passwd, with key=vios,username=padmin"; } unless (-e $bootimg_root."/viobootimg") { return "Unable to find VIOS bootimg file"; diff --git a/xCAT-server/lib/xcat/plugins/sles.pm b/xCAT-server/lib/xcat/plugins/sles.pm old mode 100644 new mode 100755 index bb5faacb9..9d57e8867 --- a/xCAT-server/lib/xcat/plugins/sles.pm +++ b/xCAT-server/lib/xcat/plugins/sles.pm @@ -956,6 +956,8 @@ sub mkinstall my $tmppkgdir=$pkgdir; my @srcdirs = split(",", $pkgdir); $pkgdir = $srcdirs[0]; + # trim the "/" in /install/sles11.3/x86_64/ + $pkgdir =~ s/\/$//; if( $pkgdir =~/^($installroot\/$os\/$arch)$/) { $srcdirs[0]="$pkgdir/1"; $tmppkgdir=join(",", @srcdirs); @@ -1072,6 +1074,13 @@ sub mkinstall { $netserver = $ent->{nfsserver}; } + + + if ($::XCATSITEVALS{managedaddressmode} =~ /static/){ + my($host,$ip)=xCAT::NetworkUtils->gethostnameandip($netserver); + $netserver=$ip; + } + my $httpprefix = $pkgdir; if ($installroot =~ /\/$/) { #must prepend /install/ $httpprefix =~ s/^$installroot/\/install\//; @@ -1136,6 +1145,32 @@ sub mkinstall $kcmdline .= " dud=file:/cus_driverdisk/$_"; } + #if site.managedaddressmode=static, specify the network configuration as kernel options + #to avoid multicast dhcp + if($::XCATSITEVALS{managedaddressmode} =~ /static/){ + my ($ipaddr,$hostname,$gateway,$netmask)=xCAT::NetworkUtils->getNodeNetworkCfg($node); + unless($ipaddr) { die "cannot resolve the network configuration of $node"; } + + $kcmdline .=" hostip=$ipaddr netmask=$netmask gateway=$gateway hostname=$hostname "; + my $nrtab = xCAT::Table->new('noderes',-create=>0); + unless ($nrtab) { die "noderes table should always exist prior to template processing"; } + my $ent = $nrtab->getNodeAttribs($node,['nameservers'],prefetchcache=>1); + unless ($ent and $ent->{nameservers}) { die "attribute nameservers not set for $node"; } + my @nameserverARR=split (",",$ent->{nameservers}); + my @nameserversIP; + foreach (@nameserverARR) + { + my ($host,$ip) = xCAT::NetworkUtils->gethostnameandip($_); + push @nameserversIP, $ip; + } + + if(scalar @nameserversIP){ + $kcmdline .=" dns=".join(",",@nameserversIP); + } + } + + + if (defined $sent->{serialport}) { unless ($sent->{serialspeed}) diff --git a/xCAT-server/lib/xcat/plugins/vbox.pm b/xCAT-server/lib/xcat/plugins/vbox.pm index 475aded2c..30b542e1c 100644 --- a/xCAT-server/lib/xcat/plugins/vbox.pm +++ b/xCAT-server/lib/xcat/plugins/vbox.pm @@ -1,12 +1,14 @@ # IBM(c) 2008 EPL license http://www.eclipse.org/legal/epl-v10.html # Ver. 2.1 (4) - sf@mauricebrinkmann.de +# Ver. 3.0 - Herbert Mehlhose, IBM - add support of VirtualBox V4 +# #------------------------------------------------------- =head1 xCAT plugin package to handle VirtualBox machines Supported command: - rpower + rpower =cut @@ -25,11 +27,9 @@ use Getopt::Long; use strict; use warnings; -my $cmd = 'clienttest'; - #------------------------------------------------------- -=head3 handled_commands +=head3 handled_commands Return list of commands handled by this plugin @@ -39,12 +39,12 @@ Return list of commands handled by this plugin sub handled_commands { - return {rpower => 'nodehm:power,mgt'}; + return {rpower => 'nodehm:power,mgt'}; } #------------------------------------------------------- -=head3 preprocess_request +=head3 preprocess_request Check and setup for hierarchy @@ -53,39 +53,37 @@ sub handled_commands #------------------------------------------------------- sub preprocess_request { - my $req = shift; - my $cb = shift; - if ($req->{_xcatpreprocessed}->[0] == 1) { return [$req]; } - #exit if preprocessed - my $nodes = $req->{node}; - my $service = "xcat"; + my $req = shift; + my $cb = shift; + if ($req->{_xcatpreprocessed}->[0] == 1) { return [$req]; } + #exit if preprocessed + my $nodes = $req->{node}; + my $service = "xcat"; - # find service nodes for requested nodes - # build an individual request for each service node - my $sn = xCAT::ServiceNodeUtils->get_ServiceNode($nodes, $service, "MN"); + # find service nodes for requested nodes + # build an individual request for each service node + my $sn = xCAT::ServiceNodeUtils->get_ServiceNode($nodes, $service, "MN"); my @requests = (); - # build each request for each service node - - foreach my $snkey (keys %$sn) - { + # build each request for each service node + foreach my $snkey (keys %$sn) { my $n=$sn->{$snkey}; print "snkey=$snkey, nodes=@$n\n"; - my $reqcopy = {%$req}; - $reqcopy->{node} = $sn->{$snkey}; - $reqcopy->{'_xcatdest'} = $snkey; - $reqcopy->{_xcatpreprocessed}->[0] = 1; - push @requests, $reqcopy; + my $reqcopy = {%$req}; + $reqcopy->{node} = $sn->{$snkey}; + $reqcopy->{'_xcatdest'} = $snkey; + $reqcopy->{_xcatpreprocessed}->[0] = 1; + push @requests, $reqcopy; - } - return \@requests; + } + return \@requests; } #------------------------------------------------------- -=head3 process_request +=head3 process_request Process the command @@ -95,445 +93,595 @@ sub preprocess_request sub process_request { - my $request = shift; - our $callback = shift; - my $nodes = $request->{node}; - my $command = $request->{command}->[0]; - my $args = $request->{arg}; - my $envs = $request->{env}; + my $request = shift; + our $callback = shift; + my $nodes = $request->{node}; + my $command = $request->{command}->[0]; + my $args = $request->{arg}; + my $envs = $request->{env}; our $rsp; my $node; my $soapsupport = eval { require SOAP::Lite; }; unless ($soapsupport) { #Still no SOAP::Lite module - $callback->({error=>"SOAP::Lite perl module missing, unable to fulfill Virtual Box plugin requirements",errorcode=>[42]}); - return []; + $callback->({error=>"SOAP::Lite perl module missing, unable to fulfill Virtual Box plugin requirements",errorcode=>[42]}); + return []; } require xCAT::vboxService; - my @nodes=@$nodes; + my @nodes=@$nodes; - PROCESSNODES: foreach $node (@nodes) ###################################### - { - # Load node information from xCAT tables - my ($error, $url, $username, $password, $vmname, $vncport) = getInfo($node); - next PROCESSNODES if ($error == 1); - last PROCESSNODES if ($error == 2); - - # Create connection to VirtualBox web service and check for errors - my $vbox = getWebService($url, $username, $password, $node); - next PROCESSNODES if (!$vbox); - - # Get the machine - my $machine = getMachine($url, $vbox, $vmname, $node); - if ($machine) - { - - # Command differentiation #------------------------------------ - - if ($command eq "rpower" and @$args > 0) - { - powerCtrl($url, $vbox, $machine, $vmname, $node, $vncport, $args); - } - - #else # unrecognized command - #{ - # addError("$node: $command unsupported on vm"); - #} - - # End Command differentiation #-------------------------------- - - } # /existing $machine reference - - xCAT::vboxService->IWebsessionManager_logoff($url, $vbox); - - } # /for each $node in @nodes - continue - { - # print out status before waiting for others and others and .. - printMessages(); - - # yield??? - } - - # last chance to print remaining messages - printMessages(); - - return; - - - sub addMessage ############################################################ - { - push @{$rsp->{data}}, shift; - - } # /addMessage - - sub addError ############################################################## - { - push @{$rsp->{error}}, shift; - - } # /addError - - - sub printMessages ######################################################### - { - if (defined($rsp->{data}) or defined($rsp->{error})) - { - if (defined($rsp->{error})) - { - push @{$rsp->{errorcode}}, 1; - xCAT::MsgUtils->message("E", $rsp, $callback, 0); - } - else - { - xCAT::MsgUtils->message("I", $rsp, $callback, 0); - } - } - - } # /printMessages - - - sub powerCtrl ############################################################# - { - my ($url, $vbox, $machine, $vmname, $node, $vncport, $args) = - (shift, shift, shift, shift, shift, shift, shift); - - # Get state of the machine first - my $vmstate = xCAT::vboxService->IMachine_getState($url, $machine); - - # Check if there is anything to do - if (!$vmstate) - { - addError("$node: Can not determine vm's state!"); - return; - } - elsif ($vmstate =~ m/^PoweredOff|^Aborted|^Saved/) - { - if ($args->[0] eq "off") - { - addMessage("$node: off"); - return; - } - elsif ($args->[0] =~ m/^reset|^boot/) - { - # if machine is off: turn on when reset was choosen - $args->[0] = "on reset"; - } - elsif ($args->[0] =~ m/^stat/) - { - # addMessage("$node: off ($vmstate)"); - addMessage("$node: off"); - return; - } - } - else - { - if ($args->[0] eq "on") - { - addMessage("$node: on"); - return; - } - elsif ($args->[0] =~ m/^stat/) - { - # addMessage("$node: on ($vmstate)"); - addMessage("$node: on"); - return; - } - } - - # Determine machine's UUID - Should work since we got the state - my $uuid = xCAT::vboxService->IMachine_getId($url, $machine); - - # Open Session - my $session = getSession($url, $vbox, $node, $vmname); - if ($session) - { - # Decide what to do - if ($args->[0] =~ m/^on/) - { - powerOn($url, $vbox, $session, $uuid, $node, $vncport, $args); - } - else - { - powerOff($url, $vbox, $session, $machine, $uuid, $node, $args); - } - - xCAT::vboxService->ISession_close($url, $session); - } # /existing $session - - return; - - - sub powerOn #********************************************************** - { - my ($url, $vbox, $session, $uuid, $node, $vncport, $args) = - (shift, shift, shift, shift, shift, shift, shift); - - ########################## - xCAT::vboxService->IVirtualBox_openSession( - $url, $vbox, $session, $uuid); - - my $directmachine = xCAT::vboxService->ISession_getMachine($url, $session); - if (!$directmachine) - { - addError("$node: Could not access mutable machine"); - } - else - { - my $vrdp = xCAT::vboxService->IMachine_getVRDPServer( - $url, $directmachine); - - my $portno = xCAT::vboxService->IVRDPServer_getPort($url, $vrdp); - if ($vncport and ($vncport != $portno)) - { - # If port is specified but different: Update machine settings - xCAT::vboxService->IVRDPServer_setPort($url, $vrdp, $vncport); - xCAT::vboxService->IMachine_saveSettings($url, $directmachine); - } - elsif (!$vncport) - { - # If not specified yet: Save port to xCAT db - $vncport = $portno; - my $vmTab = openTable('vm'); - $vmTab->setNodeAttribs($node,{vncport=>$vncport}); - $vmTab->close(); - } - xCAT::vboxService->IManagedObjectRef_release($url, $vrdp); - xCAT::vboxService->IManagedObjectRef_release($url, $directmachine); + PROCESSNODES: foreach $node (@nodes) ###################################### + { + # Load node information from xCAT tables + my ($error, $url, $username, $password, $vmname, $vncport) = getInfo($node); + next PROCESSNODES if ($error == 1); + last PROCESSNODES if ($error == 2); + + # Create connection to VirtualBox web service + my $api; # we assume V4 as default API + my $vbox = getWebService($url, $username, $password, $node); + next PROCESSNODES if (!$vbox); + + # get version + my $vboxvers = xCAT::vboxService->IVirtualBox_getVersion($url, $vbox); + #$callback->({info=>"$node: Vbox version: '$vboxvers', requested vncport via xCAT 'vm' table: '$vncport'"}); + if ($vboxvers =~ "^3.0" and $vncport =~ ",") + { + addError("$node: VirtualBox version 3.0 does only support a single RDP port, please correct entry vncport='$vncport' in table 'vm' for this node."); + next PROCESSNODES; + } + if($vboxvers =~ "^3.") { + $api="3"; # There is no getAPIVersion in Version 3, set to 3 + } elsif($vboxvers =~ "^4.0") { + $api="4_0"; # There is no getAPIVersion in Version 4.0 set to 4_0 + } else { + $api = xCAT::vboxService->IVirtualBox_getAPIVersion($url, $vbox); + } + # Get the machine + my $machine = getMachine($api, $url, $vbox, $vmname, $node); + if ($machine) { + + # Command differentiation #------------------------------------ + + if ($command eq "rpower" and @$args > 0) { + powerCtrl($vboxvers, $api, $url, $vbox, $machine, $vmname, $node, $vncport, $args); } - xCAT::vboxService->ISession_close($url, $session); - ############################## - - my $progress = xCAT::vboxService->IVirtualBox_openRemoteSession( - $url, $vbox, $session, $uuid, "vrdp", ""); - - if (!$progress) - { - addError("$node: Can not open remote session"); - } - else # existing $progress - { - xCAT::vboxService->IProgress_waitForCompletion( - $url, $progress, -1); - - if (xCAT::vboxService->IProgress_getCompleted( - $url, $progress)) - { - addMessage("$node: $args->[0]"); - } - else # not successfully completed - { - addError("$node: Power on failed"); - } - - } # /existing $progress - - return; - - } # /powerOn - - - sub powerOff #********************************************************* - { - my ($url, $vbox, $session, $machine, $uuid, $node, $args) = - (shift, shift, shift, shift, shift, shift, shift); - - # Lock session with machine - my $vmsessionstate = xCAT::vboxService->IMachine_getSessionState( - $url, $machine); - - if ($vmsessionstate eq "Open") - { - xCAT::vboxService->IVirtualBox_openExistingSession( - $url, $vbox, $session, $uuid); - } - elsif ($vmsessionstate eq "Closed") - { - xCAT::vboxService->IVirtualBox_openSession( - $url, $vbox, $session, $uuid); - } - else # !$vmsessionstate - { - addError("$node: No direct session to machine"); - } - + #else # unrecognized command + #{ + # addError("$node: $command unsupported on vm"); + #} + + # End Command differentiation #-------------------------------- + + } # /existing $machine reference + + xCAT::vboxService->IWebsessionManager_logoff($url, $vbox); + + } # /for each $node in @nodes + continue + { + # print out status before waiting for others and others and .. + printMessages(); + + # yield??? + } + + # last chance to print remaining messages + printMessages(); + + return; + + + sub addMessage ############################################################ + { + push @{$rsp->{data}}, shift; + + } # /addMessage + + sub addError ############################################################## + { + push @{$rsp->{error}}, shift; + + } # /addError + + + sub printMessages ######################################################### + { + if (defined($rsp->{data}) or defined($rsp->{error})) { + if (defined($rsp->{error})) { + push @{$rsp->{errorcode}}, 1; + xCAT::MsgUtils->message("E", $rsp, $callback, 0); + } else { + xCAT::MsgUtils->message("I", $rsp, $callback, 0); + } + } + + } # /printMessages + + + sub powerCtrl ############################################################# + { + my ($vboxvers, $api, $url, $vbox, $machine, $vmname, $node, $vncport, $args) = + (shift, shift, shift, shift, shift, shift, shift, shift, shift); + + # Get state of the machine first + my $cmd = "IMachine_getState"; + if($api eq "3") { + $cmd=$cmd . "_V3"; + } + my $vmstate = xCAT::vboxService->$cmd($url, $machine); + + # Check if there is anything to do + if (!$vmstate) { + addError("$node: Can not determine vm's state!"); + return; + } elsif ($vmstate =~ m/^PoweredOff|^Aborted|^Saved/) { + if ($args->[0] eq "off") { + addMessage("$node: off"); + return; + } elsif ($args->[0] =~ m/^reset|^boot/) { + # if machine is off: turn on when reset was choosen + $args->[0] = "on reset"; + } elsif ($args->[0] =~ m/^stat/) { + # addMessage("$node: off ($vmstate)"); + addMessage("$node: off"); + return; + } + } else { + if ($args->[0] eq "on") { + addMessage("$node: on"); + return; + } elsif ($args->[0] =~ m/^stat/) { + # addMessage("$node: on ($vmstate)"); + addMessage("$node: on"); + return; + } + } + + # Determine machine's UUID - Should work since we got the state + $cmd = "IMachine_getId"; + if($api eq "3") {$cmd=$cmd . "_V3";} + my $uuid = xCAT::vboxService->$cmd($url, $machine); + + # Open Session + my $session = getSession($api, $url, $vbox, $node, $vmname); + if ($session) { + # Decide what to do + if ($args->[0] =~ m/^on/) { + if($api eq "3") { + powerOn_V3($vboxvers, $url, $vbox, $machine, $session, $uuid, $node, $vncport, $args); + } else { + powerOn($url, $vbox, $machine, $session, $uuid, $node, $vncport, $args); + } + } else { + if($api eq "3") { + powerOff_V3($url, $vbox, $session, $machine, $uuid, $node, $args); + } else { + powerOff($url, $vbox, $session, $machine, $uuid, $node, $args); + } + } + + xCAT::vboxService->ISession_unlockMachine($url,$session); + } # /existing $session + + return; + + + sub powerOn #********************************************************** + { + my ($url, $vbox, $machine, $session, $uuid, $node, $vncport, $args) = + (shift, shift, shift, shift, shift, shift, shift, shift); + + my $locktype="Write"; + xCAT::vboxService->IMachine_lockMachine($url,$machine,$session,$locktype); + + my $directmachine = xCAT::vboxService->ISession_getMachine($url, $session); + if (!$directmachine) { + addError("$node: Could not access mutable machine"); + } else { + my $vrde = xCAT::vboxService->IMachine_getVRDEServer($url, $directmachine); + + # 'Oracle VM VirtualBox Extension Pack' needs to be installed on vbox server + # to be able to use RDP + my $extpack; + my @VRDEextpack = xCAT::vboxService->IVRDEServer_getVRDEExtPack($url, $vrde); + foreach(@VRDEextpack) { + if($_ eq "Oracle VM VirtualBox Extension Pack") { + $extpack=1; + } + } + + if($extpack) { + my $hasVRDE = xCAT::vboxService->IVRDEServer_getEnabled($url, $vrde); + + my $prop="TCP/Ports"; + my $portno = xCAT::vboxService->IVRDEServer_getVRDEProperty($url, $vrde, $prop); + + if ($vncport) { # vncport determines, if rdp will be enabled + my $change; + # If port is specified but different: Update machine settings + if($hasVRDE eq "false") { + $hasVRDE="true"; + xCAT::vboxService->IVRDEServer_setEnabled($url, $vrde, $hasVRDE); + $change=1; + } + if($vncport ne $portno) { + xCAT::vboxService->IVRDEServer_setVRDEProperty($url, $vrde, $prop, $vncport); + $change=1; + } + if($change) { + xCAT::vboxService->IMachine_saveSettings($url, $directmachine); + } + } elsif (!$vncport and $hasVRDE eq "true") { + # If not specified: disable RDP for the guest + $hasVRDE="false"; + xCAT::vboxService->IVRDEServer_setEnabled($url, $vrde, $hasVRDE); + xCAT::vboxService->IMachine_saveSettings($url, $directmachine); + } + #xCAT::vboxService->IMachine_saveSettings($url, $directmachine); + xCAT::vboxService->IManagedObjectRef_release($url, $directmachine); + } else { + if($vncport) { + addMessage("Warning: for VirtualBox Version 4 and above, RDP needs the VRDE Extension Pack to be installed on the VirtualBox host system. Either install this package to use RDP with the guest machine or remove the 'vncport' from xCAT vm table for '$node' to avoid this warning message to appear. Starting without RDP for now."); + } + } + } + + xCAT::vboxService->ISession_unlockMachine($url,$session); + + my $progress = xCAT::vboxService->IMachine_launchVMProcess($url, $machine, $session, "headless", ""); #gui + + if (!$progress) { + addError("$node: Can not open remote session"); + } else { # existing $progress + xCAT::vboxService->IProgress_waitForCompletion($url, $progress, -1); + + if (xCAT::vboxService->IProgress_getCompleted($url, $progress)) { + addMessage("$node: $args->[0]"); + } else { # not successfully completed + addError("$node: Power on failed"); + } + + } # /existing $progress + + return; + + } # /powerOn + + + sub powerOn_V3 #********************************************************** + { + my ($vboxvers, $url, $vbox, $machine, $session, $uuid, $node, $vncport, $args) = + (shift, shift, shift, shift, shift, shift, shift, shift, shift); + + xCAT::vboxService->IVirtualBox_openSession_V3($url, $vbox, $session, $uuid); + + my $directmachine = xCAT::vboxService->ISession_getMachine_V3($url, $session); + my $hasVRDP; + if (!$directmachine) { + addError("$node: Could not access mutable machine"); + } else { + my $vrdp = xCAT::vboxService->IMachine_getVRDPServer_V3($url, $directmachine); + $hasVRDP = xCAT::vboxService->IVRDPServer_getEnabled_V3($url, $vrdp); + my $portno; + my $vncportmismatch; # current rdp port differs from vm table vncport definition + if($vboxvers =~ "^3.0") { # returns single port as unsigned long + $portno = xCAT::vboxService->IVRDPServer_getPort_V30($url, $vrdp); + if ($vncport and ($vncport != $portno)) { + $vncportmismatch=1; + } + } else { # returns one or more ports as string + $portno = xCAT::vboxService->IVRDPServer_getPorts_V3($url, $vrdp); + if ($vncport and ($vncport ne $portno)) { + $vncportmismatch=1; + } + } + my $change; + if($vncport and ($hasVRDP eq "false")) { + $hasVRDP="true"; + xCAT::vboxService->IVRDPServer_setEnabled_V3($url, $vrdp, $hasVRDP); + $change=1; + } + if ($vncportmismatch) { + if($vboxvers =~ "^3.0") { # returns single port as unsigned long + xCAT::vboxService->IVRDPServer_setPort_V30($url, $vrdp, $vncport); + } else { + xCAT::vboxService->IVRDPServer_setPorts_V3($url, $vrdp, $vncport); + } + $change=1; + } + if (!$vncport and $hasVRDP eq "true") { + $hasVRDP="false"; + xCAT::vboxService->IVRDPServer_setEnabled_V3($url, $vrdp, $hasVRDP); + $change=1; + } + if ($change) { + xCAT::vboxService->IMachine_saveSettings_V3($url, $directmachine); + } + xCAT::vboxService->IManagedObjectRef_release_V3($url, $vrdp); + xCAT::vboxService->IManagedObjectRef_release_V3($url, $directmachine); + } + + xCAT::vboxService->ISession_close_V3($url, $session); + my $v3session; + if ($hasVRDP eq "true") { + $v3session="vrdp"; #vrdp + } else { + # found "headles" to be undocumented in SDK ref, but this allows to open a headless session w/o VRDP + # and thus we can disable rdp without being forced to launch the gui. This allows to follow + # the logic, that an empty vncport in the vm table will disable rdp, and having a value in + # table vm will define the port and enable rdp. + $v3session="headless"; # gui + } + #my $progress = xCAT::vboxService->IVirtualBox_openRemoteSession_V3($url, $vbox, $session, $uuid, "vrdp", ""); + my $progress = xCAT::vboxService->IVirtualBox_openRemoteSession_V3($url, $vbox, $session, $uuid, $v3session, ""); + + if (!$progress) { + addError("$node: Can not open remote session"); + } else { # existing $progress + xCAT::vboxService->IProgress_waitForCompletion_V3($url, $progress, -1); + + if (xCAT::vboxService->IProgress_getCompleted_V3($url, $progress)) { + addMessage("$node: $args->[0]"); + } else { # not successfully completed + addError("$node: Power on failed"); + } + + } # /existing $progress + + return; + } # /powerOn_V3 + + sub powerOff #********************************************************* + { + my ($url, $vbox, $session, $machine, $uuid, $node, $args) = + (shift, shift, shift, shift, shift, shift, shift); + + # Lock session with machine + my $vmsessionstate = xCAT::vboxService->IMachine_getSessionState($url, $machine); + my $vmsessiontype = xCAT::vboxService->IMachine_getSessionType($url, $machine); + + if ($vmsessionstate eq "Locked") { + my $locktype="Shared"; + xCAT::vboxService->IMachine_lockMachine($url,$machine,$session,$locktype); + } elsif ($vmsessionstate eq "Unlocked") { + my $locktype="Write"; + xCAT::vboxService->IMachine_lockMachine($url,$machine,$session,$locktype); + } else { # !$vmsessionstate + addError("$node: No direct session to machine"); + } + + # just test: check sessiontype - it turns out, that this needs a lock from traces + #my $teste = xCAT::vboxService->ISession_getType($url, $session); + #addError("$node: sessiontype =$teste"); + # The session is now locked with the machine, now its direct session or console can be optained and manipulated - # Now get the console for the mutable machine - my $console = xCAT::vboxService->ISession_getConsole($url, $session); - if (!$console) - { - addError("$node: No console for mutable machine"); - } - else # existing $console - { - - if ($args->[0] =~ m/^reset|^boot/) - { - xCAT::vboxService->IConsole_reset($url, $console); - xCAT::vboxService->IManagedObjectRef_release($url, $console); - addMessage("$node: on reset"); - - xCAT::vboxService->IManagedObjectRef_release($url, $console); - return; - } - else - { - xCAT::vboxService->IConsole_powerButton($url, $console); - unless (xCAT::vboxService->IConsole_getPowerButtonHandled( - $url, $console) eq "true") - { + # Now get the console for the mutable machine + my $console = xCAT::vboxService->ISession_getConsole($url, $session); + if (!$console) { + addError("$node: No console for mutable machine"); + } else { # existing $console + if ($args->[0] =~ m/^reset|^boot/) { + xCAT::vboxService->IConsole_reset($url, $console); + xCAT::vboxService->IManagedObjectRef_release($url, $console); + addMessage("$node: on reset"); + #xCAT::vboxService->IManagedObjectRef_release($url, $console); + return; + } else { + xCAT::vboxService->IConsole_powerButton($url, $console); + unless (xCAT::vboxService->IConsole_getPowerButtonHandled($url, $console) eq "true") { # In case of no reaction: force to power down machine xCAT::vboxService->IConsole_powerDown($url, $console); - } - addMessage("$node: off"); - } - - xCAT::vboxService->IManagedObjectRef_release($url, $console); - - } # /existing $console - - return; - - } # /powerOff - - - } # /powerCtrl - - - sub getSession ############################################################ - { - my $sess; - my ($url, $vbox, $node, $vmname) = (shift, shift, shift, shift); - - eval { - $sess = xCAT::vboxService->IWebsessionManager_getSessionObject($url, $vbox); - }; - - return $sess if ($sess and not $@); - - addError("$node: No session for $vmname on web service @ $url."); - return undef; - } # /getSession - - - sub getMachine ############################################################ - { - my $machine; - my ($url, $vbox, $vmname, $node) = (shift, shift, shift, shift); - - eval { - $machine = xCAT::vboxService->IVirtualBox_findMachine($url, $vbox, $vmname); - }; - - return $machine if ($machine and not $@); - - addError("$node: VM $vmname not known by the web service @ $url."); - return undef; - } # /getMachine - - - sub getWebService ######################################################### - { - my $ws; - my ($url, $user, $passwd, $node) = (shift, shift, shift, shift); - - eval { - $ws = xCAT::vboxService->IWebsessionManager_logon($url, $user, $passwd); - }; - - return $ws if ($ws and not $@); - - addError("$node: No connection to the web service @ $url."); - return undef; - } # /getWebService - - - sub getInfo ############################################################### - { - my $node = shift; - - # Open tables first, return in case of a critical error = 2 - my $hostsTab = openTable('hosts'); - return (2, undef, undef, undef, undef) if (!$hostsTab); - - my $vmTab = openTable('vm'); - return (2, undef, undef, undef, undef) if (!$vmTab); - - my $websrvTab = openTable('websrv'); - return (2, undef, undef, undef, undef) if (!$websrvTab); - - # Load attributes, return in case of missing information error = 1 - my $values; + } addMessage("$node: off"); + } + + xCAT::vboxService->IManagedObjectRef_release($url, $console); + + } # /existing $console + + return; + + } # /powerOff - my @attributes = ('host','vncport','comments'); - $values = loadValues($vmTab, $node, \@attributes); - return (1, undef, undef, undef, undef) if (!defined($values)); - - my $hostname = $values->{host}; - my $vncport = $values->{vncport}; - my $comments = $values->{comments}; + sub powerOff_V3 #********************************************************* + { + my ($url, $vbox, $session, $machine, $uuid, $node, $args) = + (shift, shift, shift, shift, shift, shift, shift); + + # Lock session with machine + my $vmsessionstate = xCAT::vboxService->IMachine_getSessionState_V3($url, $machine); + + if ($vmsessionstate eq "Open") { + xCAT::vboxService->IVirtualBox_openExistingSession_V3($url, $vbox, $session, $uuid); + } elsif ($vmsessionstate eq "Closed") { + xCAT::vboxService->IVirtualBox_openSession_V3($url, $vbox, $session, $uuid); + } else { + addError("$node: No direct session to machine"); + } + + # Now get the console for the mutable machine + my $console = xCAT::vboxService->ISession_getConsole_V3($url, $session); + if (!$console) { + addError("$node: No console for mutable machine"); + } else { # existing $console + if ($args->[0] =~ m/^reset|^boot/) { + xCAT::vboxService->IConsole_reset_V3($url, $console); + xCAT::vboxService->IManagedObjectRef_release_V3($url, $console); + addMessage("$node: on reset"); + #xCAT::vboxService->IManagedObjectRef_release_V3($url, $console); + return; + } else { + xCAT::vboxService->IConsole_powerButton_V3($url, $console); + unless (xCAT::vboxService->IConsole_getPowerButtonHandled_V3($url, $console) eq "true") { + # In case of no reaction: force to power down machine + xCAT::vboxService->IConsole_powerDown_V3($url, $console); + } addMessage("$node: off"); + } + + xCAT::vboxService->IManagedObjectRef_release_V3($url, $console); + + } # /existing $console + + return; + } # /powerOff_V3 + + } # /powerCtrl + + + sub getSession ############################################################ + { + my $sess; + my ($api, $url, $vbox, $node, $vmname) = (shift, shift, shift, shift, shift); + + my $cmd = "IWebsessionManager_getSessionObject"; + if($api eq "3") {$cmd=$cmd . "_V3";} + + eval { + $sess = xCAT::vboxService->$cmd($url, $vbox); + }; + + return $sess if ($sess and not $@); + + addError("$node: No session for $vmname on web service @ $url."); + return undef; + } # /getSession + + + sub getMachine ############################################################ + { + my $machine; + my ($api, $url, $vbox, $vmname, $node) = (shift, shift, shift, shift, shift); + + my $cmd = "IVirtualBox_findMachine"; + if($api eq "3") {$cmd=$cmd . "_V3";} + + eval { + $machine = xCAT::vboxService->$cmd($url, $vbox, $vmname); + }; + return $machine if ($machine and not $@); + + addError("$node: VM $vmname not known by the web service @ $url."); + return undef; + } # /getMachine + + + sub getWebService ######################################################### + { + my $ws; + my ($url, $user, $passwd, $node) = (shift, shift, shift, shift); + + my $cmd = "IWebsessionManager_logon"; + eval { + $ws = xCAT::vboxService->$cmd($url, $user, $passwd); + }; + + return $ws if ($ws and not $@); + + addError("$node: No connection to the web service @ $url."); + return undef; + } # /getWebService + + + sub getInfo ############################################################### + { + my $node = shift; + + # Open tables first, return in case of a critical error = 2 + my $hostsTab = openTable('hosts'); + return (2, undef, undef, undef, undef) if (!$hostsTab); + + my $vmTab = openTable('vm'); + return (2, undef, undef, undef, undef) if (!$vmTab); + + my $websrvTab = openTable('websrv'); + return (2, undef, undef, undef, undef) if (!$websrvTab); + + # Load attributes, return in case of missing information error = 1 + my $values; + + my @attributes = ('host','vncport','comments'); + $values = loadValues($vmTab, $node, \@attributes); + return (1, undef, undef, undef, undef) if (!defined($values)); + + my $hostname = $values->{host}; + my $vncport = $values->{vncport}; + my $comments = $values->{comments}; my $vmname = undef; - if ($comments =~ m/vmname:(.+)!/) { - $vmname = $1; + if ($comments =~ m/vmname:(.+)!/) { + $vmname = $1; } else { - $vmname = $node; + $vmname = $node; } - - @attributes = ('port','username', 'password'); - $values = loadValues($websrvTab, $hostname, \@attributes); - return (1, undef, undef, undef, undef) if (!defined($values)); - - my $port = $values->{port}; - my $username = $values->{username}; - my $password = $values->{password}; - - @attributes = ('ip'); - $values = loadValues($hostsTab, $hostname, \@attributes); - return (1, undef, undef, undef, undef) if (!defined($values)); - - my $ipaddr = $values->{ip}; - my $url = "http://$ipaddr:$port/"; - - return (0, $url, $username, $password, $vmname, $vncport); - - - sub loadValues #******************************************************* - { - my ($table, $node, $attributes) = (shift, shift, shift); - my ($values) = $table->getAttribs({'node'=>$node}, @$attributes); - $table->close; - - addError("$node: Missing information: @$attributes") - if (!defined($values)); - - return $values; - - } # /loadValues - - - sub openTable #******************************************************** - { - my $tabname = shift; - my $table = xCAT::Table->new($tabname); - - # try to create vbox tables if they don't exist yet - if (!$table and $tabname =~ m/websrv/) - { - $table = xCAT::Table->new( $tabname, -create=>1, -autocommit=>1 ); - $table->close; - addMessage("[xCAT] Info: The table $tabname has been created."); - $table = xCAT::Table->new($tabname); - } - - addError("[xCAT] Can not open table: $tabname. Command aborted.") - if (!$table); - - return $table; - - } # /loadValues - - } # /getInfo + + @attributes = ('port','username', 'password'); + $values = loadValues($websrvTab, $hostname, \@attributes); + return (1, undef, undef, undef, undef) if (!defined($values)); + + my $port = $values->{port}; + my $username = $values->{username}; + my $password = $values->{password}; + + @attributes = ('ip'); + $values = loadValues($hostsTab, $hostname, \@attributes); + return (1, undef, undef, undef, undef) if (!defined($values)); + + my $ipaddr = $values->{ip}; + my $url = "http://$ipaddr:$port/"; + + return (0, $url, $username, $password, $vmname, $vncport); + + + sub loadValues #******************************************************* + { + my ($table, $node, $attributes) = (shift, shift, shift); + my ($values) = $table->getAttribs({'node'=>$node}, @$attributes); + $table->close; + + addError("$node: Missing information: @$attributes") + if (!defined($values)); + + return $values; + + } # /loadValues + + + sub openTable #******************************************************** + { + my $tabname = shift; + my $table = xCAT::Table->new($tabname); + + # try to create vbox tables if they don't exist yet + if (!$table and $tabname =~ m/websrv/) + { + $table = xCAT::Table->new( $tabname, -create=>1, -autocommit=>1 ); + $table->close; + addMessage("[xCAT] Info: The table $tabname has been created."); + $table = xCAT::Table->new($tabname); + } + + addError("[xCAT] Can not open table: $tabname. Command aborted.") + if (!$table); + + return $table; + + } # /openTable + + } # /getInfo +} + +# see Lite.pm for other serializer code, e.g. as_string +sub SOAP::Serializer::as_LockType +{ + my ($self, $value, $name, $type, $attr) = @_; + die "String value expected instead of @{[ref $value]} reference\n" + if ref $value; + return [ + $name, + {'xsi:type' => 'vbox:LockType', %$attr}, + SOAP::Utils::encode_data($value) + ]; } 1; diff --git a/xCAT-server/share/xcat/install/rh/compute.rhels6.ppc64.tmpl b/xCAT-server/share/xcat/install/rh/compute.rhels6.ppc64.tmpl index 348677731..d05dec9f7 100644 --- a/xCAT-server/share/xcat/install/rh/compute.rhels6.ppc64.tmpl +++ b/xCAT-server/share/xcat/install/rh/compute.rhels6.ppc64.tmpl @@ -1,7 +1,8 @@ # lang en_US -network --bootproto dhcp +#network --bootproto dhcp +#KICKSTARTNET# # # Where's the source? diff --git a/xCAT-server/share/xcat/install/scripts/post.sles.common b/xCAT-server/share/xcat/install/scripts/post.sles.common index ec6e89437..cfe6f29cc 100644 --- a/xCAT-server/share/xcat/install/scripts/post.sles.common +++ b/xCAT-server/share/xcat/install/scripts/post.sles.common @@ -1,6 +1,10 @@ #!/bin/sh +export MANAGEDADDRESSMODE="#XCATVAR:MANAGEDADDRESSMODE#" cd /etc/sysconfig/network + +if [ "$MANAGEDADDRESSMODE" != "static" ] +then rm -f ifcfg-eth-id* rm -f ifcfg-myri* cat >ifcfg-eth0 <> ifcfg-$PRINIC fi fi + +if [ "$MANAGEDADDRESSMODE" != "static" ] +then echo "DHCLIENT_PRIMARY_DEVICE=yes" >> ifcfg-$PRINIC +fi + perl -pi -e 's/^FIREWALL="yes"/FIREWALL="no"/' /etc/sysconfig/network/config /etc/init.d/network restart diff --git a/xCAT-server/share/xcat/install/scripts/pre.rh b/xCAT-server/share/xcat/install/scripts/pre.rh index 72f691e86..cba5d49f7 100644 --- a/xCAT-server/share/xcat/install/scripts/pre.rh +++ b/xCAT-server/share/xcat/install/scripts/pre.rh @@ -219,7 +219,10 @@ if [ `uname -m` = "ppc64" ]; then echo 'part None --fstype "PPC PReP Boot" --ondisk '$instdisk' --size 8' >> /tmp/partitioning fi if [ -d /sys/firmware/efi ]; then + echo 'bootloader --driveorder='$instdisk >> /tmp/partitioning echo 'part /boot/efi --size 50 --ondisk '$instdisk' --fstype vfat' >> /tmp/partitioning +else + echo 'bootloader' >> /tmp/partitioning fi #TODO: ondisk detection, /dev/disk/by-id/edd-int13_dev80 for legacy maybe, and no idea about efi. at least maybe blacklist SAN if mptsas/mpt2sas/megaraid_sas seen... diff --git a/xCAT-server/share/xcat/install/sles/compute.sles11.tmpl b/xCAT-server/share/xcat/install/sles/compute.sles11.tmpl index 64819cafa..b343a4fbe 100644 --- a/xCAT-server/share/xcat/install/sles/compute.sles11.tmpl +++ b/xCAT-server/share/xcat/install/sles/compute.sles11.tmpl @@ -63,25 +63,7 @@ - - - true - true - local - linux - - - - dhcp - eth0 - onboot - - - - false - - - + #YAST2NET# #INCLUDE:#ENV:XCATROOT#/share/xcat/install/scripts/pre.sles# #INCLUDE:#ENV:XCATROOT#/share/xcat/install/scripts/chroot.sles# diff --git a/xCAT-server/share/xcat/scripts/setup-local-client.sh b/xCAT-server/share/xcat/scripts/setup-local-client.sh index dd95a4e4d..329cf5789 100755 --- a/xCAT-server/share/xcat/scripts/setup-local-client.sh +++ b/xCAT-server/share/xcat/scripts/setup-local-client.sh @@ -46,7 +46,7 @@ fi # remove user from index index=`grep $CNA /etc/xcat/ca/index | cut -f4 2>&1` for id in $index; do - openssl ca -config /etc/xcat/ca/openssl.cnf -revoke /etc/xcat/ca/certs/$id.pem + openssl ca -startdate 19600101010101Z -config /etc/xcat/ca/openssl.cnf -revoke /etc/xcat/ca/certs/$id.pem done mkdir -p $USERHOME/.xcat cd $USERHOME/.xcat @@ -60,7 +60,7 @@ cd $XCATDIR/ca # - seems to be a problem with the use of the wildcard in the Makefile # - calling cmds directly instead - should be safe # make sign -openssl ca -config openssl.cnf -in root.csr -out root.cert +openssl ca -startdate 19600101010101Z -config openssl.cnf -in root.csr -out root.cert if [ -f root.cert ]; then rm root.csr fi diff --git a/xCAT-server/share/xcat/scripts/setup-server-cert.sh b/xCAT-server/share/xcat/scripts/setup-server-cert.sh index 89a7c7295..42cb46767 100755 --- a/xCAT-server/share/xcat/scripts/setup-server-cert.sh +++ b/xCAT-server/share/xcat/scripts/setup-server-cert.sh @@ -33,7 +33,7 @@ cd $XCATDIR/ca # - call cmds directly instead - seems safe # make sign -openssl ca -config openssl.cnf -in `hostname`.csr -out `hostname`.cert -extensions server +openssl ca -startdate 19600101010101Z -config openssl.cnf -in `hostname`.csr -out `hostname`.cert -extensions server if [ -f `hostname`.cert ]; then rm `hostname`.csr fi diff --git a/xCAT-server/share/xcat/scripts/setup-xcat-ca.sh b/xCAT-server/share/xcat/scripts/setup-xcat-ca.sh index 9f2d9f4a6..cd13882db 100755 --- a/xCAT-server/share/xcat/scripts/setup-xcat-ca.sh +++ b/xCAT-server/share/xcat/scripts/setup-xcat-ca.sh @@ -30,5 +30,9 @@ sed -e "s@##XCATCADIR##@$XCATCADIR@" $XCATROOT/share/xcat/ca/openssl.cnf.tmpl > cp $XCATROOT/share/xcat/ca/Makefile $XCATCADIR/ cd $XCATCADIR make init -openssl req -nodes -config openssl.cnf -days 7300 -x509 -newkey rsa:2048 -out ca-cert.pem -extensions v3_ca -outform PEM -subj /CN="$CNA" +#openssl req -nodes -config openssl.cnf -days 7300 -x509 -newkey rsa:2048 -out ca-cert.pem -extensions v3_ca -outform PEM -subj /CN="$CNA" +openssl genrsa -out private/ca-key.pem 2048 +chmod 600 private/ca-key.pem +openssl req -new -key private/ca-key.pem -config openssl.cnf -out ca-req.csr -subj /CN="$CNA" -outform PEM +openssl ca -selfsign -keyfile private/ca-key.pem -in ca-req.csr -startdate 19700101010101Z -days 7305 -extensions v3_ca -config openssl.cnf -out ca-cert.pem cd - diff --git a/xCAT-server/share/xcat/tools/xCATreg b/xCAT-server/share/xcat/tools/xCATreg index 59b1d2ba6..14cfe2151 100755 --- a/xCAT-server/share/xcat/tools/xCATreg +++ b/xCAT-server/share/xcat/tools/xCATreg @@ -267,7 +267,7 @@ sub init system("xdsh $MN mkdir -p /iso/mountpoint"); print "--prepareing redhat iso file.......\n"; print "--mount NF ......."; - system ("scp -r /iso/RHEL6.4-20130130.0-Server-ppc64-DVD1.iso $MNIP:/iso"); + system ("scp -r /iso/RHEL6.4-20130130.0-Server-ppc64-DVD1.iso $MN:/iso"); system("xdsh $MN mount -o loop /iso/RHEL6.4-20130130.0-Server-ppc64-DVD1.iso /iso/mountpoint"); &runcmd("echo 127.0.0.1 localhost localhost.localdomain localhost4 localhost4.localdomain4>/etc/hosts.rhppc64"); &runcmd( " echo $HMCIP $HMC.$DOMAIN $HMC>>/etc/hosts.rhppc64"); @@ -283,18 +283,22 @@ sub init system("xdsh $MN rm -rf /etc/yum.repos.d/*"); $res = system("scp -r $nodedir/xcat-dep $MN:/"); system("scp -r /etc/yum.repos.d/rhel6.4.repo $MN:/etc/yum.repos.d/rhel6.4.repo"); ######## redhat 6.4 - system("scp -r default.conf $MN:$rhppc64configfile"); +# system("scp -r default.conf $MN:$rhppc64configfile"); # system("xdsh $MN perl $nodedir/xcatbuild/xcat-core/mklocalrepo.sh"); - system("xdsh $MN perl $nodedir/xcatbuild/xcat-dep/rh6/ppc64/mklocalrepo.sh"); + system("xdsh $MN perl /xcat-dep/rh6/ppc64/mklocalrepo.sh"); print "--install XCAT .......\n"; + + system("xdsh $MN yum -y install createrepo"); + system("xdsh $MN createrepo /xcat-core/build"); + system("xdsh $MN cp /xcat-core/build/xCAT-core.repo /etc/yum.repos.d/"); system("xdsh $MN yum clean metadata"); system("xdsh $MN rpm --import /iso/mountpoint/RPM-GPG-KEY-redhat-release"); - system("xdsh $MN yum -y install xCAT"); + system("xdsh $MN yum -y install perl-xCAT xCAT-client xCAT-server xCAT"); print "--install XCATTEST .......\n"; system("xdsh $MN yum -y install xCAT-test"); print "--install createrepo .......\n"; - system("xdsh $MN yum -y install createrepo"); +# system("xdsh $MN yum -y install createrepo"); system("xdsh $MN yum -y install screen"); system("xdsh $MN yum -y install mysql-server mysql mysql-bench mysql-devel mysql-connector-odbc"); system("xdsh $MN mkdir -p /autotest/result"); @@ -320,6 +324,9 @@ sub do_test { my $MN=$rhppc64config{var}{MN}; my $nodedir=$rhppc64config{var}{nodedir}; +print "copy config file "; +system("scp -r default.conf $MN:$rhppc64configfile"); + print "Start to run diskless installation ...\n"; send_msg("******************************"); send_msg("start diskless test"); @@ -327,6 +334,8 @@ print "Start to run diskless installation ...\n"; #if($dsklsinst){ system("xdsh $MN perl /opt/xcat/bin/xcattest -f /opt/xcat/share/xcat/tools/autotest/default.conf -t /opt/xcat/share/xcat/tools/autotest/testcase/installation/linux_diskless_installation"); system("xdsh $MN mv /opt/xcat/share/xcat/tools/autotest/result/* /autotest/result/"); +exit 1; + #} #if($bundlerun){ print "Start to run the automation test bucket ....\n"; @@ -574,12 +583,13 @@ if ($needhelp) ####################################### # step 1. Read configuration files ####################################### +$confile = $configfile; my %confhash = read_conf(); unless (%confhash) { send_msg(" returns error, exit"); exit; } - +send_msg("finish reading global variable"); ####################################### # step 2. git update @@ -590,11 +600,12 @@ my $gitup; $gitup="/tmp/gitup"; #Do checkout in git repo -$res = system("cd $confkeys{srcdir}"); -if ($res !=0) { - send_msg("no source code directory,exit"); - exit; -} +#$res = system("cd $confkeys{srcdir}"); +#if ($res !=0) { +# send_msg("no source code directory,exit"); +# +# exit; +#} $res = system("git checkout $branch"); if ($res != 0){ @@ -627,20 +638,24 @@ if (($res == 0)&&( $updates_regression == 1)) { ####################################### # step 4. Copy code to MNs ####################################### -##will modify to $confkeys{srcdir}; -my $codedir = "/regression/code"; +my $codedir = $confhash{srcdir}; +send_msg("src code directory is $confhash{srcdir}"); ##will modify to $rhppc64config{var}{MNIP} -my $mn="aixmn"; +my $mn = $management_node; +send_msg("mn is $mn"); #install dep for buildlocal +send_msg("begin to install build required packages on mn"); $res = system("xdsh $mn yum install -y rpm-build perl-Time-HiRes perl-DBI createrepo"); + #need to copy /etc/hosts to mn +send_msg("copy /etc/hosts to mn"); system("scp /etc/hosts $mn:/etc"); -system("echo begin copy code"); -$res = system("scp -r root\@$mn:/"); +send_msg("begin to copy code"); +$res = system("scp -r $codedir root\@$mn:/"); if ($res != 0){ send_msg("code copy failed"); exit 1; @@ -651,21 +666,23 @@ if ($res != 0){ # step 5. Build xcat code in MNs ####################################### #for temp usage -system("echo began build xcat on mn"); +send_msg("========= began build xcat on mn ========"); #will changed /code/xcat-core to $confkeys{srcdir} -$res = system("xdsh $mn /code/xcat-core/buildlocal.sh CURDIR=/code/xcat-core"); +$res = system("xdsh $mn /xcat-core/buildlocal.sh CURDIR=/xcat-core"); if ($res != 0){ send_msg("build failed on mn"); exit 1; } -system("echo build done"); +send_msg("====================build done============================"); sleep 20; + ####################################### # step 6. Read xCAT MN's configuration ####################################### +send_msg("begin read configuration file for mn"); mkdir $resultdir unless -d $resultdir; $timestamp = `date +"%Y%m%d%H%M%S"`; my @osname = &runcmd("uname -a"); @@ -681,17 +698,21 @@ if ($res) { } #} +send_msg("step 6 : reading mn configuration done====="); + ####################################### # step 7. Genrate local configuration file for xcattest # Do test # Write log ####################################### # step 7.1 Install xcat and init mn +send_msg("began to install xCAT and initialize mn"); $res = &init; if ($res != 0){ exit; } + $res = &do_test; if ($res) { send_msg("DO TEST returns error, exit");