macports/macports-base
0
0
Fork 0
mirror of https://github.com/macports/macports-base.git synced 2026-07-12 18:18:43 -07:00
Code Issues Packages Projects Releases Wiki Activity

Work with global variables exported by darwinports API

Browse Source 
git-svn-id: https://svn.macports.org/repository/macports/trunk/base@12 d073be05-634f-4543-b044-5fe20cf6d1d6
This commit is contained in:
Landon Fuller
2002-08-01 00:21:57 +00:00
parent a09c15c570
commit 1544da0833
1 changed files with 6 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Tcl/portfetch.1.0.tcl
+6 -9
View File
@@ -27,23 +27,20 @@ proc portfetch::suffix {distname} {
}
proc portfetch::checkfiles {args} {
global portpath distname master_sites
# XXX This doesn't really belong here
set distdir $portpath/distfiles/
global portpath distname master_sites distpath
# Set distfile with proper suffix
set distfile [portfetch::suffix $distname]
if {![file isdirectory $distdir]} {
file mkdir $distdir
if {![file isdirectory $distpath]} {
file mkdir $distpath
}
if {![file isfile $distdir/$distfile]} {
puts "$distfile doesn't seem to exist in $distdir"
if {![file isfile $distpath/$distfile]} {
puts "$distfile doesn't seem to exist in $distpath"
foreach site $master_sites {
puts "Attempting to fetch from $site"
catch {exec curl -o ${distdir}/${distfile} ${site}${distfile} >&@ stdout} result
catch {exec curl -o ${distpath}/${distfile} ${site}${distfile} >&@ stdout} result
if {$result == 0} {
break
}