diff options
Diffstat (limited to 'os-plugins/plugins/virtualbox/OpenSLX/OSPlugin/virtualbox.pm')
-rw-r--r-- | os-plugins/plugins/virtualbox/OpenSLX/OSPlugin/virtualbox.pm | 24 |
1 files changed, 19 insertions, 5 deletions
diff --git a/os-plugins/plugins/virtualbox/OpenSLX/OSPlugin/virtualbox.pm b/os-plugins/plugins/virtualbox/OpenSLX/OSPlugin/virtualbox.pm index dee9ade8..0ce63150 100644 --- a/os-plugins/plugins/virtualbox/OpenSLX/OSPlugin/virtualbox.pm +++ b/os-plugins/plugins/virtualbox/OpenSLX/OSPlugin/virtualbox.pm @@ -9,7 +9,7 @@ # General information about OpenSLX can be found at http://openslx.org/ # ----------------------------------------------------------------------------- # virtualbox.pm -# - declares necessary information for the virtualbox plugin +# - Declares necessary information for the virtualbox plugin # ----------------------------------------------------------------------------- package OpenSLX::OSPlugin::virtualbox; @@ -50,7 +50,7 @@ sub getInfo sub getAttrInfo { - # returns a hash-ref with information about all attributes supported + # Returns a hash-ref with information about all attributes supported # by this specific plugin my $self = shift; @@ -111,13 +111,13 @@ sub installationPhase my $engine = $self->{'os-plugin-engine'}; - # different names of the tool (should be unified somehow!?) + # Different names of the tool (should be unified somehow!?) if (!isInPath('VirtualBox')) { $engine->installPackages( $engine->getInstallablePackagesForSelection('virtualbox-ose') ); } - # copy run-virt.include to the appropriate place for inclusion in stage4 + # Copy run-virt.include to the appropriate place for inclusion in stage4 copyFile("$self->{openslxBasePath}/lib/plugins/virtualbox/files/run-virt.include", "$self->{pluginRepositoryPath}/"); @@ -144,7 +144,7 @@ sub checkStage3AttrValues return; } -# write the runlevelscript +# Write the runlevelscript sub _writeRunlevelScript { my $self = shift; @@ -157,4 +157,18 @@ sub _writeRunlevelScript spitFile($file, $runlevelScript); } +# The bridge configuration needs the bridge module to be present in early +# stage3 +sub suggestAdditionalKernelModules +{ + my $self = shift; + my $makeInitRamFSEngine = shift; + + my @suggestedModules; + + push @suggestedModules, qw( bridge ); + + return @suggestedModules; +} + 1; |