Changeset 222


Ignore:
Timestamp:
Aug 21, 2002, 7:34:55 AM (18 years ago)
Author:
jkh
Message:

Make curl respect the ports_quiet and ports_verbose states

File:
1 edited

Legend:

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

    r221 r222  
    4949
    5050proc fetchfiles {args} {
    51     global distpath all_dist_files master_sites UI_PREFIX
     51    global distpath all_dist_files master_sites UI_PREFIX ports_quiet
    5252
    5353    if {![file isdirectory $distpath]} {
     
    6060            foreach site $master_sites {
    6161                ui_msg "$UI_PREFIX Attempting to fetch $distfile from $site"
    62                 if ![catch {exec curl -o ${distpath}/${distfile} ${site}${distfile} >&@ stdout} result] {
     62                if [tbool ports_quiet] {
     63                        set verboseflag -s
     64                } elseif [tbool ports_verbose] {
     65                        set verboseflag -v
     66                } else {
     67                        set verboseflag ""
     68                }
     69                if ![catch {system curl ${verboseflag} -o ${distpath}/${distfile} ${site}${distfile} 2>&1} result] {
    6370                    set fetched 1
    6471                    break
Note: See TracChangeset for help on using the changeset viewer.