- Timestamp:
- Sep 4, 2017, 1:21:18 PM (7 years ago)
- Location:
- devel/pb
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/bin/pb
r2286 r2287 549 549 550 550 pbconfurl I<project> = file:///home/anderse/.git/project-builder-config/I<project> 551 pbdefdir default = $ENV{ HOME}/cache-project-builder551 pbdefdir default = $ENV{'HOME'}/cache-project-builder 552 552 553 553 The first line defines the version controlled configuration information and the second defines the root directory for project-builder to use. … … 622 622 623 623 vepath: 624 default: $ENV{ HOME}/cache-project-builder/chroot624 default: $ENV{'HOME'}/cache-project-builder/chroot 625 625 velist: 626 626 default: debian-6.0-i386 … … 2268 2268 my ($gpgaddkey) = pb_conf_get_if("pbadditionalgpg"); 2269 2269 my $pbadditionalgpg; 2270 $pbadditionalgpg = $gpgaddkey->{$ENV{ PBPROJ}} if (defined $gpgaddkey);2270 $pbadditionalgpg = $gpgaddkey->{$ENV{'PBPROJ'}} if (defined $gpgaddkey); 2271 2271 if (defined $pbadditionalgpg) { 2272 2272 foreach my $k (split(/,/,$pbadditionalgpg)) { … … 2289 2289 $delivery->{$ENV{'PBPROJ'}} = "" if (not defined $delivery->{$ENV{'PBPROJ'}}); 2290 2290 my ($sshlogin,$sshport) = pb_conf_get_if($login,$port); 2291 $sshport->{$ENV{ PBPROJ}} = 22 if (not defined $sshport->{$ENV{PBPROJ}});2292 $sshlogin->{$ENV{ PBPROJ}} = getpwuid($UID) if (not defined $sshlogin->{$ENV{PBPROJ}});2291 $sshport->{$ENV{'PBPROJ'}} = 22 if (not defined $sshport->{$ENV{'PBPROJ'}}); 2292 $sshlogin->{$ENV{'PBPROJ'}} = getpwuid($UID) if (not defined $sshlogin->{$ENV{'PBPROJ'}}); 2293 2293 my ($vtmout,$vepath); 2294 2294 # ...Except those in virtual context … … 2365 2365 my ($gpgcheck) = pb_conf_get_if("pbgpgcheck"); 2366 2366 my $pbgpgcheck; 2367 $pbgpgcheck = $gpgcheck->{$ENV{ PBPROJ}} if (defined $gpgcheck);2367 $pbgpgcheck = $gpgcheck->{$ENV{'PBPROJ'}} if (defined $gpgcheck); 2368 2368 my $pbgpgkey = "$pbrepo->{$ENV{'PBPROJ'}}/$repodir/$ENV{'PBPROJ'}.pubkey"; 2369 2369 my ($gpgaddpkey) = pb_conf_get_if("pbadditionalgpg"); 2370 2370 my $pbadditionalgpg; 2371 $pbadditionalgpg = $gpgaddpkey->{$ENV{ PBPROJ}} if (defined $gpgaddpkey);2371 $pbadditionalgpg = $gpgaddpkey->{$ENV{'PBPROJ'}} if (defined $gpgaddpkey); 2372 2372 if (defined $pbadditionalgpg) { 2373 2373 foreach my $k (split(/,/,$pbadditionalgpg)) { … … 4623 4623 my $dbh = pb_connect_db(); 4624 4624 # For date handling 4625 $ENV{ LANGUAGE}="C";4625 $ENV{'LANGUAGE'}="C"; 4626 4626 my $firstjan = strftime("%Y-%m-%d", 0, 0, 0, 1, 0, localtime->year(), 0, 0, -1); 4627 4627 my $oldfirst = strftime("%Y-%m-%d", 0, 0, 0, 1, 0, localtime->year()-1, 0, 0, -1); … … 5099 5099 my $changes = ""; 5100 5100 foreach my $c (split(/ /,$made)) { 5101 $changes .= " $ENV{'PBBUILDDIR'}/$c" if (($c =~ /\.changes$/) && (-f "$ENV{ PBBUILDDIR}/$c"));5101 $changes .= " $ENV{'PBBUILDDIR'}/$c" if (($c =~ /\.changes$/) && (-f "$ENV{'PBBUILDDIR'}/$c")); 5102 5102 } 5103 5103 my $debsigncmd = pb_check_req("debsign",1); … … 5121 5121 my @pt = pb_conf_get_if("vmlist","velist","rmlist"); 5122 5122 foreach my $pt (@pt) { 5123 push(@dists, split(/,/, $pt->{$ENV{ PBPROJ}})) if defined $pt->{$ENV{PBPROJ}};5123 push(@dists, split(/,/, $pt->{$ENV{'PBPROJ'}})) if defined $pt->{$ENV{'PBPROJ'}}; 5124 5124 } 5125 5125 # remove any whitespace … … 5247 5247 my ($projcomponent_map) = pb_conf_get_if("projcomponent"); 5248 5248 pb_log(2,"projcomponent = ".Dumper($projcomponent_map)."\n"); 5249 my $projcomponent = $projcomponent_map->{$ENV{ PBPROJ}};5249 my $projcomponent = $projcomponent_map->{$ENV{'PBPROJ'}}; 5250 5250 $projcomponent ||= 'contrib'; 5251 5251 -
devel/pb/lib/ProjectBuilder/CMS.pm
r2284 r2287 151 151 } 152 152 153 pb_log(1,"pb_cms_init returns $scheme,$pb url->{$ENV{'PBPROJ'}}\n");154 return($scheme,$pb url->{$ENV{'PBPROJ'}});153 pb_log(1,"pb_cms_init returns $scheme,$pbprojurl->{$ENV{'PBPROJ'}}\n"); 154 return($scheme,$pbprojurl->{$ENV{'PBPROJ'}}); 155 155 } 156 156 -
devel/pb/lib/ProjectBuilder/Changelog.pm
r2109 r2287 78 78 pb_log(2,"Entering pb_changelog - OUTPUT: $OUTPUT\n") if (defined $OUTPUT); 79 79 # For date handling 80 $ENV{ LANG}="C";80 $ENV{'LANG'}="C"; 81 81 82 82 if ((not (defined $dtype)) || ($dtype eq "") || -
devel/pb/lib/ProjectBuilder/Filter.pm
r2267 r2287 78 78 @file_basenames = reverse pb_distro_to_keylist($pbos, 'all') if (defined $pbos); 79 79 # Build list of all filter files 80 foreach my $dir ("$ENV{ PBROOTDIR}/pbfilter", "$ENV{PBROOTDIR}/$pbpkg/pbfilter") {80 foreach my $dir ("$ENV{'PBROOTDIR'}/pbfilter", "$ENV{'PBROOTDIR'}/$pbpkg/pbfilter") { 81 81 foreach my $file_basename (@file_basenames) { 82 82 my $path = "$dir/${file_basename}.yml";
Note:
See TracChangeset
for help on using the changeset viewer.