Changeset 38 for devel/pb/lib/pb.pm

Timestamp:

08/09/07 16:13:27 (6 years ago)

Author:

bruno

Message:

/etc/pb/proj now contains the strict minimum
rest is under pbconf/proj.pb

File:

• devel/pb/lib/pb.pm (modified) (2 diffs)

devel/pb/lib/pb.pm

@@ -11 +11 @@
 
 sub pb_init {
+
+my $conffile = shift;
+my $trace;
+
+if ($debug > 0) {
+    $trace = 1;
+} else {
+    $trace = 0;
+}
+
+
+my $config = AppConfig->new({
+                            # Auto Create variables mentioned in Conf file
+                            CREATE => 1,
+                            DEBUG => $trace,
+                            GLOBAL => {
+                                # Each conf item is a hash
+                                DEFAULT => { },
+                                ARGCOUNT => AppConfig::ARGCOUNT_ONE,
+                            }
+                        });
+$config->file($conffile);
+my $ptr = $config->get("pbroot") || die "Unable to find pbroot in $conffile";
+return($ptr);
+}
+
+sub pb_conf_init {
 
 my $conffile = shift;
@@ -50 +77 @@
 # List of additional pkg to build when all is called (optional)
 $ptr = $config->get("extpkgdir");
-print "DEBUG: extpkgdir1: ".Dumper($ptr)."\n" if ($debug >= 1);
 if (not defined $ptr) {
     %extpkgdir = ();