Changeset 37217

Timestamp:

2008-05-30 05:12:21 (6 months ago)

Author:

jmr@…

Message:

Add our new distfile mirror (distfiles.macports.org) and automatically append it to master_sites.

Location:

trunk/base/src/port1.0

Files:

• portfetch.tcl (modified) (2 diffs)
• resources/fetch/mirror_sites.tcl (modified) (1 diff)

trunk/base/src/port1.0/portfetch.tcl

@@ -95 +95 @@
 
 default fallback_mirror_site "macports"
+default global_mirror_site "macports_distfiles"
 default mirror_sites.listfile {"mirror_sites.tcl"}
 default mirror_sites.listpath {"${portresourcepath}/fetch/"}
@@ -219 +220 @@
 proc checksites {args} {
     global patch_sites master_sites master_sites.mirror_subdir \
-        patch_sites.mirror_subdir fallback_mirror_site env
-    
-    append master_sites " ${fallback_mirror_site}"
+        patch_sites.mirror_subdir fallback_mirror_site global_mirror_site env
+    
+    append master_sites " ${global_mirror_site} ${fallback_mirror_site}"
     if {[info exists env(MASTER_SITE_LOCAL)]} {
         set master_sites [concat $env(MASTER_SITE_LOCAL) $master_sites]
     }
     
+    # we probably want to mirror downloaded patches
+    # on distfiles.macports.org too, but we don't currently
     append patch_sites " ${fallback_mirror_site}"
     if {[info exists env(PATCH_SITE_LOCAL)]} {

trunk/base/src/port1.0/resources/fetch/mirror_sites.tcl

@@ -181 +181 @@
 }
 
+set portfetch::mirror_sites::sites(macports_distfiles) {
+    http://distfiles.macports.org/:mirror
+}
+
 set portfetch::mirror_sites::sites(openbsd) {
     http://mirror.roothell.org/pub/OpenBSD/