Changeset 1515 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/Distribution.pm

Timestamp:

May 10, 2012, 12:47:51 PM (12 years ago)

Author:

Bruno Cornec

Message:

r4760@localhost: bruno | 2012-05-10 11:48:21 +0200

• pb.conf: sudo does not pass through the DEBIAN_FRONTEND variable; use env to make sure it is set. Also change from --force-yes to --allow-unauthenticated (Eric Anderson)
• Base.pm: Provide a better error message for failures of pb_mkdir_p (Eric Anderson)
• Distribution.pm: Make sure to apply the ftp/http proxy when installing dependencies. Also add hack to try the install twice if it fails the first time. That may be unnecessary with the DEBIAN_FRONTEND fix, but doesn't hurt. (Eric Anderson)

File:

• devel/pb-modules/lib/ProjectBuilder/Distribution.pm (modified) (3 diffs)

devel/pb-modules/lib/ProjectBuilder/Distribution.pm

@@ -10 +10 @@
 use strict;
 use Data::Dumper;
+use Carp 'confess';
 use ProjectBuilder::Version;
 use ProjectBuilder::Base;
@@ -303 +304 @@
 my $deps = shift || undef;
 
+my $ftp_proxy = pb_distro_get_param($pbos,pb_conf_get_if("ftp_proxy"));
+my $http_proxy = pb_distro_get_param($pbos,pb_conf_get_if("http_proxy"));
+
+# We do not overwrite shell settings
+$ENV{ftp_proxy} ||= $ftp_proxy;
+$ENV{http_proxy} ||= $http_proxy;
+
 # Protection
 return if (not defined $pbos->{'install'});
@@ -313 +321 @@
 # This may not be // proof. We should test for availability of repo and sleep if not
 my $cmd = "$pbos->{'install'} $deps";
-pb_system($cmd,"Installing dependencies ($cmd)");
+my $ret = pb_system($cmd, "Installing dependencies ($cmd)", undef, 1);
+# Try to accomodate deficient proxies
+if ($ret != 0) {
+    pb_system($cmd, "Re-trying installing dependencies ($cmd)");
+}
 }