Ticket #27881: patch-src-port1.0-portfetch.tcl.diff

src/port1.0/portfetch.tcl

@@ -48 +48 @@
 
 # define options: distname master_sites
 options master_sites patch_sites extract.suffix distfiles patchfiles use_bzip2 use_lzma use_xz use_zip use_7z use_dmg dist_subdir \
-    fetch.type fetch.user fetch.password fetch.use_epsv fetch.ignore_sslcert \
+    fetch.type fetch.user fetch.password fetch.use_epsv fetch.ignore_sslcert fetch.user_agent \
     master_sites.mirror_subdir patch_sites.mirror_subdir \
     bzr.url bzr.revision \
     cvs.module cvs.root cvs.password cvs.date cvs.tag cvs.method \
@@ -116 +116 @@
 default fetch.ignore_sslcert "no"
 # Use remote timestamps
 default fetch.remote_time "no"
+# Set user agent
+default fetch.user_agent ""
 
 default fallback_mirror_site "macports"
 default global_mirror_site "macports_distfiles"
@@ -421 +423 @@
 # the listed url variable and associated distfile
 proc portfetch::fetchfiles {args} {
     global distpath all_dist_files UI_PREFIX
-    global fetch.user fetch.password fetch.use_epsv fetch.ignore_sslcert fetch.remote_time
+    global fetch.user fetch.password fetch.use_epsv fetch.ignore_sslcert fetch.remote_time fetch.user_agent
     global fallback_mirror_site portverbose usealtworkpath altprefix
     variable fetch_urls
     variable urlmap
@@ -443 +445 @@
     if {$portverbose == "yes"} {
         lappend fetch_options "-v"
     }
+    if {[string length ${fetch.user_agent}]} {
+        lappend fetch_options "--user-agent"
+        lappend fetch_options "'${fetch.user_agent}'"
+    }
     set sorted no
 
     foreach {url_var distfile} $fetch_urls {