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

[jmr at macports.org]

Revision: 91303
          https://trac.macports.org/changeset/91303
Author:   jmr at macports.org
Date:     2012-03-28 11:07:21 -0700 (Wed, 28 Mar 2012)
Log Message:
-----------
support fetch.ignore_sslcert with hg fetch type (#29130)

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

Modified: trunk/base/src/port1.0/portfetch.tcl
===================================================================
--- trunk/base/src/port1.0/portfetch.tcl	2012-03-28 17:43:10 UTC (rev 91302)
+++ trunk/base/src/port1.0/portfetch.tcl	2012-03-28 18:07:21 UTC (rev 91303)
@@ -395,10 +395,15 @@
 
 # Perform a mercurial fetch.
 proc portfetch::hgfetch {args} {
-    global worksrcpath prefix_frozen patchfiles
-    global hg.url hg.tag hg.cmd
+    global worksrcpath prefix_frozen patchfiles hg.url hg.tag hg.cmd \
+           fetch.ignore_sslcert
 
-    set cmdstring "${hg.cmd} clone --rev ${hg.tag} ${hg.url} ${worksrcpath} 2>&1"
+    set insecureflag ""
+    if {${fetch.ignore_sslcert}} {
+        set insecureflag --insecure
+    }
+
+    set cmdstring "${hg.cmd} clone${insecureflag} --rev ${hg.tag} ${hg.url} ${worksrcpath} 2>&1"
     ui_debug "Executing: $cmdstring"
     if {[catch {system $cmdstring} result]} {
         return -code error [msgcat::mc "Mercurial clone failed"]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20120328/6a2ef0df/attachment-0001.html>