* back to revision 1793...

git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@1798 95ad53e4-c205-0410-b2fa-d234c58c8868

1 files changed, 306 insertions, 306 deletions

diff --git a/os-plugins/plugins/vmware/OpenSLX/OSPlugin/vmware.pm b/os-plugins/plugins/vmware/OpenSLX/OSPlugin/vmware.pm
index 76334a8b..4f22a66a 100644
--- a/os-plugins/plugins/vmware/OpenSLX/OSPlugin/vmware.pm
+++ b/os-plugins/plugins/vmware/OpenSLX/OSPlugin/vmware.pm
@@ -11,204 +11,204 @@
 # vmware.pm
 #    - declares necessary information for the vmware plugin
 # -----------------------------------------------------------------------------
-    package OpenSLX::OSPlugin::vmware;
+package OpenSLX::OSPlugin::vmware;
 
-    use strict;
-    use warnings;
+use strict;
+use warnings;
 
-    use base qw(OpenSLX::OSPlugin::Base);
+use base qw(OpenSLX::OSPlugin::Base);
 
-    use File::Basename;
-    use File::Path;
+use File::Basename;
+use File::Path;
 
-    use OpenSLX::Basics;
-    use OpenSLX::Utils;
+use OpenSLX::Basics;
+use OpenSLX::Utils;
 
-    sub new
-    {
-        my $class = shift;
+sub new
+{
+    my $class = shift;
 
-        my $self = {
-            name => 'vmware',
-        };
+    my $self = {
+        name => 'vmware',
+    };
 
-        return bless $self, $class;
-    }
-
-    sub getInfo
-    {
-        my $self = shift;
+    return bless $self, $class;
+}
 
-        return {
-            description => unshiftHereDoc(<<'        End-of-Here'),
-                !!! descriptive text missing here !!!
-            End-of-Here
-            precedence => 70,
-        };
-    }
+sub getInfo
+{
+    my $self = shift;
 
-    sub getAttrInfo
-    {
-        # returns a hash-ref with information about all attributes supported
-        # by this specific plugin
-        my $self = shift;
-
-        # This default configuration will be added as attributes to the default
-        # system, such that it can be overruled for any specific system by means
-        # of slxconfig.
-        return {
-            # attribute 'active' is mandatory for all plugins
-            'vmware::active' => {
-                applies_to_systems => 1,
-                applies_to_clients => 0,
-                description => unshiftHereDoc(<<'            End-of-Here'),
-                    should the 'vmware'-plugin be executed during boot?
-                End-of-Here
-                content_regex => qr{^(0|1)$},
-                content_descr => '1 means active - 0 means inactive',
-                default => '1',
-            },
-            # attribute 'imagesrc' defines where we can find vmware images
-            'vmware::imagesrc' => {
-                applies_to_systems => 1,
-                applies_to_clients => 1,
-                description => unshiftHereDoc(<<'            End-of-Here'),
-                    Where do we store our vmware images? NFS? Filesystem?
-                End-of-Here
-                #TODO: check if the input is valid
-                #content_regex => qr{^(0|1)$},
-                content_descr => 'Allowed values: path or URI',
-                default => '',
-            },
-            # attribute 'bridge' defines if bridged network mode should be
-            # switched on
-            'vmware::bridge' => {
-                applies_to_systems => 1,
-                applies_to_clients => 1,
-                description => unshiftHereDoc(<<'            End-of-Here'),
-                    Should the bridging (direct access of the vmware clients
-                    to the ethernet the host is connected to) be enabled
-                End-of-Here
-                content_regex => qr{^(0|1)$},
-                content_descr => 'Allowed values: 0 or 1',
-                default => '1',
-            },
-            # attribute 'vmnet1' defines if the host connection network mode 
-            # should be switched on and NAT should be enabled
-            'vmware::vmnet1' => {
-                applies_to_systems => 1,
-                applies_to_clients => 1,
-                description => unshiftHereDoc(<<'            End-of-Here'),
-                    Format ServerIP/Netprefix without NAT
-                    Format ServerIP/Netprefix,NAT enables NAT/Masquerading
-                End-of-Here
-                #TODO: check if the input is valid
-                #content_regex => qr{^(0|1)$},
-                content_descr => 'Allowed value: IP/Prefix[,NAT]',
-                default => '192.168.101.1/24,NAT',
-            },
-            # attribute 'vmnet8' defines if vmware specific NATed network mode
-            # should be switched on
-            'vmware::vmnet8' => {
-                applies_to_systems => 1,
-                applies_to_clients => 1,
-                description => unshiftHereDoc(<<'            End-of-Here'),
-                    Format ServerIP/Netprefix
-                End-of-Here
-                #TODO: check if the input is valid
-                #content_regex => qr{^(0|1)$},
-                content_descr => 'Allowed value: IP/Prefix',
-                default => '192.168.102.1/24',
-            },
-            # attribute 'kind' defines which set of VMware binaries should be 
-            # activated ('local' provided with the main installation set).
-            'vmware::kind' => {
-                applies_to_vendor_os => 0,
-                applies_to_systems => 1,
-                applies_to_clients => 1,
-                description => unshiftHereDoc(<<'            End-of-Here'),
-                    Which set of VMware binaries to use: installed (local) or provided by an
-                    other plugin (e.g. Workstation 5.5: vmws5.5, Player 2.0: vmpl2.0, ...)
-                End-of-Here
-                # only allow the supported once...
-                # TODO: modify if we know which of them work
-                #content_regex => qr{^(local|vmws(5\.5|6.0)|vmpl(1\.0|2\.0))$},
-                content_regex => qr{^(local|vmpl2\.0)$},
-                content_descr => 'Allowed values: local, vmpl2.0',
-                default => 'local',
-            },
-            ##
-            ## only stage1 setup options: different kinds to setup
-            'vmware::local' => {
-                applies_to_vendor_os => 1,
-                applies_to_system => 0,
-                applies_to_clients => 0,
-                description => unshiftHereDoc(<<'            End-of-Here'),
-                    Set's up stage1 configuration for a local installed
-                    vmplayer or vmware workstation
-                End-of-Here
-                content_regex => qr{^(1|0)$},
-                content_descr => '1 means active - 0 means inactive',
-                default => '1',
-            },
-            'vmware::vmpl2.0' => {
-                applies_to_vendor_os => 1,
-                applies_to_system => 0,
-                applies_to_clients => 0,
-                description => unshiftHereDoc(<<'            End-of-Here'),
-                    Install and configure vmplayer v2
-                End-of-Here
-                content_regex => qr{^(1|0)$},
-                content_descr => '1 means active - 0 means inactive',
-                default => '0',
-            },
-            # ** set of attributes for the installation of VM Workstation/Player
-            # versions. More than one package could be installed in parallel.
-            # To be matched to/triggerd by 'vmware::kind'
-        };
-    }
+    return {
+        description => unshiftHereDoc(<<'        End-of-Here'),
+            !!! descriptive text missing here !!!
+        End-of-Here
+        precedence => 70,
+    };
+}
 
