#!/usr/bin/perl -w
#
# Project Builder Distribution Checker
#
# $Id$
#
# Copyright B. Cornec 2007
# 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 ProjectBuilder::Distribution;
use ProjectBuilder::Base;
=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.
pbdistrocheck is a command from the pb project providing the same type of services as lsb_release, but extended.
=head1 SYNOPSIS
pbdistrocheck [-d][-v][-l [-c][-i][-r][-a]][-s] [distro-ver-arch]
=head1 OPTIONS
=over 4
=item B<-v|--verbose>
Print a brief help message and exits.
=item B<-a|--all>
print all parameters
=item B<-s|--short>
generate a short format user friendly, comma separated allowing parsing
=item B<-l|--lsb>
generate an LSB compliant output
=item B<-d|--description>
print only description (LSB only)
=item B<-r|--release>
print only release (LSB only)
=item B<-c|--codename>
print only codename (LSB only)
=item B<-i|--id>
print only distribution identificator (LSB only)
=item B<-a|--all>
print all LSB fields
=back
=head1 ARGUMENTS
arguments are optional. If none given, analyzes the underlying operating system
If one is given, it should have the format osname-version-architecture, and in that case pbdistrocheck will provide all the information related to that OS needed by pb.
=head1 WEB SITES
The main Web site of the project is available at L. Bug reports should be filled using the trac instance of the project at L.
=head1 USER MAILING LIST
Cf: L for announces and L 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 lead by Bruno Cornec L.
=head1 COPYRIGHT
Project-Builder.org is distributed under the GPL v2.0 license
described in the file C included with the distribution.
=cut
my %opts; # CLI Options
GetOptions(
"verbose|v+" => \$opts{'v'},
"short|s" => \$opts{'s'},
"description|d" => \$opts{'d'},
"id|i" => \$opts{'i'},
"release|r" => \$opts{'r'},
"codename|c" => \$opts{'c'},
"all|a" => \$opts{'a'},
"lsb|l" => \$opts{'l'},
);
if (defined $opts{'v'}) {
$pbdebug = $opts{'v'};
}
pb_log_init($pbdebug, \*STDOUT);
my $dist = shift @ARGV || undef ;
my @param = undef;
@param = split(/-/,$dist) if (defined $dist);
my ($ddir, $dver, $dfam, $dtype, $dos, $pbsuf, $pbupd, $arch) = pb_distro_init(@param);
my $sep = "\n";
if (defined $opts{'l'}) {
# Simulate lsb_release output
my ($l,$i,$d,$r,$c) = pb_distro_getlsb($opts{'s'});
$sep = " " if (defined $opts{'s'});
print $l.$sep;
print $i.$sep if (defined $opts{'i'} or defined $opts{'a'});
print $d.$sep if (defined $opts{'d'} or defined $opts{'a'});
print $r.$sep if (defined $opts{'r'} or defined $opts{'a'});
$sep = "" if (defined $opts{'s'});
print $c.$sep if (defined $opts{'c'} or defined $opts{'a'});
print "\n" if (defined $opts{'s'});
} else {
$sep = "," if (defined $opts{'s'});
if (not defined $opts{'s'}) {
$dos = "OS:\t$dos";
$ddir = "Name:\t$ddir";
$dver = "Ver:\t$dver";
$dfam = "Family:\t$dfam";
$dtype = "Type:\t$dtype";
$pbsuf = "Suffix:\t$pbsuf";
$pbupd = "Update:\t$pbupd";
$arch = "Arch:\t$arch";
print "Project-Builder tuple:\n";
}
print join($sep,($dos, $ddir, $dver, $arch, $dtype, $dfam, $pbsuf, $pbupd))."\n";
}