diff options
author | Volker Uhrig | 2008-10-21 17:07:14 +0200 |
---|---|---|
committer | Volker Uhrig | 2008-10-21 17:07:14 +0200 |
commit | 9121a557ab96ffd067f8a846e17487ec65611a1c (patch) | |
tree | 15064bf4db647e589681b8ec99ae683fd48ca340 /os-plugins/plugins/virtualbox/OpenSLX/OSPlugin/virtualbox.pm | |
parent | * code cosmetics (diff) | |
download | core-9121a557ab96ffd067f8a846e17487ec65611a1c.tar.gz core-9121a557ab96ffd067f8a846e17487ec65611a1c.tar.xz core-9121a557ab96ffd067f8a846e17487ec65611a1c.zip |
* added core structure of vbox plugin
currently just used for public documentation and preperation
git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@2367 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'os-plugins/plugins/virtualbox/OpenSLX/OSPlugin/virtualbox.pm')
-rw-r--r-- | os-plugins/plugins/virtualbox/OpenSLX/OSPlugin/virtualbox.pm | 95 |
1 files changed, 95 insertions, 0 deletions
diff --git a/os-plugins/plugins/virtualbox/OpenSLX/OSPlugin/virtualbox.pm b/os-plugins/plugins/virtualbox/OpenSLX/OSPlugin/virtualbox.pm new file mode 100644 index 00000000..8610111a --- /dev/null +++ b/os-plugins/plugins/virtualbox/OpenSLX/OSPlugin/virtualbox.pm @@ -0,0 +1,95 @@ +# 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.pm +# - allows user to pick from a list of virtual machin images +# ----------------------------------------------------------------------------- +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 => 'virtualbox', + }; + + return bless $self, $class; +} + +sub getInfo +{ + my $self = shift; + + return { + description => unshiftHereDoc(<<' End-of-Here'), + Use VirtualBox as virtualization environment + End-of-Here + precedence => 50, + required => [ qw( vmware ) ], + }; +} + +sub getAttrInfo +{ + my $self = shift; + + return { + 'virtualbox::active' => { + applies_to_systems => 1, + applies_to_clients => 1, + description => unshiftHereDoc(<<' End-of-Here'), + should the 'virtualbox'-plugin be executed during boot? + End-of-Here + content_regex => qr{^(0|1)$}, + content_descr => '1 means active - 0 means inactive', + default => '1', + }, + }; +} + + +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( file1 file2 ) ) { + # copyFile("$pluginBasePath/$file", "$pluginRepoPath/"); + #chmod 0755, "$pluginRepoPath/$file"; + } + + return; +} + +sub removalPhase +{ + my $self = shift; + my $info = shift; + + return; +} + +1; + |