diff options
Diffstat (limited to 'os-plugins/plugins/qemukvm/OpenSLX/OSPlugin/qemukvm.pm')
-rw-r--r-- | os-plugins/plugins/qemukvm/OpenSLX/OSPlugin/qemukvm.pm | 24 |
1 files changed, 19 insertions, 5 deletions
diff --git a/os-plugins/plugins/qemukvm/OpenSLX/OSPlugin/qemukvm.pm b/os-plugins/plugins/qemukvm/OpenSLX/OSPlugin/qemukvm.pm index 1cd5afaa..2af56f72 100644 --- a/os-plugins/plugins/qemukvm/OpenSLX/OSPlugin/qemukvm.pm +++ b/os-plugins/plugins/qemukvm/OpenSLX/OSPlugin/qemukvm.pm @@ -9,7 +9,7 @@ # General information about OpenSLX can be found at http://openslx.org/ # ----------------------------------------------------------------------------- # qemukvm.pm -# - declares necessary information for the qemukvm plugin +# - Declares necessary information for the qemukvm plugin # ----------------------------------------------------------------------------- package OpenSLX::OSPlugin::qemukvm; @@ -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('qemu-kvm') || !isInPath('kvm')) { $engine->installPackages( $engine->getInstallablePackagesForSelection('qemu-kvm') ); } - # 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/qemukvm/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; |