diff options
| author | Sebastian Schmelzer | 2010-09-02 17:50:49 +0200 |
|---|---|---|
| committer | Sebastian Schmelzer | 2010-09-02 17:50:49 +0200 |
| commit | 416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5 (patch) | |
| tree | 4715f7d742fec50931017f38fe6ff0a89d4ceccc /os-plugins/plugins/vmchooser/OpenSLX | |
| parent | Fix for the problem reported on the list (sed filter forgotten for the (diff) | |
| download | core-416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5.tar.gz core-416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5.tar.xz core-416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5.zip | |
change dir structure
Diffstat (limited to 'os-plugins/plugins/vmchooser/OpenSLX')
5 files changed, 0 insertions, 353 deletions
diff --git a/os-plugins/plugins/vmchooser/OpenSLX/Distro/Base.pm b/os-plugins/plugins/vmchooser/OpenSLX/Distro/Base.pm deleted file mode 100644 index 43e4ea1f..00000000 --- a/os-plugins/plugins/vmchooser/OpenSLX/Distro/Base.pm +++ /dev/null @@ -1,64 +0,0 @@ -# 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/ -# ----------------------------------------------------------------------------- -# vmchooser/OpenSLX/Distro/Base.pm -# - provides base implementation of the Distro API for the vmchooser plugin. -# ----------------------------------------------------------------------------- -package vmchooser::OpenSLX::Distro::Base; - -use strict; -use warnings; - -our $VERSION = 1.01; # API-version . implementation-version - -use File::Basename; -use File::Path; -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; -} - - -sub copyDefaultSession -{ - my $self = shift; - my $pluginroot = shift; - - - # Take the default path of SuSE - # (as we have the most experience with it) - if( -f "/etc/X11/session/default.desktop") { - rename("/etc/X11/session/default.desktop", - "/etc/X11/session/default.desktop.back") - } - copyFile("$pluginroot/default.desktop","/etc/X11/session"); - - return 1; -}
\ No newline at end of file diff --git a/os-plugins/plugins/vmchooser/OpenSLX/Distro/Debian.pm b/os-plugins/plugins/vmchooser/OpenSLX/Distro/Debian.pm deleted file mode 100644 index 173f249e..00000000 --- a/os-plugins/plugins/vmchooser/OpenSLX/Distro/Debian.pm +++ /dev/null @@ -1,49 +0,0 @@ -# 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/ -# ----------------------------------------------------------------------------- -# vmchooser/OpenSLX/Distro/Debian.pm -# - provides Debian implementation of the Distro API for the vmchooser plugin. -# ----------------------------------------------------------------------------- -package vmchooser::OpenSLX::Distro::Debian; - -use strict; -use warnings; - -our $VERSION = 1.01; # API-version . implementation-version - -use base qw(vmchooser::OpenSLX::Distro::Base); - -use File::Basename; -use File::Path; -use Scalar::Util qw( weaken ); - -use OpenSLX::Basics; -use OpenSLX::Utils; - -################################################################################ -### interface methods -################################################################################ - -sub copyDefaultSession -{ - my $self = shift; - my $pluginroot = shift; - - - # Take the default path of SuSE - # (as we have the most experience with it) - if( -f "/usr/share/xsessions/default.desktop") { - rename("/usr/share/xsessions/default.desktop", - "/usr/share/xsessions/default.desktop.back") - } - copyFile("$pluginroot/default.desktop","/usr/share/xsessions"); - - return 1; -}
\ No newline at end of file diff --git a/os-plugins/plugins/vmchooser/OpenSLX/Distro/Suse.pm b/os-plugins/plugins/vmchooser/OpenSLX/Distro/Suse.pm deleted file mode 100644 index c93a066b..00000000 --- a/os-plugins/plugins/vmchooser/OpenSLX/Distro/Suse.pm +++ /dev/null @@ -1,47 +0,0 @@ -# Copyright (c) 2008..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/ -# ----------------------------------------------------------------------------- -# vmchooser/OpenSLX/Distro/Suse.pm -# - provides Suse implementation of the Distro API for the vmchooser plugin. -# ----------------------------------------------------------------------------- -package vmchooser::OpenSLX::Distro::Suse; - -use strict; -use warnings; - -our $VERSION = 1.01; # API-version . implementation-version - -use base qw(vmchooser::OpenSLX::Distro::Base); - -use File::Basename; -use File::Path; -use Scalar::Util qw( weaken ); - -use OpenSLX::Basics; -use OpenSLX::Utils; - -################################################################################ -### interface methods -################################################################################ - -sub copyDefaultSession -{ - my $self = shift; - my $pluginroot = shift; - - # Take the default path of SuSE - # (as we have the most experience with it) - if( -f "/etc/X11/session/default.desktop") { - rename("/etc/X11/session/default.desktop", - "/etc/X11/session/default.desktop.back") - } - copyFile("$pluginroot/default.desktop","/etc/X11/session"); - return 1; -}
\ No newline at end of file diff --git a/os-plugins/plugins/vmchooser/OpenSLX/Distro/Ubuntu.pm b/os-plugins/plugins/vmchooser/OpenSLX/Distro/Ubuntu.pm deleted file mode 100644 index 1677321f..00000000 --- a/os-plugins/plugins/vmchooser/OpenSLX/Distro/Ubuntu.pm +++ /dev/null @@ -1,50 +0,0 @@ -# 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/ -# ----------------------------------------------------------------------------- -# vmchooser/OpenSLX/Distro/Ubuntu.pm -# - provides Ubuntu implementation of the Distro API for the vmchooser plugin. -# ----------------------------------------------------------------------------- -package vmchooser::OpenSLX::Distro::Ubuntu; - -use strict; -use warnings; - -our $VERSION = 1.01; # API-version . implementation-version - -use base qw(vmchooser::OpenSLX::Distro::Base); - -use File::Basename; -use File::Path; -use Scalar::Util qw( weaken ); - -use OpenSLX::Basics; -use OpenSLX::Utils; - -################################################################################ -### interface methods -################################################################################ - - -sub copyDefaultSession -{ - my $self = shift; - my $pluginroot = shift; - - - # Take the default path of SuSE - # (as we have the most experience with it) - if( -f "/usr/share/xsessions/default.desktop") { - rename("/usr/share/xsessions/default.desktop", - "/usr/share/xsessions/default.desktop.back") - } - copyFile("$pluginroot/default.desktop","/usr/share/xsessions"); - - return 1; -}
\ No newline at end of file diff --git a/os-plugins/plugins/vmchooser/OpenSLX/OSPlugin/vmchooser.pm b/os-plugins/plugins/vmchooser/OpenSLX/OSPlugin/vmchooser.pm deleted file mode 100644 index 71ce3637..00000000 --- a/os-plugins/plugins/vmchooser/OpenSLX/OSPlugin/vmchooser.pm +++ /dev/null @@ -1,143 +0,0 @@ -# Copyright (c) 2008, 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/ -# ----------------------------------------------------------------------------- -# vmchooser.pm -# - allows user to pick from a list of virtual machine images -# -# - serves as base for virtualizer plugins / and requires one of these -# ----------------------------------------------------------------------------- -package OpenSLX::OSPlugin::vmchooser; - -use strict; -use warnings; - -use base qw(OpenSLX::OSPlugin::Base); - -use OpenSLX::Basics; -use OpenSLX::Utils; - -sub new -{ - my $class = shift; - - my $self = { - name => 'vmchooser', - }; - - return bless $self, $class; -} - -sub getInfo -{ - my $self = shift; - - return { - description => unshiftHereDoc(<<' End-of-Here'), - allows user to pick from a list of different virtual machine images - based on xml-files, which tell about available images. One of the - virtualization tools like vmware*, virtualbox or qemu/kvm is - required. - End-of-Here - precedence => 50, - required => [ qw( desktop ) ], - }; -} - -sub getAttrInfo -{ - my $self = shift; - - return { - 'vmchooser::active' => { - applies_to_systems => 1, - applies_to_clients => 1, - description => unshiftHereDoc(<<' End-of-Here'), - should the 'vmchooser'-plugin be executed during boot? - End-of-Here - content_regex => qr{^(0|1)$}, - content_descr => '1 means active - 0 means inactive', - default => '1', - }, - 'vmchooser::env' => { - applies_to_systems => 1, - applies_to_clients => 1, - description => unshiftHereDoc(<<' End-of-Here'), - environment, seperates pools based on XML configuration - End-of-Here - #TODO: - #content_regex => qr{^(0|1)$}, - content_descr => 'name of environment', - default => 'default', - }, - 'vmchooser::xmlpath' => { - applies_to_systems => 1, - applies_to_clients => 1, - description => unshiftHereDoc(<<' End-of-Here'), - location of XML configuration for virtual images - End-of-Here - #TODO: - #content_regex => qr{^(0|1)$}, - content_descr => 'path to xml files', - default => '/var/lib/virt', - }, - - }; -} - -sub installationPhase -{ - my $self = shift; - my $info = shift; - - my $pluginRepoPath = $info->{'plugin-repo-path'}; - my $openslxBasePath = $info->{'openslx-base-path'}; - - # copy all needed files now: - my $pluginName = $self->{'name'}; - my $pluginBasePath = "$openslxBasePath/lib/plugins/$pluginName/files"; - foreach my $file ( qw( vmchooser printer.sh scanner.sh xmlfilter.sh - default.desktop mesgdisp run-virt.sh ) ) { - copyFile("$pluginBasePath/$file", "$pluginRepoPath/"); - chmod 0755, "$pluginRepoPath/$file"; - } - - # set ditro-specific default session - $self->{distro}->copyDefaultSession($pluginRepoPath); - - return; -} - -sub removalPhase -{ - my $self = shift; - my $info = shift; - - return; -} - -sub copyRequiredFilesIntoInitramfs -{ - my $self = shift; - my $targetPath = shift; - my $attrs = shift; - my $makeInitRamFSEngine = shift; - my $pluginRepoPath = "$openslxConfig{'base-path'}/lib/plugins/vmchooser"; - - $makeInitRamFSEngine->addCMD( - "cp -a $pluginRepoPath/files/mkdosfs $targetPath/bin" - ); - - vlog(1, _tr("vmchooser-plugin: ...")); - - return; -} - -1; - |
