File Coverage

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

Criterion	Covered	Total	%
statement	23	23	100.0
branch	1	2	50.0
condition			n/a
subroutine	3	3	100.0
pod	1	1	100.0
total	28	29	96.5

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

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;
    my $user      = shift;
    my $group     = shift;
    my $layout    = shift;
    our $initsource;
    if(!defined $initsource) {
       while(my $line = ) { $initsource .= $line; }
    }

    my $initscript = $initsource;
    $initscript =~ s/__PREFIX__/$prefix/gmx;
    $initscript =~ s/__BINARY__/$binary/gmx;
    $initscript =~ s/__USER__/$user/gmx;
    $initscript =~ s/__GROUP__/$group/gmx;
    $initscript =~ s/__LAYOUT__/$layout/gmx;
    return($initscript);
}

1;

__DATA__