+sub getAttrInfo
+{
+    # returns a hash-ref with information about all attributes supported
+    # by this specific plugin
+    my $self = shift;
+
+    # This default configuration will be added as attributes to the default
+    # system, such that it can be overruled for any specific system by means
+    # of slxconfig.
+    return {
+        # attribute 'active' is mandatory for all plugins
+        'vmware::active' => {
+            applies_to_systems => 1,
+            applies_to_clients => 0,
+            description => unshiftHereDoc(<<'            End-of-Here'),
+                should the 'vmware'-plugin be executed during boot?
+            End-of-Here
+            content_regex => qr{^(0|1)$},
+            content_descr => '1 means active - 0 means inactive',
+            default => '1',
+        },
+        # attribute 'imagesrc' defines where we can find vmware images
+        'vmware::imagesrc' => {
+            applies_to_systems => 1,
+            applies_to_clients => 1,
+            description => unshiftHereDoc(<<'            End-of-Here'),
+                Where do we store our vmware images? NFS? Filesystem?
+            End-of-Here
+            #TODO: check if the input is valid
+            #content_regex => qr{^(0|1)$},
+            content_descr => 'Allowed values: path or URI',
+            default => '',
+        },
+        # attribute 'bridge' defines if bridged network mode should be
+        # switched on
+        'vmware::bridge' => {
+            applies_to_systems => 1,
+            applies_to_clients => 1,
+            description => unshiftHereDoc(<<'            End-of-Here'),
+                Should the bridging (direct access of the vmware clients
+                to the ethernet the host is connected to) be enabled
+            End-of-Here
+            content_regex => qr{^(0|1)$},
+            content_descr => 'Allowed values: 0 or 1',
+            default => '1',
+        },
+        # attribute 'vmnet1' defines if the host connection network mode 
+        # should be switched on and NAT should be enabled
+        'vmware::vmnet1' => {
+            applies_to_systems => 1,
+            applies_to_clients => 1,
+            description => unshiftHereDoc(<<'            End-of-Here'),
+                Format ServerIP/Netprefix without NAT
+                Format ServerIP/Netprefix,NAT enables NAT/Masquerading
+            End-of-Here
+            #TODO: check if the input is valid
+            #content_regex => qr{^(0|1)$},
+            content_descr => 'Allowed value: IP/Prefix[,NAT]',
+            default => '192.168.101.1/24,NAT',
+        },
+        # attribute 'vmnet8' defines if vmware specific NATed network mode
+        # should be switched on
+        'vmware::vmnet8' => {
+            applies_to_systems => 1,
+            applies_to_clients => 1,
+            description => unshiftHereDoc(<<'            End-of-Here'),
+                Format ServerIP/Netprefix
+            End-of-Here
+            #TODO: check if the input is valid
+            #content_regex => qr{^(0|1)$},
+            content_descr => 'Allowed value: IP/Prefix',
+            default => '192.168.102.1/24',
+        },
+        # attribute 'kind' defines which set of VMware binaries should be 
+        # activated ('local' provided with the main installation set).
+        'vmware::kind' => {
+            applies_to_vendor_os => 0,
+            applies_to_systems => 1,
+            applies_to_clients => 1,
+            description => unshiftHereDoc(<<'            End-of-Here'),
+                Which set of VMware binaries to use: installed (local) or provided by an
+                other plugin (e.g. Workstation 5.5: vmws5.5, Player 2.0: vmpl2.0, ...)
+            End-of-Here
+            # only allow the supported once...
+            # TODO: modify if we know which of them work
+            #content_regex => qr{^(local|vmws(5\.5|6.0)|vmpl(1\.0|2\.0))$},
+            content_regex => qr{^(local|vmpl2\.0)$},
+            content_descr => 'Allowed values: local, vmpl2.0',
+            default => 'local',
+        },
+        ##
+        ## only stage1 setup options: different kinds to setup
+        'vmware::local' => {
+            applies_to_vendor_os => 1,
+            applies_to_system => 0,
+            applies_to_clients => 0,
+            description => unshiftHereDoc(<<'            End-of-Here'),
+                Set's up stage1 configuration for a local installed
+                vmplayer or vmware workstation
+            End-of-Here
+            content_regex => qr{^(1|0)$},
+            content_descr => '1 means active - 0 means inactive',
+            default => '1',
+        },
+        'vmware::vmpl2.0' => {
+            applies_to_vendor_os => 1,
+            applies_to_system => 0,
+            applies_to_clients => 0,
+            description => unshiftHereDoc(<<'            End-of-Here'),
+                Install and configure vmplayer v2
+            End-of-Here
+            content_regex => qr{^(1|0)$},
+            content_descr => '1 means active - 0 means inactive',
+            default => '0',
+        },
+        # ** set of attributes for the installation of VM Workstation/Player
+        # versions. More than one package could be installed in parallel.
+        # To be matched to/triggerd by 'vmware::kind'
+    };
+}
 
