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
|
package OpenSLX::DistroUtils::InitFile;
use strict;
use warnings;
sub new {
my $class = shift;
my $params = shift || {};
my $self = {
};
$self->{'configHash'} = _initialConfigHash();
return bless $self, $class;
}
sub _initialConfigHash() {
return {
'name' => "",
'requiredStart' => "",
'requiredStop' => "",
'defaultStart' => "2 3 4 5",
'defaultStop' => "1",
'shortDesc' => "",
'head' => {
'blockDesc' => "head: file existing checks, etc.",
'content' => {}
},
'functions' => {
'blockDesc' => "functions: helper functions",
'content' => {}
},
'start' => {
'blockDesc' => "start: defines start function for initscript",
'content' => {}
},
'stop' => {
'blockDesc' => "stop: defines stop function for initscript",
'content' => {}
},
'reload' => {
'blockDesc' => "reload: defines reload function for initscript",
'content' => {}
},
'restart' => {
'blockDesc' => "restart: defines restart function for initscript",
'content' => {}
},
'status' => {
'blockDesc' => "status: defines status function for initscript",
'content' => {}
},
'usage' => {
'blockDesc' => "usage: defines usage function for initscript",
'content' => {}
}
};
}
sub addToBlock {
my $self = shift;
my $blockName = shift;
my $content = shift;
my $priority = shift || 5;
#check if block is valid..
push(@{$self->{'configHash'}->{$blockName}->{'content'}->{$priority}}, $content);
return $self;
}
sub setName {
my $self = shift;
my $name = shift;
$self->{'configHash'}->{'name'} = $name;
return $self;
}
sub setDesc {
my $self = shift;
my $desc = shift;
$self->{'configHash'}->{'shortDesc'} = $desc;
return $self;
}
1;
|