Changeset 38 in ProjectBuilder for devel/pb/lib/pb.pm
- Timestamp:
- Aug 9, 2007, 4:13:27 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/pb.pm
r22 r38 11 11 12 12 sub pb_init { 13 14 my $conffile = shift; 15 my $trace; 16 17 if ($debug > 0) { 18 $trace = 1; 19 } else { 20 $trace = 0; 21 } 22 23 24 my $config = AppConfig->new({ 25 # Auto Create variables mentioned in Conf file 26 CREATE => 1, 27 DEBUG => $trace, 28 GLOBAL => { 29 # Each conf item is a hash 30 DEFAULT => { }, 31 ARGCOUNT => AppConfig::ARGCOUNT_ONE, 32 } 33 }); 34 $config->file($conffile); 35 my $ptr = $config->get("pbroot") || die "Unable to find pbroot in $conffile"; 36 return($ptr); 37 } 38 39 sub pb_conf_init { 13 40 14 41 my $conffile = shift; … … 50 77 # List of additional pkg to build when all is called (optional) 51 78 $ptr = $config->get("extpkgdir"); 52 print "DEBUG: extpkgdir1: ".Dumper($ptr)."\n" if ($debug >= 1);53 79 if (not defined $ptr) { 54 80 %extpkgdir = ();
Note:
See TracChangeset
for help on using the changeset viewer.