* finished implementation of vmpl2.0 installation

* tested successfull on suse 10.2 (vmpl2.0 and local installation)
* some minor (optical) changes

* some more errorhandling for invalid configuration needed
* theres a need for tests on debian-based systems
* Configuration: http://openslx.org/trac/de/openslx/wiki/vmware
  


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

5 files changed, 93 insertions, 47 deletions

diff --git a/os-plugins/plugins/vmware/OpenSLX/Distro/Base.pm b/os-plugins/plugins/vmware/OpenSLX/Distro/Base.pm
index 2dfc2700..20769ca4 100644
--- a/os-plugins/plugins/vmware/OpenSLX/Distro/Base.pm
+++ b/os-plugins/plugins/vmware/OpenSLX/Distro/Base.pm
@@ -36,7 +36,7 @@ sub initialize
 {
     my $self = shift;
     my $engine = shift;
-    
+
     return 1;
 }
 
@@ -53,7 +53,7 @@ sub fillRunlevelScript
         #   Copyright 1998-2007 VMware, Inc.  All rights reserved.
         #
         # This script manages the services needed to run VMware software
-        
+
         # Basic support for the Linux Standard Base Specification 1.3
         ### BEGIN INIT INFO
         # Provides: VMware
@@ -65,10 +65,19 @@ sub fillRunlevelScript
         # Description: Manages the services needed to run VMware software
         ### END INIT INFO
         load_modules() {
-          # to be filled in via the stage1 configuration script
-          modprobe -qa vmmon vmnet vmblock 2>/dev/null || echo "Problem here!"
-          # most probably nobody wants to run the parallel port driver ...
-          #modprobe vm...
+          if [ \${vmware_kind} = "local" ]; then
+            # to be filled in via the stage1 configuration script
+            modprobe -qa vmmon vmnet vmblock 2>/dev/null || return 1
+            # most probably nobody wants to run the parallel port driver ...
+            #modprobe vm...
+          else
+            # load module manuall
+            vmware_kind_path=/opt/openslx/plugin-repo/vmware/\${vmware_kind}/
+            module_src_path=\${vmware_kind_path}/root/lib/vmware/modules/source
+            insmod \${module_src_path}/vmblock.o
+            insmod \${module_src_path}/vmmon.o
+            insmod \${module_src_path}/vmnet.o
+          fi
         }
         unload_modules() {
           # to be filled with the proper list within via the stage1 configuration
@@ -135,8 +144,9 @@ sub fillRunlevelScript
             echo "Stopping vmware background services ..."
             killall vmnet-netifup vmnet-natd vmnet-bridge vmware vmplayer \\
               vmware-tray vmnet-dhcpd 2>/dev/null
-            # wait for shutting down of interfaces
-            usleep 50000
+            # wait for shutting down of interfaces... vmnet needs kinda
+            # long
+            usleep 500000
             unload_modules
           ;;
           #status)
diff --git a/os-plugins/plugins/vmware/OpenSLX/Distro/Debian.pm b/os-plugins/plugins/vmware/OpenSLX/Distro/Debian.pm
index 5991d6ad..e1c7e2e4 100644
--- a/os-plugins/plugins/vmware/OpenSLX/Distro/Debian.pm
+++ b/os-plugins/plugins/vmware/OpenSLX/Distro/Debian.pm
@@ -52,11 +52,19 @@ sub fillRunlevelScript
         ### END INIT INFO
  
         load_modules() {
-          # to be filled in via the stage1 configuration script
-          #TODO: everything behind || is not equal to Suse.pm
-          modprobe -qa vmmon vmnet vmblock 2>/dev/null || echo "Problem here!"
-          # most probably nobody wants to run the parallel port driver ...
-          #modprobe vm...
+          if [ \${vmware_kind} = "local" ]; then
+            # to be filled in via the stage1 configuration script
+            modprobe -qa vmmon vmnet vmblock 2>/dev/null || return 1
+            # most probably nobody wants to run the parallel port driver ...
+            #modprobe vm...
+          else
+            # load module manuall
+            vmware_kind_path=/opt/openslx/plugin-repo/vmware/\${vmware_kind}/
+            module_src_path=\${vmware_kind_path}/root/lib/vmware/modules/source
+            insmod \${module_src_path}/vmblock.o
+            insmod \${module_src_path}/vmmon.o
+            insmod \${module_src_path}/vmnet.o
+          fi
         }
         unload_modules() {
           # to be filled with the proper list within via the stage1 configuration
@@ -131,8 +139,9 @@ sub fillRunlevelScript
             log_daemon_msg "Stopping vmware background services ..." "vmware"
             killall vmnet-netifup vmnet-natd vmnet-bridge vmware vmplayer \\
               vmware-tray vmnet-dhcpd 2>/dev/null
-            # wait for shutting down of interfaces
-            usleep 50000
+            # wait for shutting down of interfaces. vmnet needs kinda
+            # long
+            usleep 500000
             unload_modules
             log_end_msg $?
           ;;
diff --git a/os-plugins/plugins/vmware/OpenSLX/Distro/Gentoo.pm b/os-plugins/plugins/vmware/OpenSLX/Distro/Gentoo.pm
index c11994f1..cac593df 100644
--- a/os-plugins/plugins/vmware/OpenSLX/Distro/Gentoo.pm
+++ b/os-plugins/plugins/vmware/OpenSLX/Distro/Gentoo.pm
@@ -48,10 +48,19 @@ sub fillRunlevelScript
 
         # helper functions
         load_modules() {
-          # to be filled in via the stage1 configuration script
-          modprobe -qa vmmon vmnet vmblock 2>/dev/null || return 1
-          # most probably nobody wants to run the parallel port driver ...
-          #modprobe vm...
+          if [ \${vmware_kind} = "local" ]; then
+            # to be filled in via the stage1 configuration script
+            modprobe -qa vmmon vmnet vmblock 2>/dev/null || return 1
+            # most probably nobody wants to run the parallel port driver ...
+            #modprobe vm...
+          else
+            # load module manuall
+            vmware_kind_path=/opt/openslx/plugin-repo/vmware/\${vmware_kind}/
+            module_src_path=\${vmware_kind_path}/root/lib/vmware/modules/source
+            insmod \${module_src_path}/vmblock.o
+            insmod \${module_src_path}/vmmon.o
+            insmod \${module_src_path}/vmnet.o
+          fi
         }
         unload_modules() {
           # to be filled with the proper list within via the stage1 configuration
@@ -121,8 +130,9 @@ sub fillRunlevelScript
             ebegin "Stopping vmware background services ..."
             killall vmnet-netifup vmnet-natd vmnet-bridge vmware vmplayer \\
               vmware-tray vmnet-dhcpd 2>/dev/null
-            # wait for shutting down of interfaces
-            usleep 50000
+            # wait for shutting down of interfaces. vmnet needs kinda
+            # long
+            usleep 500000
             unload_modules
             eend $?
         }
diff --git a/os-plugins/plugins/vmware/OpenSLX/Distro/Suse.pm b/os-plugins/plugins/vmware/OpenSLX/Distro/Suse.pm
index 7e09e3c9..08a64055 100644
--- a/os-plugins/plugins/vmware/OpenSLX/Distro/Suse.pm
+++ b/os-plugins/plugins/vmware/OpenSLX/Distro/Suse.pm
@@ -53,10 +53,19 @@ sub fillRunlevelScript
 
         # helper functions
         load_modules() {
-          # to be filled in via the stage1 configuration script
-          modprobe -qa vmmon vmnet vmblock 2>/dev/null || return 1
-          # most probably nobody wants to run the parallel port driver ...
-          #modprobe vm...
+          if [ \${vmware_kind} = "local" ]; then
+            # to be filled in via the stage1 configuration script
+            modprobe -qa vmmon vmnet vmblock 2>/dev/null || return 1
+            # most probably nobody wants to run the parallel port driver ...
+            #modprobe vm...
+          else
+            # load module manuall
+            vmware_kind_path=/opt/openslx/plugin-repo/vmware/\${vmware_kind}/
+            module_src_path=\${vmware_kind_path}/root/lib/vmware/modules/source
+            insmod \${module_src_path}/vmblock.o
+            insmod \${module_src_path}/vmmon.o
+            insmod \${module_src_path}/vmnet.o
+          fi
         }
         unload_modules() {
           # to be filled with the proper list within via the stage1 configuration
@@ -133,8 +142,9 @@ sub fillRunlevelScript
             echo -n "Stopping vmware background services ..."
             killall vmnet-netifup vmnet-natd vmnet-bridge vmware vmplayer \\
               vmware-tray vmnet-dhcpd 2>/dev/null
-            # wait for shutting down of interfaces
-            usleep 50000
+            # wait for shutting down of interfaces. vmnet needs kinda
+            # long
+            usleep 500000
             unload_modules
             rc_status -v
           ;;
diff --git a/os-plugins/plugins/vmware/OpenSLX/OSPlugin/vmware.pm b/os-plugins/plugins/vmware/OpenSLX/OSPlugin/vmware.pm
index 4207a12d..2786594b 100644
--- a/os-plugins/plugins/vmware/OpenSLX/OSPlugin/vmware.pm
+++ b/os-plugins/plugins/vmware/OpenSLX/OSPlugin/vmware.pm
@@ -196,7 +196,28 @@ sub installationPhase
     if ($self->{attrs}->{'vmware::vmpl2.0'} == 1) {
         $self->_vmpl2Installation();
     }
-
+        
+    ## prepration for our faster wrapper script
+    # rename the default vmplayer script and create a link. 
+    # uninstall routine takes care about plugin remove.
+    # stage3 copys our own wrapper script
+    if (-e "/usr/bin/vmplayer") {
+        rename("/usr/bin/vmplayer", "/usr/bin/vmplayer.slx-bak");
+        linkFile("/var/X11R6/bin/vmplayer", "/usr/bin/vmplayer");
+    }
+    # the same with vmware, if ws is installed
+    if (-e "/usr/bin/vmware") {
+        rename("/usr/bin/vmware", "/usr/bin/vmware.slx-bak");
+    }
+    # this kinda sucks. what if we have local installed vmplayer but
+    # plugin installed vmware workstation? what if we have a local
+    # installed vmware workstation but run plugin installed vmplayer
+    # without workstation. Link will go to nowhere... kinda ugly that
+    # /usr/ is ro.
+    # TODO: need to find a solution (if there is one possible with ro
+    # mounted /usr ...)
+    linkFile("/var/X11R6/bin/vmware", "/usr/bin/vmware");
+            
 }
 
 sub removalPhase
@@ -207,7 +228,7 @@ sub removalPhase
     # restore old start scripts - to be discussed
     my @files = qw( vmware vmplayer );
     foreach my $file (@files) {
-        if (-e $file) {
+        if (-e "/usr/bin/$file.slx-bak") {
             unlink("/usr/bin/$file");
             rename("/usr/bin/$file.slx-bak", "/usr/bin/$file");
         }
@@ -272,7 +293,7 @@ sub _writeWrapperScript
         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 GDK_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
@@ -299,12 +320,12 @@ sub _writeWrapperScript
     }
 }
 
-sub _wirteVmwareConfig {
+sub _writeVmwareConfig {
     my $self   = shift;
     my $kind   = shift;
     my $vmpath = shift;
 
-    my $config = "libdir = \"$vmpath\"";
+    my $config = "libdir = \"$vmpath\"\n";
 
     spitFile("$self->{'pluginRepositoryPath'}/$kind/config", $config);
     chmod 0755, "$self->{'pluginRepositoryPath'}/$kind/config";
@@ -396,20 +417,6 @@ sub _localInstallation
             $self->_writeWrapperScript("$vmpath", "$kind", "player")
         }
         
-        ##
-        ## replacement with our faster wrapper script
-        
-        # rename the default vmplayer script and copy it. remove function takes
-        # care about plugin remove. We only need this part if vmplayer
-        # or ws is installed on the local system
-        rename("/usr/bin/vmplayer", "/usr/bin/vmplayer.slx-bak");
-        copyFile("$self->{'pluginRepositoryPath'}/$kind/vmplayer", "/usr/bin");
-        # the same with vmware, if ws is installed
-        if (-e "/usr/bin/vmware") {
-            rename("/usr/bin/vmware", "/usr/bin/vmware.slx-bak");
-            copyFile("$self->{'pluginRepositoryPath'}/$kind/vmware", "/usr/bin");
-         }
-            
     }
     # else { TODO: errorhandling }
 }
@@ -456,7 +463,7 @@ sub _vmpl2Installation {
 
     ##
     ## Creating needed config /etc/vmware/config
-    $self->_wirteVmwareConfig("$kind", "$vmpath");
+    $self->_writeVmwareConfig("$kind", "$vmpath");
         
 }