source:
ProjectBuilder/devel/pb-modules/bin/pbdistrocheck@
490
Last change on this file since 490 was 423, checked in by , 16 years ago | |
---|---|
File size: 730 bytes |
Rev | Line | |
---|---|---|
[176] | 1 | #!/usr/bin/perl -w |
2 | # | |
3 | # Project Builder Distribution Checker | |
4 | # | |
5 | # $Id$ | |
6 | # | |
7 | # Copyright B. Cornec 2007 | |
8 | # Provided under the GPL v2 | |
9 | ||
10 | use strict 'vars'; | |
[423] | 11 | use Getopt::Long qw(:config auto_abbrev no_ignore_case); |
[176] | 12 | use Data::Dumper; |
13 | use lib qw (lib); | |
[423] | 14 | use ProjectBuilder::Distribution; |
15 | use ProjectBuilder::Base; | |
[176] | 16 | |
[423] | 17 | my %opts; # CLI Options |
18 | ||
19 | GetOptions("verbose|v+" => \$opts{'v'}); | |
20 | if (defined $opts{'v'}) { | |
21 | $debug = $opts{'v'}; | |
22 | } | |
23 | if (defined $opts{'l'}) { | |
24 | open(LOG,"> $opts{'l'}") || die "Unable to log to $opts{'l'}: $!"; | |
25 | $LOG = \*LOG; | |
26 | $debug = 0 if ($debug == -1); | |
27 | } | |
28 | pb_log_init($debug, $LOG); | |
29 | ||
[176] | 30 | my ($ddir, $dver, $dfam, $dtype, $pbsuf) = pb_distro_init(); |
31 | print "distro tuple: ".join(',',($ddir, $dver, $dfam, $dtype, $pbsuf))."\n"; |
Note:
See TracBrowser
for help on using the repository browser.