Changeset 227 for trunk/base

Timestamp:

Aug 21, 2002, 8:13:37 AM (22 years ago)

Author:

jkh

Message:

Simplify curl verbosity handling

File:

• trunk/base/src/port1.0/portfetch.tcl (modified) (2 diffs)

trunk/base/src/port1.0/portfetch.tcl

@@ -49 +49 @@
 
 proc fetchfiles {args} {
-    global distpath all_dist_files master_sites UI_PREFIX ports_quiet ports_verbose
+    global distpath all_dist_files master_sites UI_PREFIX ports_verbose
 
     if {![file isdirectory $distpath]} {
@@ -60 +60 @@
             foreach site $master_sites {
                 ui_msg "$UI_PREFIX Attempting to fetch $distfile from $site"
-                if [tbool ports_quiet] {
-                        set verboseflag -s
-                } elseif [tbool ports_verbose] {
+                } if [tbool ports_verbose] {
                         set verboseflag -v
                 } else {
-                        set verboseflag ""
+                        set verboseflag "-s"
                 }
                 if ![catch {system curl ${verboseflag} -o ${distpath}/${distfile} ${site}${distfile} 2>&1} result] {