Changeset 18325 for trunk/base


Ignore:
Timestamp:
Jun 10, 2006, 11:04:30 PM (14 years ago)
Author:
pguyot (Paul Guyot)
Message:

New mirror tag: :mirror. This tag appends the DP sub dir to the URL.
What is left for DP mirrors:

  • parallel execution of actions with selectors
  • a new command that uses the new mirror database to clean up the old files.
Location:
trunk/base/src/port1.0
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portfetch.tcl

    r18320 r18325  
    11# et:ts=4
    22# portfetch.tcl
    3 # $Id: portfetch.tcl,v 1.111 2006/06/10 08:07:40 pguyot Exp $
     3# $Id: portfetch.tcl,v 1.112 2006/06/10 23:04:29 pguyot Exp $
    44#
    55# Copyright (c) 2002 - 2003 Apple Computer, Inc.
     
    151151# pre-registered set of sites, and if so, return them.
    152152proc mirror_sites {mirrors tag subdir} {
    153     global UI_PREFIX portname portresourcepath mirror_sites.listfile mirror_sites.listpath
     153    global UI_PREFIX portname portresourcepath mirror_sites.listfile mirror_sites.listpath dist_subdir
    154154    source ${mirror_sites.listpath}${mirror_sites.listfile}
    155155    if {![info exists portfetch::mirror_sites::sites($mirrors)]} {
     
    168168            set mirror_tag "[lindex $splitlist 2]"
    169169        }
    170        
    171         if {$subdir == "" && $mirror_tag != "nosubdir"} {
    172             set subdir ${portname}
     170
     171        if {$mirror_tag == "mirror"} {
     172                set thesubdir ${dist_subdir}
     173        } elseif {$subdir == "" && $mirror_tag != "nosubdir"} {
     174                set thesubdir ${portname}
     175        } else {
     176                set thesubdir ${subdir}
    173177        }
    174178       
    175179        if {"$tag" != ""} {
    176             eval append element "${subdir}:${tag}"
     180            eval append element "${thesubdir}:${tag}"
    177181        } else {
    178             eval append element "${subdir}"
     182            eval append element "${thesubdir}"
    179183        }
    180184        eval lappend ret $element
  • trunk/base/src/port1.0/resources/fetch/mirror_sites.tcl

    r17376 r18325  
    1 # $Id: mirror_sites.tcl,v 1.36 2006/04/09 05:25:56 pguyot Exp $
     1# $Id: mirror_sites.tcl,v 1.37 2006/06/10 23:04:30 pguyot Exp $
    22# mirror_sites.tcl
    33#
     
    126126
    127127set portfetch::mirror_sites::sites(opendarwin) {
     128    http://distfiles-od.opendarwin.org/:mirror
     129    http://distfiles-msn.opendarwin.org/:mirror
     130    http://distfiles-bay13.opendarwin.org/:mirror
    128131    http://distfiles-od.opendarwin.org/:nosubdir
    129132    http://distfiles-msn.opendarwin.org/:nosubdir
Note: See TracChangeset for help on using the changeset viewer.