From 46fbdd6d0a6dd5896a2b798deb95aa61a089a355 Mon Sep 17 00:00:00 2001
From: Michael Janczyk
Date: Thu, 1 Apr 2010 21:35:54 +0200
Subject: xen nfs boot, xen boot

---
 os-plugins/plugins/virtualbox/OpenSLX/OSPlugin/virtualbox.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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

diff --git a/os-plugins/plugins/virtualbox/OpenSLX/OSPlugin/virtualbox.pm b/os-plugins/plugins/virtualbox/OpenSLX/OSPlugin/virtualbox.pm
index 5d8206cd..f8fad1ba 100644
--- a/os-plugins/plugins/virtualbox/OpenSLX/OSPlugin/virtualbox.pm
+++ b/os-plugins/plugins/virtualbox/OpenSLX/OSPlugin/virtualbox.pm
@@ -84,6 +84,8 @@ sub getAttrInfo
         },
         # attribute 'bridge' defines if bridged network mode should be
         # switched on
+        # TODO: change to net -> nat, bridge, hostonly?
+        # TODO: since we use def in XML maybe use to override
         'virtualbox::bridge' => {
             applies_to_systems => 1,
             applies_to_clients => 1,
@@ -139,7 +141,7 @@ sub installationPhase
 {
     my $self = shift;
     my $info = shift;
-    
+
     $self->{pluginRepositoryPath} = $info->{'plugin-repo-path'};
     $self->{pluginTempPath}       = $info->{'plugin-temp-path'};
     $self->{openslxBasePath}      = $info->{'openslx-base-path'};
@@ -147,7 +149,7 @@ sub installationPhase
     $self->{attrs}                = $info->{'plugin-attrs'};
 
     my $engine = $self->{'os-plugin-engine'};
-    
+
     # Different names of the tool (should be unified somehow!?)
     if (!isInPath('VirtualBox')) {
         # todo: fix this
@@ -170,7 +172,7 @@ sub installationPhase
     foreach my $file ( qw( run-virt.include virtualbox.include machine.include
         empty-diff.vdi.gz rwimg.vdi.gz ) ) {
         copyFile("$pluginBasePath/$file", "$self->{pluginRepositoryPath}/");
-        chmod 0755, "$self->{pluginRepositoryPath}/$file";
+        chmod 0644, "$self->{pluginRepositoryPath}/$file";
     }
 
     return;
-- 
cgit v1.2.3-55-g7522