108 | | set element "[lindex $splitlist 0]:[lindex $splitlist 1]" |
109 | | set mirror_tag "[lindex $splitlist 2]" |
| 108 | # element can be: |
| 109 | # http://svn.macports.org/repository/macports/distfiles/ |
| 110 | # http://distfiles.macports.org/:mirror |
| 111 | # http://localhost:6227/:nosubdir |
| 112 | # http://packages.macports.org/:nosubdir |
| 113 | set mirror_tag_index [expr [llength $splitlist] - 1] |
| 114 | if {$mirror_tag_index < 2} { |
| 115 | set mirror_tag_index 2 |
| 116 | } else { |
| 117 | set element [join [lreplace $splitlist $mirror_tag_index end] ":"] |
| 118 | } |
| 119 | set mirror_tag "[lindex $splitlist $mirror_tag_index]" |