Changeset 2254 in ProjectBuilder
- Timestamp:
- Aug 30, 2017, 5:07:34 PM (7 years ago)
- Location:
- devel
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/lib/ProjectBuilder/Conf.pm
r2253 r2254 30 30 31 31 our @ISA = qw(Exporter); 32 our @EXPORT = qw(pb_conf_init pb_conf_add pb_conf_read pb_conf_read_if pb_conf_write pb_conf_get pb_conf_get_if pb_conf_get_all pb_conf_get_hash pb_conf_cache );33 ($VERSION,$REVISION ) = pb_version_init();32 our @EXPORT = qw(pb_conf_init pb_conf_add pb_conf_read pb_conf_read_if pb_conf_write pb_conf_get pb_conf_get_if pb_conf_get_all pb_conf_get_hash pb_conf_cache pb_conf_update_v0); 33 ($VERSION,$REVISION,$PBCONFVER) = pb_version_init(); 34 34 35 35 # Global hash of conf files … … 92 92 93 93 $ cat $HOME/.pbrc.yml 94 --- 94 --- %YAML 1.0 95 95 pbver: 96 96 - pb: 3 -
devel/pb-modules/lib/ProjectBuilder/VCS.pm
r2202 r2254 492 492 =item B<pb_vcs_add_if_not_in> 493 493 494 This function adds to a VCS content from a local directory if the content wasn't already managed under th VCS.494 This function adds to a VCS content from a local directory if the content wasn't already managed under the VCS. 495 495 The first parameter is the schema of the VCS systems (svn, cvs, svn+ssh, ...) 496 496 The second parameter is a list of directory/file to add. -
devel/pb/lib/ProjectBuilder/Filter.pm
r2253 r2254 24 24 use ProjectBuilder::Distribution; 25 25 use ProjectBuilder::Changelog; 26 use ProjectBuilder::VCS; 26 27 27 28 # Inherit from the "Exporter" module which handles exporting functions. … … 65 66 66 67 my @ffiles; 68 my @ffilestoconvert; 67 69 my $pbpkg = shift || die "No package specified"; 68 70 my $pbos = shift; … … 79 81 foreach my $file_basename (@file_basenames) { 80 82 my $path = "$dir/${file_basename}.yml"; 81 push(@ffiles, $path) if -f $path; 82 } 83 } 83 if (-f $path) { 84 push(@ffiles, $path); 85 } else { 86 my $path2 = "$dir/${file_basename}.pbf"; 87 push(@ffilestoconvert, $path2) if (-f $path2); 88 } 89 } 90 } 91 92 # Convert all old filter files into new ones 93 if (@ffilestoconvert) { 94 foreach my $f (@ffilestoconvert) { 95 my $fyml = $f; 96 $fyml =~ s/\.pbf/.yml/; 97 pb_update_conf_v0($f,$fyml); 98 my ($pburl) = pb_conf_get("pburl"); 99 my ($scheme, $account, $host, $port, $path) = pb_get_uri($pburl->{$ENV{'PBPROJ'}}); 100 pb_vcs_add_if_not_in($scheme,$fyml); 101 push(@ffiles, $fyml); 102 } 84 103 85 104 if (@ffiles) {
Note:
See TracChangeset
for help on using the changeset viewer.