Changeset 21 in ProjectBuilder for devel/pb/lib/pb.pm
- Timestamp:
- Jul 31, 2007, 11:52:24 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/pb.pm
r19 r21 14 14 my $conffile = shift; 15 15 my $ptr; 16 my $trace; 17 18 if ($debug >= 0) { 19 $trace = 1; 20 } else { 21 $trace = 0; 22 } 16 23 17 24 my $config = AppConfig->new({ 18 25 # Auto Create variables mentioned in Conf file 19 26 CREATE => 1, 20 DEBUG => 1,27 DEBUG => $trace, 21 28 GLOBAL => { 22 29 # Each conf item is a hash … … 34 41 $ptr = $config->get("confparam") || die "Unable to find confparam in $conffile"; 35 42 %confparam = %$ptr; 36 print " confparam: ".Dumper($ptr)."\n";43 print "DEBUG: confparam: ".Dumper($ptr)."\n" if ($debug >= 1); 37 44 38 45 # List of pkg to build by default (mandatory) 39 46 $ptr = $config->get("defpkgdir") || die "Unable to find defpkgdir in $conffile"; 40 47 %defpkgdir = %$ptr; 41 print " defpkgdir: ".Dumper($ptr)."\n";48 print "DEBUG: defpkgdir: ".Dumper($ptr)."\n" if ($debug >= 1); 42 49 43 50 # List of additional pkg to build when all is called (optional) 44 51 $ptr = $config->get("extpkgdir"); 45 print " extpkgdir1: ".Dumper($ptr)."\n";52 print "DEBUG: extpkgdir1: ".Dumper($ptr)."\n" if ($debug >= 1); 46 53 if (not defined $ptr) { 47 54 %extpkgdir = (); … … 49 56 %extpkgdir = %$ptr; 50 57 } 51 print " extpkgdir: ".Dumper(\%extpkgdir)."\n";58 print "DEBUG: extpkgdir: ".Dumper(\%extpkgdir)."\n" if ($debug >= 1); 52 59 53 60 # Valid version names (optional) … … 58 65 %version = %$ptr; 59 66 } 60 print " version: ".Dumper(\%version)."\n";67 print "DEBUG: version: ".Dumper(\%version)."\n" if ($debug >= 1); 61 68 62 69 # List of files to filter (optional) … … 67 74 %filteredfiles = %$ptr; 68 75 } 69 print " filteredfiles: ".Dumper(\%filteredfiles)."\n";76 print "DEBUG: filteredfiles: ".Dumper(\%filteredfiles)."\n" if ($debug >= 1); 70 77 71 78 }
Note:
See TracChangeset
for help on using the changeset viewer.