view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

if ($build->args('icli-object-file')) {
	$build->config_data(object_file => $build->args('icli-object-file'));
}
else {
	for my $path (@object_paths) {
		if (not -e $build->config_data('object_file')) {
			$build->config_data(object_file => $path);
		}
	}
	if (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'));
}
else {
	for my $path (@status_paths) {
		if (not -e $build->config_data('status_file')) {
			$build->config_data(status_file => $path);
		}
	}
	if (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'));
}
else {
	for my $path (@command_paths) {
		if (not -e $build->config_data('command_file')) {
			$build->config_data(command_file => $path);
		}
	}
	if (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();