- Timestamp:
- Aug 9, 2007, 4:13:27 PM (17 years ago)
- Location:
- devel
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/Makefile.PL
r37 r38 7 7 NAME => 'pb', 8 8 DISTNAME => 'project-builder', 9 VERSION => PBVER 9 VERSION => PBVER, 10 10 PREREQ_PM => { 11 11 #HTTP::Headers => 1.59, 12 12 #Template => 0, 13 13 }, # e.g., Module::Name => 1.1 14 ABSTRACT_FROM => ' lib/pb.pm', # retrieve abstract from module14 ABSTRACT_FROM => 'bin/pb.pl', # retrieve abstract from module 15 15 AUTHOR => 'Bruno Cornec <bruno#project-builder.org>', 16 16 EXE_FILES => [ qw( pb.pl ) ], -
devel/pb/bin/pb.pl
r31 r38 21 21 22 22 use vars qw (%defpkgdir %extpkgdir %version %confparam %filteredfiles $debug $LOG); 23 %extpkgdir = ();24 %filteredfiles = ();25 23 $debug = 0; # Debug level 26 24 $LOG = *STDOUT; # Where to log -
devel/pb/lib/common.pm
r30 r38 34 34 # Use project configuration file 35 35 # 36 pb_init("$ENV{'PBETC'}/$proj.pb"); 36 my $pbroot=pb_init("$ENV{'PBETC'}/$proj"); 37 38 if (not defined $pbroot) { 39 die "pbroot doesn't exist in $ENV{'PBETC'}/$proj"; 40 } else { 41 $ENV{'PBROOT'} = $pbroot; 42 } 43 44 pb_conf_init("$ENV{'PBROOT'}/pbconf/$proj.pb"); 37 45 38 46 # 39 47 # Check content 40 48 # 41 if (not defined $confparam{"pbroot"}) {42 die "confparam pbroot doesn't exist in $ENV{'PBETC'}/$proj.pb";43 } else {44 $ENV{'PBROOT'} = $confparam{"pbroot"};45 }46 49 if (defined $confparam{"cvsroot"}) { 47 50 $ENV{'CVSROOT'} = $confparam{"cvsroot"}; -
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 = (); -
devel/pbconf/pb.pb
r34 r38 7 7 8 8 # confparam is a hash to ease interface 9 # Root directory of the pb project10 confparam pbroot = "/users/bruno/pb/svn/devel"11 9 12 10 # Packager for ChangeLogs … … 29 27 # List of files on which to apply filters 30 28 # Files are mentioned relatively to pbroot 31 filteredfiles pb/Makefile.PL29 filteredfiles "pb/Makefile.PL"
Note:
See TracChangeset
for help on using the changeset viewer.