Changeset 17


Ignore:
Timestamp:
Aug 1, 2002, 4:16:51 AM (18 years ago)
Author:
landonf (Landon Fuller)
Message:

Export only needed options as globals

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/Tcl/portfetch.1.0.tcl

    r16 r17  
    1010
    1111# define globals: distname master_sites distfiles patchfiles dist_subdir
    12 globals portfetch::options distname master_sites extract_sufx distfiles patchfiles dist_subdir use_zip use_bzip2 all_dist_files
     12globals portfetch::options distname distfiles patchfiles dist_subdir all_dist_files
    1313
    1414# define options: distname master_sites
     
    2828
    2929proc portfetch::checkfiles {args} {
    30         global portpath master_sites distpath
     30        global portpath distpath
    3131
    3232        if {![file isdirectory $distpath]} {
     
    3636                if {![file isfile $distpath/$distfile]} {
    3737                        puts "$distfile doesn't seem to exist in $distpath"
    38                         foreach site $master_sites {
     38                        foreach site [getval portfetch::options master_sites] {
    3939                                puts "Attempting to fetch from $site"
    4040                                if ![catch {exec curl -o ${distpath}/${distfile} ${site}${distfile} >&@ stdout} result] {
Note: See TracChangeset for help on using the changeset viewer.