[78967] trunk/base/src/package1.0/portarchivefetch.tcl

[jmr at macports.org]

Revision: 78967
          http://trac.macports.org/changeset/78967
Author:   jmr at macports.org
Date:     2011-05-27 21:51:08 -0700 (Fri, 27 May 2011)
Log Message:
-----------
support for indicating the prefix used in archive sites, and ignoring those that don't match the local prefix

Modified Paths:
--------------
    trunk/base/src/package1.0/portarchivefetch.tcl

Modified: trunk/base/src/package1.0/portarchivefetch.tcl
===================================================================
--- trunk/base/src/package1.0/portarchivefetch.tcl	2011-05-28 03:46:26 UTC (rev 78966)
+++ trunk/base/src/package1.0/portarchivefetch.tcl	2011-05-28 04:51:08 UTC (rev 78967)
@@ -59,11 +59,22 @@
 default archivefetch.ignore_sslcert no
 default archivefetch.pubkeys {$archivefetch_pubkeys}
 
-default archive_sites macports_archives
+default archive_sites {[portarchivefetch::filter_sites]}
 default archive_sites.listfile {"archive_sites.tcl"}
 default archive_sites.listpath {"port1.0/fetch"}
 default archive.subdir {${subport}}
 
+proc portarchivefetch::filter_sites {} {
+    global prefix
+    set ret {}
+    foreach site [array names portfetch::mirror_sites::archive_prefix] {
+        if {$portfetch::mirror_sites::archive_prefix($site) == $prefix} {
+            lappend ret $site
+        }
+    }
+    return $ret
+}
+
 set_ui_prefix
 
 # Checks possible archive files to assemble url lists for later fetching
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110527/8c5c9572/attachment.html>