[36905] trunk/base/src/port1.0/portfetch.tcl

[afb at macports.org]

Revision: 36905
          http://trac.macosforge.org/projects/macports/changeset/36905
Author:   afb at macports.org
Date:     2008-05-18 01:28:46 -0700 (Sun, 18 May 2008)

Log Message:
-----------
add fetch.remote_time for curl --remote-time (#12629)

Modified Paths:
--------------
    trunk/base/src/port1.0/portfetch.tcl

Modified: trunk/base/src/port1.0/portfetch.tcl
===================================================================
--- trunk/base/src/port1.0/portfetch.tcl	2008-05-18 08:11:44 UTC (rev 36904)
+++ trunk/base/src/port1.0/portfetch.tcl	2008-05-18 08:28:46 UTC (rev 36905)
@@ -90,6 +90,8 @@
 default fetch.use_epsv "yes"
 # Ignore SSL certificate
 default fetch.ignore_sslcert "no"
+# Use remote timestamps
+default fetch.remote_time "no"
 
 default fallback_mirror_site "macports"
 default mirror_sites.listfile {"mirror_sites.tcl"}
@@ -515,7 +517,7 @@
 # the listed url varable and associated distfile
 proc fetchfiles {args} {
 	global distpath all_dist_files UI_PREFIX fetch_urls
-	global fetch.user fetch.password fetch.use_epsv fetch.ignore_sslcert
+	global fetch.user fetch.password fetch.use_epsv fetch.ignore_sslcert fetch.remote_time
 	global distfile site
 	global portverbose
 
@@ -536,6 +538,9 @@
 	if {${fetch.ignore_sslcert} != "no"} {
 		lappend fetch_options "--ignore-ssl-cert"
 	}
+	if {${fetch.remote_time} != "no"} {
+		lappend fetch_options "--remote-time"
+	}
 	if {$portverbose == "yes"} {
 		lappend fetch_options "-v"
 	}

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080518/dc0da94b/attachment-0001.htm