Changeset 318 in ProjectBuilder for devel/pb/bin/pb

Timestamp:

Feb 10, 2008, 4:37:43 PM (16 years ago)

Author:

Bruno Cornec

Message:

First success with collectl

File:

• devel/pb/bin/pb (modified) (3 diffs)

devel/pb/bin/pb

@@ -23 +23 @@
 use ProjectBuilder::Distribution qw (pb_distro_init);
 use ProjectBuilder::Version qw (pb_version_init);
-use ProjectBuilder::Base qw (pb_conf_read pb_conf_get pb_cms_init pb_mkdir_p pb_system pb_rm_rf pb_get_filters pb_filter_file pb_filter_file_pb pb_filter_file_inplace pb_cms_export pb_cms_log pb_cms_isdiff pb_cms_copy pb_cms_checkout pb_get_date pb_log pb_log_init pb_get_pkg);
+use ProjectBuilder::Base;
 
 my %opts;                   # CLI Options
@@ -36 +36 @@
 my %pbtag;                  # per package
 my $pbrev;                  # Global REVISION variable
-my @date=pb_get_date();
+my @date = pb_get_date();
 my $pbdate = strftime("%Y-%m-%d", @date);
-my $debug = 0;
 my $pbaccount;              # Login to use to connect to the VM
 my $pbport;                 # Port to use to connect to the VM
 my $newver;                 # New version to create
 my $iso;                    # ISO iage for the VM to create
-my $LOG = \*STDOUT;
 
 getopts('a:hi:l:m:P:p:qr:s:tvV:',\%opts);
@@ -53 +51 @@
 }
 if (defined $opts{'v'}) {
-    $debug++;
+    $debug = 2;
+    #$debug = $opts{'v'};
+    pb_log(0,"Debug value: $debug\n");
 }
 if (defined $opts{'q'}) {