Changeset 222 for trunk/base

Timestamp:

Aug 21, 2002, 7:34:55 AM (22 years ago)

Author:

jkh

Message:

Make curl respect the ports_quiet and ports_verbose states

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
+    global distpath all_dist_files master_sites UI_PREFIX ports_quiet
 
     if {![file isdirectory $distpath]} {
@@ -60 +60 @@
             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