Changeset 423 in ProjectBuilder for devel/pb-modules/bin/pbdistrocheck

Timestamp:

May 3, 2008, 1:03:24 AM (16 years ago)

Author:

Bruno Cornec

Message:

• Improved pbdistrocheck to support -v flags
• Fix Ubuntu issue on distribution detection
• some more pb_log added

File:

• devel/pb-modules/bin/pbdistrocheck (modified) (1 diff)

devel/pb-modules/bin/pbdistrocheck

@@ -9 +9 @@
 
 use strict 'vars';
+use Getopt::Long qw(:config auto_abbrev no_ignore_case);
 use Data::Dumper;
 use lib qw (lib);
-use ProjectBuilder::Distribution qw (pb_distro_init);
+use ProjectBuilder::Distribution;
+use ProjectBuilder::Base;
+
+my %opts;                   # CLI Options
+
+GetOptions("verbose|v+" => \$opts{'v'});
+if (defined $opts{'v'}) {
+    $debug = $opts{'v'};
+}
+if (defined $opts{'l'}) {
+    open(LOG,"> $opts{'l'}") || die "Unable to log to $opts{'l'}: $!";
+    $LOG = \*LOG;
+    $debug = 0  if ($debug == -1);
+    }
+pb_log_init($debug, $LOG);
 
 my ($ddir, $dver, $dfam, $dtype, $pbsuf) = pb_distro_init();