<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository macports-base.

</pre>
<p><a href="https://github.com/macports/macports-base/commit/5e9ddc13af63f61355edda84b57629d5a185092e">https://github.com/macports/macports-base/commit/5e9ddc13af63f61355edda84b57629d5a185092e</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 5e9ddc13af63f61355edda84b57629d5a185092e
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Fri Apr 11 13:04:40 2025 +1000

<span style='display:block; white-space:pre;color:#404040;'>    Accept lowercase proxy environment variables
</span>---
 src/macports1.0/macports.tcl | 15 +++++++++++----
 src/port1.0/portfetch.tcl    | 30 +++++++++++++-----------------
 2 files changed, 24 insertions(+), 21 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/macports1.0/macports.tcl b/src/macports1.0/macports.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 256d4b90a..4139f2bff 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/macports1.0/macports.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/macports1.0/macports.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1680,9 +1680,13 @@ match macports.conf.default."
</span>         HOME JAVA_HOME MASTER_SITE_LOCAL ARCHIVE_SITE_LOCAL
         PATCH_SITE_LOCAL PATH PORTSRC RSYNC_PROXY
         USER GROUP LANG
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        http_proxy HTTPS_PROXY FTP_PROXY ALL_PROXY NO_PROXY
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        http_proxy
</span>         COLUMNS LINES
     }
<span style='display:block; white-space:pre;background:#e0ffe0;'>+    # Curl accepts these variables in both lower- and upper-case
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    foreach var {https_proxy ftp_proxy all_proxy no_proxy} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        lappend keepenvkeys $var [string toupper $var]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    }
</span>     if {[info exists extra_env]} {
         set keepenvkeys [concat $keepenvkeys $extra_env]
     }
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1789,14 +1793,16 @@ match macports.conf.default."
</span>             set env(http_proxy) $sysConfProxies(proxy_http)
         }
     }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {![info exists env(HTTPS_PROXY)] || $proxy_override_env} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {(![info exists env(https_proxy)] && ![info exists env(HTTPS_PROXY)]) || $proxy_override_env} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        unset -nocomplain env(https_proxy)
</span>         if {[info exists proxy_https]} {
             set env(HTTPS_PROXY) $proxy_https
         } elseif {[info exists sysConfProxies(proxy_https)]} {
             set env(HTTPS_PROXY) $sysConfProxies(proxy_https)
         }
     }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {![info exists env(FTP_PROXY)] || $proxy_override_env} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {(![info exists env(ftp_proxy)] && ![info exists env(FTP_PROXY)]) || $proxy_override_env} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        unset -nocomplain env(ftp_proxy)
</span>         if {[info exists proxy_ftp]} {
             set env(FTP_PROXY) $proxy_ftp
         } elseif {[info exists sysConfProxies(proxy_ftp)]} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1808,7 +1814,8 @@ match macports.conf.default."
</span>             set env(RSYNC_PROXY) $proxy_rsync
         }
     }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {![info exists env(NO_PROXY)] || $proxy_override_env} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {(![info exists env(no_proxy)] && ![info exists env(NO_PROXY)]) || $proxy_override_env} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        unset -nocomplain env(no_proxy)
</span>         if {[info exists proxy_skip]} {
             set env(NO_PROXY) $proxy_skip
         } elseif {[info exists sysConfProxies(proxy_skip)]} {
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port1.0/portfetch.tcl b/src/port1.0/portfetch.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index ae1eaa18d..e3452ee53 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port1.0/portfetch.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port1.0/portfetch.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -302,16 +302,13 @@ proc portfetch::bzrfetch {args} {
</span>     #   "proxy.example.com:8080": No host component
     # Set the "http_proxy" and "HTTPS_PROXY" environmental variables
     # to valid URLs by prepending "http://" and appending "/".
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {   [info exists env(http_proxy)]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        && [string compare -length 7 {http://} $env(http_proxy)] != 0} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        set orig_http_proxy $env(http_proxy)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        set env(http_proxy) http://${orig_http_proxy}/
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {   [info exists env(HTTPS_PROXY)]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        && [string compare -length 7 {http://} $env(HTTPS_PROXY)] != 0} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        set orig_https_proxy $env(HTTPS_PROXY)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        set env(HTTPS_PROXY) http://${orig_https_proxy}/
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    foreach varname {http_proxy https_proxy HTTPS_PROXY} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {[info exists env($varname)]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            && [string compare -length 7 {http://} $env($varname)] != 0
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        } then {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            set orig_${varname} $env($varname)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            set env($varname) http://[set orig_${varname}]/
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span>     }
 
     try {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -319,11 +316,10 @@ proc portfetch::bzrfetch {args} {
</span>             return -code error [msgcat::mc "Bazaar checkout failed"]
         }
     } finally {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        if {[info exists orig_http_proxy]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            set env(http_proxy) ${orig_http_proxy}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        if {[info exists orig_https_proxy]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            set env(HTTPS_PROXY) ${orig_https_proxy}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        foreach varname {http_proxy https_proxy HTTPS_PROXY} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            if {[info exists orig_${varname}]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                set env($varname) [set orig_${varname}]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            }
</span>         }
     }
 
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -392,8 +388,8 @@ proc portfetch::svn_proxy_args {url} {
</span>         && [info exists env(http_proxy)]} {
         set proxy_str $env(http_proxy)
     } elseif {   [string compare -length 8 {https://} ${url}] == 0
<span style='display:block; white-space:pre;background:#ffe0e0;'>-              && [info exists env(HTTPS_PROXY)]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        set proxy_str $env(HTTPS_PROXY)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+              && ([info exists env(HTTPS_PROXY)] || [info exists env(https_proxy)])} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set proxy_str [expr {[info exists env(https_proxy)] ? $env(https_proxy) : $env(HTTPS_PROXY)}]
</span>     } else {
         return ""
     }
</pre><pre style='margin:0'>

</pre>