source: ProjectBuilder/devel/pb-modules/bin/pbdistrogetparam@ 1690

#!/usr/bin/perl -w
#
# Project Builder Distribution Parameter extractor
#
# $Id$
#
# Copyright B. Cornec 2007-2013
# Provided under the GPL v2

use strict 'vars';
use Getopt::Long qw(:config auto_abbrev no_ignore_case);
use Data::Dumper;
use lib qw (lib);
#use lib '/usr/share/perl5'; # mandatory for opensuse
use ProjectBuilder::Base;
use ProjectBuilder::Env;
use ProjectBuilder::Distribution;
use ProjectBuilder::Conf;

=pod

=head1 NAME

pb, aka project-builder.org - builds packages for your projects

=head1 DESCRIPTION

pb helps you build various packages directly from your project sources.
pbdistrogetparam is a command from the pb project providing the value of the parameter for the running distribution based on the most precise tuple
It is a CLI version of the pb_distro_get_param function

=head1 SYNOPSIS

pbdistrogetparam [-h][-v][-p project][-d distro-ver-arch] param

=head1 OPTIONS

=over 4

=item B<-h|--help>

Prints this help

=item B<-v|--verbose>

Print a brief help message and exits.

=item B<-d|--distribution>

The tuple for which to print the parameter value considered (by default current distribution)

=item B<-p|--project project_name>

Name of the project you're working on (or use the env variable PBPROJ)

=back 

=head1 ARGUMENTS

Arguments is mandatory and corresponds to the parameter whose value is requested for the related distribution tuple.

=head1 WEB SITES

The main Web site of the project is available at L<http://www.project-builder.org/>. Bug reports should be filled using the trac instance of the project at L<http://trac.project-builder.org/>.

=head1 USER MAILING LIST

Cf: L<http://www.mondorescue.org/sympa/info/pb-announce> for announces and L<http://www.mondorescue.org/sympa/info/pb-devel> for the development of the pb project.

=head1 CONFIGURATION FILES

Uses the main /etc/pb/pb.conf (or /usr/local/etc/pb/pb.conf if installed from files) configuration file to give its answers.

=head1 AUTHORS

The Project-Builder.org team L<http://trac.project-builder.org/> lead by Bruno Cornec L<mailto:bruno@project-builder.org>.

=head1 COPYRIGHT

Project-Builder.org is distributed under the GPL v2.0 license
described in the file C<COPYING> included with the distribution.

=cut

my %opts;                   # CLI Options

GetOptions(
        "verbose|v+" => \$opts{'v'},
        "help|h" => \$opts{'h'},
        "project|p=s" => \$opts{'p'},
        "distribution|d" => \$opts{'d'},
);
if (defined $opts{'v'}) {
    $pbdebug = $opts{'v'};
}
pb_log_init($pbdebug, \*STDOUT);

my $dist = $opts{'d'};
pb_env_init($opts{'p'},0,"none",0);
my $pbos = pb_distro_get_context($dist);
foreach my $r (pb_distro_get_param($pbos,pb_conf_get(@ARGV))) {
    print "$r\n";
}