From ee7ee5f951463ac421d3db22522d378a202fbb51 Mon Sep 17 00:00:00 2001
From: Dirk von Suchodoletz
Date: Fri, 21 Mar 2008 14:28:58 +0000
Subject: Some changes for the vmware plugin to integrate properly ...

git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@1667 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 .../plugins/vmware/OpenSLX/OSPlugin/vmware.pm      | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

(limited to 'os-plugins/plugins/vmware/OpenSLX/OSPlugin/vmware.pm')

diff --git a/os-plugins/plugins/vmware/OpenSLX/OSPlugin/vmware.pm b/os-plugins/plugins/vmware/OpenSLX/OSPlugin/vmware.pm
index ab975506..4ccb5850 100644
--- a/os-plugins/plugins/vmware/OpenSLX/OSPlugin/vmware.pm
+++ b/os-plugins/plugins/vmware/OpenSLX/OSPlugin/vmware.pm
@@ -18,6 +18,7 @@ use warnings;
 
 use base qw(OpenSLX::OSPlugin::Base);
 
+use File::Basename;
 use File::Path;
 
 use OpenSLX::Basics;
@@ -98,7 +99,7 @@ sub getAttrInfo
                 to the ethernet the host is connected to) be enabled
             End-of-Here
             content_descr => 'Allowed values: 0 or 1',
-            default => '',
+            default => '1',
         },
         # attribute 'vmnet1' defines if the host connection network mode 
         # should be switched on and NAT should be enabled
@@ -110,7 +111,7 @@ sub getAttrInfo
                 Format ServerIP/Netprefix,NAT enables NAT/Masquerading
             End-of-Here
             content_descr => 'Allowed value: IP/Prefix[,NAT]',
-            default => '',
+            default => '192.168.101.1/24,NAT',
         },
         # attribute 'vmnet8' defines if vmware specific NATed network mode
         # should be switched on
@@ -121,7 +122,7 @@ sub getAttrInfo
                 Format ServerIP/Netprefix
             End-of-Here
             content_descr => 'Allowed value: IP/Prefix',
-            default => '',
+            default => '192.168.102.1/24',
         },
         # is to be discussed how to handle this - there is no single set of
         # vmware files!!
@@ -145,17 +146,19 @@ sub getAttrInfo
 sub installationPhase
 {
     my $self                 = shift;
-    my $pluginRepositoryPath = shift;
-    my $pluginTempPath       = shift;
-    my $openslxPath          = shift;
+    
+    $self->{pluginRepositoryPath} = shift;
+    $self->{pluginTempPath}       = shift;
+    $self->{openslxPath}          = shift;
+    $self->{attrs}                = shift;
 
     # get path of files we need to install
-    my $pluginFilesPath = "$openslxPath/lib/plugins/$self->{'name'}/files";
+    my $pluginFilesPath = "$self->{'openslxPath'}/lib/plugins/$self->{'name'}/files";
 
     # copy all needed files now
-    my @files = qw( dhcpd.conf nat.conf nvram.5.0 runvmware-v2 );
+    my @files = qw( vmware-init nvram.5.0 runvmware-v2 );
     foreach my $file (@files) {
-        copyFile("$pluginFilesPath/$file", $pluginRepositoryPath);
+        copyFile("$pluginFilesPath/$file", $self->{'pluginRepositoryPath'});
     }
 }
 
@@ -164,7 +167,6 @@ sub removalPhase
     my $self                 = shift;
     my $pluginRepositoryPath = shift;
     my $pluginTempPath       = shift;
-    my $openslxPath          = shift;
     
     rmtree ( [ $pluginRepositoryPath ] );
     
-- 
cgit v1.2.3-55-g7522