diff options
Diffstat (limited to 'src/os-plugins/plugins/pvs/OpenSLX')
-rw-r--r-- | src/os-plugins/plugins/pvs/OpenSLX/Distro/Base.pm | 46 | ||||
-rw-r--r-- | src/os-plugins/plugins/pvs/OpenSLX/Distro/Debian.pm | 29 | ||||
-rw-r--r-- | src/os-plugins/plugins/pvs/OpenSLX/Distro/Fedora.pm | 28 | ||||
-rw-r--r-- | src/os-plugins/plugins/pvs/OpenSLX/Distro/Gentoo.pm | 28 | ||||
-rw-r--r-- | src/os-plugins/plugins/pvs/OpenSLX/Distro/Suse.pm | 28 | ||||
-rw-r--r-- | src/os-plugins/plugins/pvs/OpenSLX/Distro/Ubuntu.pm | 23 | ||||
-rw-r--r-- | src/os-plugins/plugins/pvs/OpenSLX/OSPlugin/pvs.pm | 127 |
7 files changed, 309 insertions, 0 deletions
diff --git a/src/os-plugins/plugins/pvs/OpenSLX/Distro/Base.pm b/src/os-plugins/plugins/pvs/OpenSLX/Distro/Base.pm new file mode 100644 index 00000000..3425f2ab --- /dev/null +++ b/src/os-plugins/plugins/pvs/OpenSLX/Distro/Base.pm @@ -0,0 +1,46 @@ +# Copyright (c) 2009 - 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/ +# ----------------------------------------------------------------------------- +# pvs/OpenSLX/Distro/Base.pm +# - provides base implementation of the Distro API for the pvs plugin. +# ----------------------------------------------------------------------------- +package pvs::OpenSLX::Distro::Base; + +use strict; +use warnings; + +our $VERSION = 1.01; # API-version . implementation-version + +use Scalar::Util qw( weaken ); + +use OpenSLX::Basics; +use OpenSLX::Utils; + +################################################################################ +### interface methods +################################################################################ +sub new +{ + my $class = shift; + my $self = {}; + return bless $self, $class; +} + +sub initialize +{ + my $self = shift; + $self->{engine} = shift; + weaken($self->{engine}); + # avoid circular reference between plugin and its engine + + return 1; +} + +1; diff --git a/src/os-plugins/plugins/pvs/OpenSLX/Distro/Debian.pm b/src/os-plugins/plugins/pvs/OpenSLX/Distro/Debian.pm new file mode 100644 index 00000000..0382d3b9 --- /dev/null +++ b/src/os-plugins/plugins/pvs/OpenSLX/Distro/Debian.pm @@ -0,0 +1,29 @@ +# Copyright (c) 2009 - 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/ +# ----------------------------------------------------------------------------- +# pvs/OpenSLX/Distro/debian.pm +# - provides Debian-specific overrides of the Distro API for the pvs +# plugin. +# ----------------------------------------------------------------------------- +package pvs::OpenSLX::Distro::Debian; + +use strict; +use warnings; + +use base qw(pvs::OpenSLX::Distro::Base); + +use OpenSLX::Basics; +use OpenSLX::Utils; + +################################################################################ +### interface methods +################################################################################ + +1; diff --git a/src/os-plugins/plugins/pvs/OpenSLX/Distro/Fedora.pm b/src/os-plugins/plugins/pvs/OpenSLX/Distro/Fedora.pm new file mode 100644 index 00000000..76b8ffa1 --- /dev/null +++ b/src/os-plugins/plugins/pvs/OpenSLX/Distro/Fedora.pm @@ -0,0 +1,28 @@ +# Copyright (c) 2009 - 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/ +# ----------------------------------------------------------------------------- +# pvs/OpenSLX/Distro/Fedora.pm +# - provides Fedora-specific overrides of the Distro API for the pvs +# plugin. +# ----------------------------------------------------------------------------- +package pvs::OpenSLX::Distro::Fedora; + +use strict; +use warnings; + +use base qw(pvs::OpenSLX::Distro::Base); + +use OpenSLX::Basics; + +################################################################################ +### interface methods +################################################################################ + +1; diff --git a/src/os-plugins/plugins/pvs/OpenSLX/Distro/Gentoo.pm b/src/os-plugins/plugins/pvs/OpenSLX/Distro/Gentoo.pm new file mode 100644 index 00000000..b943a63b --- /dev/null +++ b/src/os-plugins/plugins/pvs/OpenSLX/Distro/Gentoo.pm @@ -0,0 +1,28 @@ +# Copyright (c) 2009 - 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/ +# ----------------------------------------------------------------------------- +# pvs/OpenSLX/Distro/Gentoo.pm +# - provides Gentoo-specific overrides of the Distro API for the pvs +# plugin. +# ----------------------------------------------------------------------------- +package pvs::OpenSLX::Distro::Gentoo; + +use strict; +use warnings; + +use base qw(pvs::OpenSLX::Distro::Base); + +use OpenSLX::Basics; + +################################################################################ +### interface methods +################################################################################ + +1; diff --git a/src/os-plugins/plugins/pvs/OpenSLX/Distro/Suse.pm b/src/os-plugins/plugins/pvs/OpenSLX/Distro/Suse.pm new file mode 100644 index 00000000..411fa1c9 --- /dev/null +++ b/src/os-plugins/plugins/pvs/OpenSLX/Distro/Suse.pm @@ -0,0 +1,28 @@ +# Copyright (c) 2008 - 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/ +# ----------------------------------------------------------------------------- +# pvs/OpenSLX/Distro/Suse.pm +# - provides SUSE-specific overrides of the Distro API for the pvs plugin. +# ----------------------------------------------------------------------------- +package pvs::OpenSLX::Distro::Suse; + +use strict; +use warnings; + +use base qw(pvs::OpenSLX::Distro::Base); + +use OpenSLX::Basics; +use OpenSLX::Utils; + +################################################################################ +### interface methods +################################################################################ + +1; diff --git a/src/os-plugins/plugins/pvs/OpenSLX/Distro/Ubuntu.pm b/src/os-plugins/plugins/pvs/OpenSLX/Distro/Ubuntu.pm new file mode 100644 index 00000000..c7496ac0 --- /dev/null +++ b/src/os-plugins/plugins/pvs/OpenSLX/Distro/Ubuntu.pm @@ -0,0 +1,23 @@ +# Copyright (c) 2009 - 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/ +# ----------------------------------------------------------------------------- +# pvs/OpenSLX/Distro/Ubuntu.pm +# - provides Ubuntu-specific overrides of the Distro API for the pvs +# plugin. +# ----------------------------------------------------------------------------- +package pvs::OpenSLX::Distro::Ubuntu; + +use strict; +use warnings; + +# inherit everything from Debian (as Ubuntu is based on it anyway) +use base qw(pvs::OpenSLX::Distro::Debian); + +1; diff --git a/src/os-plugins/plugins/pvs/OpenSLX/OSPlugin/pvs.pm b/src/os-plugins/plugins/pvs/OpenSLX/OSPlugin/pvs.pm new file mode 100644 index 00000000..d0a629e4 --- /dev/null +++ b/src/os-plugins/plugins/pvs/OpenSLX/OSPlugin/pvs.pm @@ -0,0 +1,127 @@ +# 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/ +# ----------------------------------------------------------------------------- +# pvs.pm - plugin to use the pool video switch tools within OpenSLX environment +# ----------------------------------------------------------------------------- +package OpenSLX::OSPlugin::pvs; + +use strict; +use warnings; + +use base qw(OpenSLX::OSPlugin::Base); + +use OpenSLX::Basics; +use OpenSLX::Utils; + +sub new +{ + my $class = shift; + my $self = { + name => 'pvs', + }; + + return bless $self, $class; +} + +sub getInfo +{ + my $self = shift; + return { + description => unshiftHereDoc(<<' End-of-Here'), + enables pvs server (user or xorg) + End-of-Here + # waits for xorg to add configuration if needed + precedence => 70, + }; +} + +sub getAttrInfo +{ + my $self = shift; + + return { + 'pvs::active' => { + applies_to_systems => 1, + applies_to_clients => 1, + description => unshiftHereDoc(<<' End-of-Here'), + should the 'pvs' plugin be executed during boot? + End-of-Here + content_regex => qr{^(0|1)$}, + content_descr => '1 means active - 0 means inactive', + default => '1', + }, + + 'pvs::mode' => { + applies_to_systems => 1, + applies_to_clients => 0, + description => unshiftHereDoc(<<' End-of-Here'), + set pvs to listen on Xorg user sessions (default), general + access to the Xorg server (including displaymanager login) and + console framebuffer. + End-of-Here + content_regex => qr{^(x11user|x11mod|fb)$}, + content_descr => 'x11user for user, x11mod for access via Xorg module or fb', + default => 'x11user', + }, + + 'pvs::scale' => { + applies_to_systems => 1, + applies_to_clients => 0, + description => unshiftHereDoc(<<' End-of-Here'), + scale screen size (e.g. as fraction 2/3 or as decimal 0.5) + End-of-Here + content_regex => undef, + content_descr => undef, + default => '', + }, + + }; +} + +sub installationPhase +{ + my $self = shift; + my $info = shift; + + my $pluginRepositoryPath = $info->{'plugin-repo-path'}; + my $pluginTempPath = $info->{'plugin-temp-path'}; + my $openslxBasePath = $info->{'openslx-base-path'}; + + # should we distinguish between the two different packages!? + # libvnc should be part of the xorg package!? (so no check needed) + #my $engine = $self->{'os-plugin-engine'}; + #if (!isInPath('pvs')) { + # $engine->installPackages( + # $engine->getInstallablePackagesForSelection('pvs') + # ); + #} else { + # vlog(3, "pvs is already installed"); + #} + + # get path of files we need to install + my $pluginFilesPath = "$openslxBasePath/lib/plugins/$self->{'name'}/files"; + my $script = $self->{distro}->fillRunlevelScript(); + + # copy all needed files now + copyFile("$pluginFilesPath/*", "$pluginRepositoryPath"); + + # link these files + + #chmod 0755, "/etc/init.d/pvs"; + +} + +sub removalPhase +{ + my $self = shift; + my $info = shift; +} + +1; |