line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package System::InitD; |
2
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
=head1 NAME |
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
System::InitD |
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
=head1 DESCRIPTION |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
Simple and cool toolkit for init.d scripts creation under linux systems. This distrubution includes toolkit itself |
10
|
|
|
|
|
|
|
and generator tool, geninitd, which generates init.d perl script sceleton. |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
You can see perldoc for geninitd |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
perldoc geninit |
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
Also, for available System::InitD API see perldoc for System::InitD::Runner |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
=head1 HISTORY |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
One day I tried to improve existing init.d bash script of some project and it was very painful. |
21
|
|
|
|
|
|
|
I love perl, so I decided to create some useful toolkit for init.d scripts written in perl. |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
=cut |
24
|
|
|
|
|
|
|
|
25
|
1
|
|
|
1
|
|
669
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
29
|
|
26
|
1
|
|
|
1
|
|
5
|
use warnings; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
27
|
|
27
|
|
|
|
|
|
|
|
28
|
1
|
|
|
1
|
|
571
|
use System::InitD::Runner; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
49
|
|
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
our $VERSION = 1.19; |
31
|
|
|
|
|
|
|
our $ABSTRACT = "Toolkit for perl init.d manipulation"; |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
1; |
34
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
__END__ |