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
|
#!/usr/bin/env perl
use strict;
use warnings;
use Module::Build;
my $build = Module::Build->new(
build_requires => {
'Test::More' => 0,
'Test::Compile' => 0,
'Test::Pod' => 0,
'Test::Command' => 0,
},
configure_requires => {
'Module::Build' => 0,
},
config_data => {
object_file => '/var/cache/icinga/objects.cache',
status_file => '/var/lib/icinga/status.dat',
command_file => '/var/lib/icinga/rw/icinga.cmd',
},
dist_name => 'icli',
dist_version_from => 'bin/icli',
license => 'unrestricted',
module_name => 'App::Icli',
requires => {
'perl' => '5.10.0',
'autodie' => 0,
'Carp' => 0,
'Getopt::Long' => 0,
'List::MoreUtils' => 0,
'POSIX' => 0,
'Term::ANSIColor' => 0,
'Term::Size' => 0,
},
script_files => 'bin/',
sign => 1,
test_types => {
author => '.at',
},
);
print <<'EOF';
-----------------------------------------------------------------------
Note: To work with an Icinga installation, icli needs to know the path to
three files:
* objects.cache (icinga.cfg object_cache_file)
* status.dat (icinga.cfg status_file)
* icinga.cmd (icinga.cfg command_file)
If you are building interactively and the default values for these paths
do not exist, you will be asked for them -- hit return to keep the default.
In a non-interactive build, the defaults will be used (unless changed using
an option, see below).
If you need to set them regardless of the build host, do not wish to be
promited at all, or are using a non-interactive build process (perhaps even
for a whole distribution), you can set them using the following options:
perl Build.PL --icli-object-file=.../objects.cache \
--icli-status-file=.../status.dat \
--icli-command-file=.../icinga.cmd
-----------------------------------------------------------------------
EOF
if ($build->args('icli-object-file')) {
$build->config_data(object_file => $build->args('icli-object-file'));
}
elsif (not -e $build->config_data('object_file')) {
my $reply = $build->prompt('Enter location of Icinga objects.cache',
$build->config_data('object_file'));
$build->config_data(object_file => $reply);
}
if ($build->args('icli-status-file')) {
$build->config_data(status_file => $build->args('icli-status-file'));
}
elsif (not -e $build->config_data('status_file')) {
my $reply = $build->prompt('Enter location of Icinga status.dat',
$build->config_data('status_file'));
$build->config_data(status_file => $reply);
}
if ($build->args('icli-command-file')) {
$build->config_data(command_file => $build->args('icli-command-file'));
}
elsif (not -e $build->config_data('command_file')) {
my $reply = $build->prompt('Enter location of Icinga command pipe',
$build->config_data('command_file'));
$build->config_data(command_file => $reply);
}
$build->create_build_script();
|
