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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
|
# 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/
# -----------------------------------------------------------------------------
# vmware.pm
# - declares necessary information for the vmware plugin
# -----------------------------------------------------------------------------
package OpenSLX::OSPlugin::vmware;
use strict;
use warnings;
use base qw(OpenSLX::OSPlugin::Base);
use File::Basename;
use File::Path;
use OpenSLX::Basics;
use OpenSLX::Utils;
sub new
{
my $class = shift;
my $self = {
name => 'vmware',
};
return bless $self, $class;
}
sub getInfo
{
my $self = shift;
return {
description => unshiftHereDoc(<<' End-of-Here'),
!!! descriptive text missing here !!!
End-of-Here
precedence => 70,
};
}
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
'vmware::active' => {
applies_to_systems => 1,
applies_to_clients => 0,
description => unshiftHereDoc(<<' End-of-Here'),
should the 'vmware'-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 vmware images
'vmware::imagessrc' => {
applies_to_systems => 1,
applies_to_clients => 1,
description => unshiftHereDoc(<<' End-of-Here'),
Where do we store our vmware images? NFS? Filesystem?
End-of-Here
#TODO: check if the input is valid
#content_regex => qr{^(0|1)$},
content_descr => 'Allowed values: path or URI',
default => '',
},
# attribute 'bridge' defines if bridged network mode should be
# switched on
'vmware::bridge' => {
applies_to_systems => 1,
applies_to_clients => 1,
description => unshiftHereDoc(<<' End-of-Here'),
Should the bridging (direct access of the vmware 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',
},
# attribute 'vmnet1' defines if the host connection network mode
# should be switched on and NAT should be enabled
'vmware::vmnet1' => {
applies_to_systems => 1,
applies_to_clients => 1,
description => unshiftHereDoc(<<' End-of-Here'),
Format ServerIP/Netprefix without NAT
Format ServerIP/Netprefix,NAT enables NAT/Masquerading
End-of-Here
#TODO: check if the input is valid
#content_regex => qr{^(0|1)$},
content_descr => 'Allowed value: IP/Prefix[,NAT]',
default => '192.168.101.1/24,NAT',
},
# attribute 'vmnet8' defines if vmware specific NATed network mode
# should be switched on
'vmware::vmnet8' => {
applies_to_systems => 1,
applies_to_clients => 1,
description => unshiftHereDoc(<<' End-of-Here'),
Format ServerIP/Netprefix
End-of-Here
#TODO: check if the input is valid
#content_regex => qr{^(0|1)$},
content_descr => 'Allowed value: IP/Prefix',
default => '192.168.102.1/24',
},
# is to be discussed how to handle this - there is no single set of
# vmware files!! -> to be moved to vmwarebinaries plugin!?
# attribute 'binaries' defines whether or not VMware binaries shall
# be provided (by downloading them).
#'vmware::binaries' => {
# applies_to_vendor_os => 1,
# applies_to_systems => 0,
# applies_to_clients => 0,
# description => unshiftHereDoc(<<' End-of-Here'),
# Shall VMware binaries be downloaded and installed?
# End-of-Here
# content_regex => qr{^(0|1)$},
# content_descr => 'Allowed values: 0 or 1',
# default => '0',
#},
# attribute 'kind' defines which set of VMware binaries should be
# activated ('local' provided with the main installation set).
'vmware::kind' => {
applies_to_vendor_os => 0,
applies_to_systems => 1,
applies_to_clients => 1,
description => unshiftHereDoc(<<' End-of-Here'),
Which set of VMware binaries to use: installed (local) or provided by an
other plugin (e.g. Workstation 5.5: vmws5.5, Player 2.0: vmpl2.0, ...)
End-of-Here
# only allow the supported once...
# TODO: modify if we know which of them work
content_regex => qr{^(local|vmws(5\.5|6.0)|vmpl(1\.0|2\.0))$},
content_descr => 'Allowed values: local, vmws5.5, vmws6.0, vmpl1.0 ...',
default => 'local',
},
};
}
sub installationPhase
{
my $self = shift;
$self->{pluginRepositoryPath} = shift;
$self->{pluginTempPath} = shift;
$self->{openslxPath} = shift;
$self->{attrs} = shift;
my $vmpath = "";
my $vmbin = "";
# get path of files we need to install
my $pluginFilesPath
= "$self->{'openslxPath'}/lib/plugins/$self->{'name'}/files";
# copy all needed files (TODO: nvram should depend on the "kind" of vmware ...)
my @files = qw( vmware-init nvram.5.0 runvmware-v2 );
foreach my $file (@files) {
copyFile("$pluginFilesPath/$file", $self->{'pluginRepositoryPath'});
}
# generate the runlevel scripts for all existing vmware installations,
# variants because we do not know which on is selected on client level
# (code depends on distro/version and vmware location)
# for local ... other vm-installations (TODO: generate list)
my @types = qw( local );
foreach my $type (@types) {
# location of the vmware stuff, "local" for directly installed
# package (more sophisticated assignment might be needed ...)
if ( $type eq "local" ) {
$vmpath = "/usr/lib/vmware";
$vmbin = "/usr/bin";
}
# if provided via another plugin
# -> why another plugin? Why should another plugin handle files
# for vmware? Do we have another plugin which writes files
# at the moment?
# -> we don't have a .../vmwareXXX/ folder => .../vmware/
# (TODO: pathname not completely clear ...
# -> should be the one of the plugin)
else {
#my $vmpath = "/opt/openslx/plugin-repo/vmwareXXX/$type";
$vmpath = "/opt/openslx/plugin-repo/vmware/$type";
$vmbin = "$vmpath/bin";
}
my $runlevelScript = "$self->{'pluginRepositoryPath'}/vmware.$type";
$self->_writeRunlevelScript($vmbin, $runlevelScript);
}
# generate links for the user executables vmware and player and a
# simplified version of the start script
@files = qw( vmware vmplayer );
foreach my $file (@files) {
# OLTA: this backup strategy is useless if invoked twice, so I have
# deactivated it
# rename ("/usr/bin/$file", "/usr/bin/$file.slx-bak");
# TODO: check if it will really build a link.
# somehow i cant see one in stage1
linkFile("/var/X11R6/bin/$file", "/usr/bin/$file");
my $script = unshiftHereDoc(<<" End-of-Here");
#!/bin/sh
# written by OpenSLX-plugin 'vmware' in Stage1
# radically simplified version of the original script $file by VMware Inc.
PREFIX=$vmpath # depends on the vmware location
exec "\$PREFIX"'/lib/wrapper-gtk24.sh' \
"\$PREFIX"'/lib' \
"\$PREFIX"'/bin/vmware' \
"\$PREFIX"'/libconf' "\$@"
End-of-Here
# TODO: run chmod 755 after creation
spitFile("$self->{'pluginRepositoryPath'}/$file", $script);
}
}
sub removalPhase
{
my $self = shift;
my $pluginRepositoryPath = shift;
my $pluginTempPath = shift;
rmtree ( [ $pluginRepositoryPath ] );
# restore old start scripts - to be discussed
#my @files = qw( vmware vmplayer );
#foreach my $file (@files) {
# rename ("/usr/bin/$file.slx-bak", "/usr/bin/$file");
#}
# TODO: path is distro specific
#rename ("/etc/init.d/vmware.slx-bak", "/etc/init.d/vmware");
return;
}
# shouldn't we make it a OpenSLX function and not just a vmware plugin
# function. oh, i forgot, we are talking about the vmware plugin...
sub _writeRunlevelScript
{
my $self = shift;
my $location = shift;
my $file = shift;
# $location points to the path where vmware helpers are installed
# call the distrospecific fillup
my $runlevelScript = $self->{distro}->fillRunlevelScript($location);
# OLTA: this backup strategy is useless if invoked twice, so I have
# deactivated it
# rename($file, "${file}.slx-bak") if -e $file;
spitFile($file, $runlevelScript);
}
1;
|
