File Coverage

blib/lib/Monitoring/Generator/TestConfig/ShinkenInitScriptData.pm

Criterion	Covered	Total	%
statement	6	19	31.5
branch	0	2	0.0
condition			n/a
subroutine	2	3	66.6
pod	1	1	100.0
total	9	25	36.0

package # hidden from cpan
    Monitoring::Generator::TestConfig::ShinkenInitScriptData;

use strict;
use warnings;

########################################

=over 4

=item get_init_script

    returns the init script source

    adapted from the nagios debian package

=back

=cut

sub get_init_script {
    my $self      = shift;
    my $prefix    = shift;
    my $binary    = shift;
    our $initsource;
    if(!defined $initsource) {
       while(my $line = ) { $initsource .= $line; }
    }

    my $binpath = $binary;
    $binpath =~ s/^(.*)\/.*$/$1/mx;

    my $initscript = $initsource;
    $initscript =~ s/__PREFIX__/$prefix/gmx;
    $initscript =~ s/__BIN__/$binpath/gmx;
    return($initscript);
}

1;

__DATA__