# Copyright (c) 2009..2010 - RZ Uni Freiburg
# Copyright (c) 2009..2010 - OpenSLX GmbH
#
# This program is free software distributed under the GPL version 2.
# See http://openslx.org/COPYING
#
# If you have any feedback please consult http://openslx.org/feedback and
# send your suggestions, praise, or complaints to feedback@openslx.org
#
# General information about OpenSLX can be found at http://openslx.org/
# -----------------------------------------------------------------------------
# qemukvm.pm
# - Declares necessary information for the qemukvm plugin
# -----------------------------------------------------------------------------
package OpenSLX::OSPlugin::qemukvm;
use strict;
use warnings;
use base qw(OpenSLX::OSPlugin::Base);
use File::Basename;
use File::Path;
use OpenSLX::Basics;
use OpenSLX::Utils;
use OpenSLX::DistroUtils;
sub new
{
my $class = shift;
my $self = {
name => 'qemukvm',
};
return bless $self, $class;
}
sub getInfo
{
my $self = shift;
return {
description => unshiftHereDoc(<<' End-of-Here'),
Module for enabling services for the Linux kvm using qemu for
IO on an OpenSLX stateless client.
End-of-Here
precedence => 70,
required => [ qw( desktop ) ],
};
}
sub getAttrInfo
{
# Returns a hash-ref with information about all attributes supported
# by this specific plugin
my $self = shift;
# This default configuration will be added as attributes to the default
# system, such that it can be overruled for any specific system by means
# of slxconfig.
return {
# attribute 'active' is mandatory for all plugins
'qemukvm::active' => {
applies_to_systems => 1,
applies_to_clients => 1,
description => unshiftHereDoc(<<' End-of-Here'),
should the 'qemukvm'-plugin be executed during boot?
End-of-Here
content_regex => qr{^(0|1)$},
content_descr => '1 means active - 0 means inactive',
default => '1',
},
# attribute 'imagesrc' defines where we can find qemukvm images
'qemukvm::imagesrc' => {
applies_to_systems => 1,
applies_to_clients => 1,
description => unshiftHereDoc(<<' End-of-Here'),
Where do we store our qemukvm images? NFS? Filesystem?
End-of-Here
#TODO: check if the input is valid
#content_regex => qr{^(0|1)$},
content_descr => 'Allowed values: local path or URI',
default => '',
},
# attribute 'bridge' defines if bridged network mode should be
# switched on
'qemukvm::bridge' => {
applies_to_systems => 1,
applies_to_clients => 1,
description => unshiftHereDoc(<<' End-of-Here'),
Should the bridging (direct access of the qemukvm clients
to the ethernet the host is connected to) be enabled
End-of-Here
content_regex => qr{^(0|1)$},
content_descr => 'Allowed values: 0 or 1',
default => '1',
},
};
}
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'};
$self->{openslxConfigPath} = $info->{'openslx-config-path'};
$self->{attrs} = $info->{'plugin-attrs'};
my $engine = $self->{'os-plugin-engine'};
my $pluginRepoPath = $info->{'plugin-repo-path'};
my $openslxBasePath = $info->{'openslx-base-path'};
# Different names of the tool (should be unified somehow!?)
if (!isInPath('qemu-kvm') || !isInPath('kvm')) {
$engine->installPackages(
$engine->getInstallablePackagesForSelection('qemu-kvm')
);
}
# Sudo is needed to get access to certain system network commands
if (!isInPath('sudo')) {
$engine->installPackages($self->{distro}->getPackageName('sudo'));
}
# Copy run-virt.include and template files to the appropriate place for
# inclusion in stage4
my $pluginName = $self->{'name'};
my $pluginBasePath = "$openslxBasePath/lib/plugins/$pluginName/files";
foreach my $file ( qw( run-virt.include ifup ifdown ) ) {
copyFile("$pluginBasePath/$file", "$pluginRepoPath/");
}
chmod 0755, "$pluginRepoPath/ifup", "$pluginRepoPath/ifdown";
my $initFile = newInitFile();
$initFile->setName("qemukvm");
$initFile->setDesc("Setup environment for QEMU/KVM");
# TODO: default dirs als globale funktion anbieten
$initFile->
addToBlock('head','. /etc/opt/openslx/plugins/qemukvm/network.conf');
# TODO: remove all runlevel links for qemu-kvm or kvm
my $kvm_module = unshiftHereDoc(<<' End-of-Here');
# Figure out which module we need.
if grep -q ^flags.*\\\<vmx\\\> /proc/cpuinfo; then
module=kvm_intel
elif grep -q ^flags.*\\\<svm\\\> /proc/cpuinfo; then
module=kvm_amd
else
module=kqemu
fi
End-of-Here
my $do_start = unshiftHereDoc(<<' End-of-Here');
# loading kvm module
kvm_module
[ -n "${module}" ] && modprobe -q ${module}
# load the tunnel device module
modprobe -q tun
# TODO: maybe in the ifup-script better solution?
# configuring the tap0 interface to the existing bridge configured in stage3
#for i in 0 1 2; do
# /opt/openslx/uclib-rootfs/sbin/tunctl -t tap${i} >/dev/null 2>&1
# ip link set dev tap${i} up
#done
#/opt/openslx/uclib-rootfs/usr/sbin/brctl addif br0 tap0
#ip addr add ${nataddress} dev tap1
#ip addr add ${hoaddress} dev tap2
#echo "1" >/proc/sys/net/ipv4/conf/br0/forwarding
#echo "1" >/proc/sys/net/ipv4/conf/tap0/forwarding
# make /dev/fb0 writable for all
# TODO: maybe solve via group or udev, etc...
chmod 766 /dev/fb*
End-of-Here
my $do_stop = unshiftHereDoc(<<' End-of-Here');
kvm_module
[ -n "${module}" ] && modprobe -q -r ${module}
modprobe -q -r tun
# TODO: tun removed, so this is not necessary
#/opt/openslx/uclib-rootfs/usr/sbin/brctl delif br0 tap0
#ip addr del ${nataddress} dev tap1
#ip addr del ${hoaddress} dev tap2
#echo "0" >/proc/sys/net/ipv4/conf/br0/forwarding
#echo "0" >/proc/sys/net/ipv4/conf/tap0/forwarding
chmod 760 /dev/fb*
End-of-Here
my $do_restart = unshiftHereDoc(<<' End-of-Here');
do_stop && do_start
End-of-Here
# add helper functions to initfile
# first parameter name of the function
# second parameter content of the function
$initFile->addFunction('kvm_module', $kvm_module);
$initFile->addFunction('do_start', $do_start);
$initFile->addFunction('do_stop', $do_stop);
$initFile->addFunction('do_restart', $do_restart);
# place a call of the helper function in the stop block of the init file
# first parameter name of the function
# second parameter name of the block
$initFile->addFunctionCall('do_start', 'start');
$initFile->addFunctionCall('do_stop', 'stop');
$initFile->addFunctionCall('do_restart', 'restart');
my $distro = (split('-',$self->{'os-plugin-engine'}->distroName()))[0];
# write qemukvm initfile to plugin path
spitFile(
"$pluginRepoPath/qemukvm",
getInitFileForDistro($initFile, ucfirst($distro))
);
return;
}
sub removalPhase
{
my $self = shift;
my $info = shift;
return;
}
sub checkStage3AttrValues
{
my $self = shift;
my $stage3Attrs = shift;
my $vendorOSAttrs = shift;
#my @problems;
#my $vmimg = $stage3Attrs->{'qemukvm::imagesrc'} || '';
return;
}
# 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;