Skip to content
Permalink
Browse files

Make curl respect the ports_quiet and ports_verbose states

git-svn-id: https://svn.macports.org/repository/macports/trunk/base@222 d073be05-634f-4543-b044-5fe20cf6d1d6
  • Loading branch information
Jordan K. Hubbard
Jordan K. Hubbard committed Aug 21, 2002
1 parent 9226c2f commit 54f5f0af5cfe7f269ae83485ae60b5c1075f4899
Showing with 9 additions and 2 deletions.
  1. +9 −2 src/port1.0/portfetch.tcl
@@ -48,7 +48,7 @@ proc checkfiles {args} {
}

proc fetchfiles {args} {
global distpath all_dist_files master_sites UI_PREFIX
global distpath all_dist_files master_sites UI_PREFIX ports_quiet

if {![file isdirectory $distpath]} {
file mkdir $distpath
@@ -59,7 +59,14 @@ proc fetchfiles {args} {
ui_info "$UI_PREFIX $distfile doesn't seem to exist in $distpath"
foreach site $master_sites {
ui_msg "$UI_PREFIX Attempting to fetch $distfile from $site"
if ![catch {exec curl -o ${distpath}/${distfile} ${site}${distfile} >&@ stdout} result] {
if [tbool ports_quiet] {
set verboseflag -s
} elseif [tbool ports_verbose] {
set verboseflag -v
} else {
set verboseflag ""
}
if ![catch {system curl ${verboseflag} -o ${distpath}/${distfile} ${site}${distfile} 2>&1} result] {
set fetched 1
break
}

0 comments on commit 54f5f0a

Please sign in to comment.
You can’t perform that action at this time.