Changeset 227


Ignore:
Timestamp:
Aug 21, 2002, 8:13:37 AM (18 years ago)
Author:
jkh
Message:

Simplify curl verbosity handling

File:
1 edited

Legend:

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

    r223 r227  
    4949
    5050proc fetchfiles {args} {
    51     global distpath all_dist_files master_sites UI_PREFIX ports_quiet ports_verbose
     51    global distpath all_dist_files master_sites UI_PREFIX ports_verbose
    5252
    5353    if {![file isdirectory $distpath]} {
     
    6060            foreach site $master_sites {
    6161                ui_msg "$UI_PREFIX Attempting to fetch $distfile from $site"
    62                 if [tbool ports_quiet] {
    63                         set verboseflag -s
    64                 } elseif [tbool ports_verbose] {
     62                } if [tbool ports_verbose] {
    6563                        set verboseflag -v
    6664                } else {
    67                         set verboseflag ""
     65                        set verboseflag "-s"
    6866                }
    6967                if ![catch {system curl ${verboseflag} -o ${distpath}/${distfile} ${site}${distfile} 2>&1} result] {
Note: See TracChangeset for help on using the changeset viewer.