blob: 35b851a2e3769c570e0d49e52f2ae071d27efe47 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
# 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/
# -----------------------------------------------------------------------------
# virtualbox/OpenSLX/Distro/Ubuntu.pm
# - provides Ubuntu-specific overrides of the Distro API for the virtualbox
# plugin.
# -----------------------------------------------------------------------------
package virtualbox::OpenSLX::Distro::Ubuntu;
use strict;
use warnings;
# inherit everything from Debian (as Ubuntu is based on it anyway)
use base qw(virtualbox::OpenSLX::Distro::Debian);
use base qw(virtualbox::OpenSLX::Distro::Base);
use OpenSLX::Basics;
use OpenSLX::Utils;
################################################################################
#### interface methods
################################################################################
sub installVbox
{
my $self = shift;
my $engine = $self->{'os-plugin-engine'};
my $release = `lsb_release -rs`;
chomp($release);
# hardy (8.04LTS): only version VBox v1.5
if ( $release eq "8.10" || $release eq "9.04") {
#$engine->installPackages("virtualbox-ose");
for my $key ( keys %$self ) {
# we don't into this routine
print "DEBUG: $key\n";
}
my $size = scalar(keys %$self);
print "Size: $size\n";
} else {
print "Couldn't install VirtualBox, no package from distribution!\n";
exit;
}
return;
}
1;
|