Changeset 21 in ProjectBuilder for devel/pb/lib

Timestamp:

Jul 31, 2007, 11:52:24 AM (17 years ago)

Author:

Bruno Cornec

Message:

Add syntax, control of traces, debug level ...
Much Nicer output now

Location:

devel/pb/lib

Files:

• changelog.pm (modified) (1 diff)
• pb.pm (modified) (5 diffs)

devel/pb/lib/changelog.pm

@@ -34 +34 @@
 my $chglog = "$ENV{'PBROOT'}/$path/ChangeLog";
 if (! -f $chglog) {
-    print "Unable to find the ChangeLog file ($chglog) for $pkg\n";
+    print "Unable to find the ChangeLog file ($chglog) for $pkg\n" if ($debug >= 0);
     return("\n");
 }

devel/pb/lib/pb.pm

@@ -14 +14 @@
 my $conffile = shift;
 my $ptr;
+my $trace;
+
+if ($debug >= 0) {
+    $trace = 1;
+} else {
+    $trace = 0;
+}
 
 my $config = AppConfig->new({
                             # Auto Create variables mentioned in Conf file
                             CREATE => 1,
-                            DEBUG => 1,
+                            DEBUG => $trace,
                             GLOBAL => {
                                 # Each conf item is a hash
@@ -34 +41 @@
 $ptr = $config->get("confparam") || die "Unable to find confparam in $conffile";
 %confparam = %$ptr;
-print "confparam: ".Dumper($ptr)."\n";
+print "DEBUG: confparam: ".Dumper($ptr)."\n" if ($debug >= 1);
 
 # List of pkg to build by default (mandatory)
 $ptr = $config->get("defpkgdir") || die "Unable to find defpkgdir in $conffile";
 %defpkgdir = %$ptr;
-print "defpkgdir: ".Dumper($ptr)."\n";
+print "DEBUG: defpkgdir: ".Dumper($ptr)."\n" if ($debug >= 1);
 
 # List of additional pkg to build when all is called (optional)
 $ptr = $config->get("extpkgdir");
-print "extpkgdir1: ".Dumper($ptr)."\n";
+print "DEBUG: extpkgdir1: ".Dumper($ptr)."\n" if ($debug >= 1);
 if (not defined $ptr) {
     %extpkgdir = ();
@@ -49 +56 @@
     %extpkgdir = %$ptr;
 }
-print "extpkgdir: ".Dumper(\%extpkgdir)."\n";
+print "DEBUG: extpkgdir: ".Dumper(\%extpkgdir)."\n" if ($debug >= 1);
 
 # Valid version names (optional)
@@ -58 +65 @@
     %version = %$ptr;
 }
-print "version: ".Dumper(\%version)."\n";
+print "DEBUG: version: ".Dumper(\%version)."\n" if ($debug >= 1);
 
 # List of files to filter (optional)
@@ -67 +74 @@
     %filteredfiles = %$ptr;
 }
-print "filteredfiles: ".Dumper(\%filteredfiles)."\n";
+print "DEBUG: filteredfiles: ".Dumper(\%filteredfiles)."\n" if ($debug >= 1);
 
 }