diff options
Diffstat (limited to 'source4/script/tests/win/vm_load_snapshot.pl')
-rw-r--r-- | source4/script/tests/win/vm_load_snapshot.pl | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/source4/script/tests/win/vm_load_snapshot.pl b/source4/script/tests/win/vm_load_snapshot.pl deleted file mode 100644 index e8ba9b39cf..0000000000 --- a/source4/script/tests/win/vm_load_snapshot.pl +++ /dev/null @@ -1,46 +0,0 @@ -#!/usr/bin/perl -w - -# A perl script to connect to a VMware server and revert a VM snapshot. -# Copyright Brad Henry <brad@samba.org> 2006 -# Released under the GNU GPL v2 or later. - -use VMHost; - -sub check_error { -my $vm = VMHost; - my $custom_err_str = ""; - ($vm, $custom_err_str) = @_; - - my ($err_code, $err_str) = $vm->error; - if ($err_code != 0) { - undef $vm; - die $custom_err_str . "Returned $err_code: $err_str.\n"; - } -} - -# Read in parameters from environment. -my $vm_cfg_path = $ENV{'VM_CFG_PATH'}; -my $host_server_name = $ENV{'HOST_SERVER_NAME'}; -my $host_server_port = $ENV{'HOST_SERVER_PORT'}; -if (!defined($host_server_port)) { - $host_server_port = 902; -} - -my $host_username = $ENV{'HOST_USERNAME'}; -my $host_password = $ENV{'HOST_PASSWORD'}; -my $guest_admin_username = $ENV{'GUEST_ADMIN_USERNAME'}; -my $guest_admin_password = $ENV{'GUEST_ADMIN_PASSWORD'}; - -my $vm = VMHost; - -$vm->host_connect($host_server_name, $host_server_port, $host_username, - $host_password, $vm_cfg_path, $guest_admin_username, - $guest_admin_password); -check_error($vm, "Error in \$vm->host_connect().\n"); - -$vm->revert_snapshot(); -check_error($vm, "Error in \$vm->revert_snapshot().\n"); - -undef $vm; - -exit 0; |