-    sub installationPhase
-    {
-        my $self                      = shift;
 
-        $self->{pluginRepositoryPath} = shift;
-        $self->{pluginTempPath}       = shift;
-        $self->{openslxPath}          = shift;
-        $self->{attrs}                = shift;
-        
+sub installationPhase
+{
+    my $self                      = shift;
 
-        # kinds we will configure and install
-        # TODO: write a list of installed/setted up and check it in stage3
-        #       this will avoid conflict of configured vmware version in
-        #       stage3 which are not setted up or installed in stage1
-        if ($self->{attrs}->{'vmware::local'} == 1) {
-            $self->_localInstallation();
-        }
-        if ($self->{attrs}->{'vmware::vmpl2.0'} == 1) {
-            $self->_vmpl2Installation();
-        }
+    $self->{pluginRepositoryPath} = shift;
+    $self->{pluginTempPath}       = shift;
+    $self->{openslxPath}          = shift;
+    $self->{attrs}                = shift;
+    
 
+    # kinds we will configure and install
+    # TODO: write a list of installed/setted up and check it in stage3
+    #       this will avoid conflict of configured vmware version in
+    #       stage3 which are not setted up or installed in stage1
+    if ($self->{attrs}->{'vmware::local'} == 1) {
+        $self->_localInstallation();
+    }
+    if ($self->{attrs}->{'vmware::vmpl2.0'} == 1) {
+        $self->_vmpl2Installation();
     }
 
-    sub removalPhase
-    {
-        my $self                 = shift;
-        my $pluginRepositoryPath = shift;
-        my $pluginTempPath       = shift;
-        
-        rmtree ( [ $pluginRepositoryPath ] );
-        # restore old start scripts - to be discussed
-        my @files = qw( vmware vmplayer );
-        foreach my $file (@files) {
-            if (-e $file) {
-                unlink("/usr/bin/$file");
-                rename("/usr/bin/$file.slx-bak", "/usr/bin/$file");
-            }
+}
+
+sub removalPhase
+{
+    my $self                 = shift;
+    my $pluginRepositoryPath = shift;
+    my $pluginTempPath       = shift;
+    
+    rmtree ( [ $pluginRepositoryPath ] );
+    # restore old start scripts - to be discussed
+    my @files = qw( vmware vmplayer );
+    foreach my $file (@files) {
+        if (-e $file) {
+            unlink("/usr/bin/$file");
+            rename("/usr/bin/$file.slx-bak", "/usr/bin/$file");
         }
-        return;
     }
+    return;
+}
 
 
 #######################################
@@ -216,83 +216,83 @@
 #######################################
 
 # write the runlevelscript depending on the version
-    sub _writeRunlevelScript
-    {
-        my $self     = shift;
-        my $location = shift;
-        my $file     = shift;
-        
-        # $location points to the path where vmware helpers are installed
-        # call the distrospecific fillup
-        my $runlevelScript = $self->{distro}->fillRunlevelScript($location);
-
-        # OLTA: this backup strategy is useless if invoked twice, so I have
-        #       deactivated it
-        # rename($file, "${file}.slx-bak") if -e $file;
-
-        spitFile($file, $runlevelScript);
-    }
+sub _writeRunlevelScript
+{
+    my $self     = shift;
+    my $location = shift;
+    my $file     = shift;
+    
+    # $location points to the path where vmware helpers are installed
+    # call the distrospecific fillup
+    my $runlevelScript = $self->{distro}->fillRunlevelScript($location);
+
+    # OLTA: this backup strategy is useless if invoked twice, so I have
+    #       deactivated it
+    # rename($file, "${file}.slx-bak") if -e $file;
+
+    spitFile($file, $runlevelScript);
+}
 
 
 # writes the wrapper script for vmware workstation and player, depending
 # on the flag. If player: just player wrapper, if ws: ws+player wrapper
 # usage: _writeWrapperScript("$vmpath", "$kind", "player")
 #        _writeWrapperScript("$vmpath", "$kind", "ws")
-    sub _writeWrapperScript
-    {
-        my $self   = shift;
-        my $vmpath = shift;
-        my $kind   = shift;
-        my $type   = shift;
-        my @files;
-
-        if ("$type" eq "ws") {
-            @files = qw(vmware vmplayer);
-        } else {
-            @files = qw(vmplayer);
-        }
-
-        foreach my $file (@files) {
-            # create our own simplified version of the vmware and player wrapper
-            # Depending on the configured kind it will be copied in stage3
-            # because of tempfs of /var but not /usr we link the file
-            # to /var/..., where we can write in stage3
-            my $script = unshiftHereDoc(<<"        End-of-Here");
-                #!/bin/sh
-                # written by OpenSLX-plugin 'vmware' in Stage1
-                # radically simplified version of the original script $file by VMware Inc.
-            End-of-Here
+sub _writeWrapperScript
+{
+    my $self   = shift;
+    my $vmpath = shift;
+    my $kind   = shift;
+    my $type   = shift;
+    my @files;
+
+    if ("$type" eq "ws") {
+        @files = qw(vmware vmplayer);
+    } else {
+        @files = qw(vmplayer);
+    }
 
-            # kinda ugly and we only need it for local. Preserves errors
-            if ($kind ne "local") {
-                $script .= unshiftHereDoc(<<"            End-of-Here");">
-                    export LD_LIBRARY_PATH=$vmpath/lib
-                    export GTK_PIXBUF_MODULE_FILE=$vmpath/libconf/etc/gtk-2.0/gdk-pixbuf.loaders
-                    export GTK_IM_MODULE_FILE=$vmpath/libconf/etc/gtk-2.0/gtk.immodules
-                    export FONTCONFIG_PATH=$vmpath/libconf/etc/fonts
-                    export PANGO_RC_FILE=$vmpath/libconf/etc/pango/pangorc
-                    # possible needed... but what are they good for?
-                    #export GTK_DATA_PREFIX=
-                    #export GTK_EXE_PREFIX=
-                    #export GTK_PATH=
-                End-of-Here
-            }
-
-            $script .= unshiftHereDoc(<<"        End-of-Here");
-                PREFIX=$vmpath # depends on the vmware location
-                exec "\$PREFIX"'/lib/wrapper-gtk24.sh' \\
-                    "\$PREFIX"'/lib' \\
-                    "\$PREFIX"'/bin/$file' \\
-                    "\$PREFIX"'/libconf' "\$@"
+    foreach my $file (@files) {
+        # create our own simplified version of the vmware and player wrapper
+        # Depending on the configured kind it will be copied in stage3
+        # because of tempfs of /var but not /usr we link the file
+        # to /var/..., where we can write in stage3
+        my $script = unshiftHereDoc(<<"        End-of-Here");
+            #!/bin/sh
+            # written by OpenSLX-plugin 'vmware' in Stage1
+            # radically simplified version of the original script $file by VMware Inc.
+        End-of-Here
+
+        # kinda ugly and we only need it for local. Preserves errors
+        if ($kind ne "local") {
+            $script .= unshiftHereDoc(<<"            End-of-Here");
+                export LD_LIBRARY_PATH=$vmpath/lib
+                export GTK_PIXBUF_MODULE_FILE=$vmpath/libconf/etc/gtk-2.0/gdk-pixbuf.loaders
+                export GTK_IM_MODULE_FILE=$vmpath/libconf/etc/gtk-2.0/gtk.immodules
+                export FONTCONFIG_PATH=$vmpath/libconf/etc/fonts
+                export PANGO_RC_FILE=$vmpath/libconf/etc/pango/pangorc
+                # possible needed... but what are they good for?
+                #export GTK_DATA_PREFIX=
+                #export GTK_EXE_PREFIX=
+                #export GTK_PATH=
             End-of-Here
-
-            # TODO: check if these will be overwritten if we have more as
-            # local defined (add the version/type like vmpl1.0, vmws5.5, ...)
-            # then we have a lot of files easily distinguishable by there suffix
-            spitFile("$self->{'pluginRepositoryPath'}/$kind/$file", $script);
-            chmod 0755, "$self->{'pluginRepositoryPath'}/$kind/$file";
         }
+
+        $script .= unshiftHereDoc(<<"        End-of-Here");
+            PREFIX=$vmpath # depends on the vmware location
+            exec "\$PREFIX"'/lib/wrapper-gtk24.sh' \\
+                "\$PREFIX"'/lib' \\
+                "\$PREFIX"'/bin/$file' \\
+                "\$PREFIX"'/libconf' "\$@"
+        End-of-Here
+
+        # TODO: check if these will be overwritten if we have more as
+        # local defined (add the version/type like vmpl1.0, vmws5.5, ...)
+        # then we have a lot of files easily distinguishable by there suffix
+        spitFile("$self->{'pluginRepositoryPath'}/$kind/$file", $script);
+        chmod 0755, "$self->{'pluginRepositoryPath'}/$kind/$file";
     }
+}
 
 
 ########################################################################
@@ -303,65 +303,65 @@
 ########################################################################
 
 # local installation
-    sub _localInstallation
-    {
-        my $self     = shift;
-
-        my $kind   = "local";
-        my $vmpath = "/usr/lib/vmware";
-        my $vmbin  = "/usr/bin";
-        my $vmversion = "";
-        my $vmbuildversion = "";
-
-        my $pluginFilesPath 
-            = "$self->{'openslxPath'}/lib/plugins/$self->{'name'}/files";
-        my $installationPath = "$self->{'pluginRepositoryPath'}/$kind";
-
-        mkpath($installationPath);
-
-        # if vmware ws is installed, vmplayer is installed, too.
-        # we will only use vmplayer
-        if (-e "/usr/lib/vmware/bin/vmplayer") {
-
-            ##
-            ## Get and write version informations
-
-            # get version information about installed vmplayer
-            open(FH, "/usr/lib/vmware/bin/vmplayer");
-            $/ = undef;
-            my $data = <FH>;
-            close FH;
-            # perhaps we need to recheck the following check. depending
-            # on the installation it could differ and has multiple build-
-            # strings
-            if ($data =~ m{(\d.\d\.\d) build-(\d+)}) {
-                $vmversion = $1;
-                $vmbuildversion = $2;
-            }
-            # else { TODO: errorhandling if file or string doesn't exist }
-            chomp($vmversion);
-            chomp($vmbuildversion);
-
-            # write informations about local installed vmplayer in file
-            # TODO: perhaps we don't need this file.
-            # TODO2: write vmbuildversion and stuff in runvmware in stage1
-            open FILE, ">$self->{'pluginRepositoryPath'}/$kind/versioninfo.txt"
-                or die $!;
-            print FILE "vmversion=\"$vmversion\"\n";
-            print FILE "vmbuildversion=\"$vmbuildversion\"\n";
-            close FILE;
-
-            ##
-            ## Copy needed files
-
-            # copy 'normal' needed files
-            my @files = qw( nvram.5.0);
-            foreach my $file (@files) {
-                copyFile("$pluginFilesPath/$file", "$installationPath");
-            }
-            # copy depends on version and rename it to runvmware, safes one check in stage3
-            if ($vmversion < "6") {
-                print "\n\nDEBUG: player version $vmversion, we use -v1\n\n";
+sub _localInstallation
+{
+    my $self     = shift;
+
+    my $kind   = "local";
+    my $vmpath = "/usr/lib/vmware";
+    my $vmbin  = "/usr/bin";
+    my $vmversion = "";
+    my $vmbuildversion = "";
+
+    my $pluginFilesPath 
+        = "$self->{'openslxPath'}/lib/plugins/$self->{'name'}/files";
+    my $installationPath = "$self->{'pluginRepositoryPath'}/$kind";
+
+    mkpath($installationPath);
+
+    # if vmware ws is installed, vmplayer is installed, too.
+    # we will only use vmplayer
+    if (-e "/usr/lib/vmware/bin/vmplayer") {
+
+        ##
+        ## Get and write version informations
+
+        # get version information about installed vmplayer
+        open(FH, "/usr/lib/vmware/bin/vmplayer");
+        $/ = undef;
+        my $data = <FH>;
+        close FH;
+        # perhaps we need to recheck the following check. depending
+        # on the installation it could differ and has multiple build-
+        # strings
+        if ($data =~ m{(\d\.\d) build-(\d+)}) {
+            $vmversion = $1;
+            $vmbuildversion = $2;
+        }
+        # else { TODO: errorhandling if file or string doesn't exist }
+        chomp($vmversion);
+        chomp($vmbuildversion);
+
+        # write informations about local installed vmplayer in file
+        # TODO: perhaps we don't need this file.
+        # TODO2: write vmbuildversion and stuff in runvmware in stage1
+        open FILE, ">$self->{'pluginRepositoryPath'}/$kind/versioninfo.txt"
+            or die $!;
+        print FILE "vmversion=\"$vmversion\"\n";
+        print FILE "vmbuildversion=\"$vmbuildversion\"\n";
+        close FILE;
+
+        ##
+        ## Copy needed files
+
+        # copy 'normal' needed files
+        my @files = qw( nvram.5.0);
+        foreach my $file (@files) {
+            copyFile("$pluginFilesPath/$file", "$installationPath");
+        }
+        # copy depends on version and rename it to runvmware, safes one check in stage3
+        if ($vmversion < "6") {
+            print "\n\nDEBUG: player version $vmversion, we use -v1\n\n";
             copyFile("$pluginFilesPath/runvmware-player-v1", "$installationPath", "runvmware");
         } else {
             print "\n\nDEBUG: player version $vmversion, we use -v2\n\n";