Changeset 226 for trunk/base


Ignore:
Timestamp:
Aug 21, 2002, 8:05:47 AM (22 years ago)
Author:
jkh
Message:

Properly use ui_error.

Location:
trunk/base/src/port1.0
Files:
2 edited

Legend:

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

    r221 r226  
    2626    } else {
    2727        # XXX Handle this error beter
    28         ui_error "$UI_PREFIX $line - md5sum failed!"
     28        ui_error "$line - md5sum failed!"
    2929        return -1
    3030    }
     
    5151
    5252    if ![info exists checksums] {
    53         ui_error "$UI_PREFIX No MD5 checksums."
     53        ui_error "No MD5 checksums."
    5454        return -1
    5555    }
     
    5959        set dchecksum [dmd5 $distfile]
    6060        if {$dchecksum == -1} {
    61             ui_error "$UI_PREFIX No checksum recorded for $distfile"
     61            ui_error "No checksum recorded for $distfile"
    6262            return -1
    6363        }
     
    6565            ui_msg "$UI_PREFIX Checksum OK for $distfile"
    6666        } else {
    67             ui_error "$UI_PREFIX Checksum mismatch for $distfile"
     67            ui_error "Checksum mismatch for $distfile"
    6868            return -1
    6969        }
  • trunk/base/src/port1.0/portextract.tcl

    r221 r226  
    4848        set cmd "${extract.cmd} [join ${extract.before_args}] $distpath/$distfile [join ${extract.after_args}]"
    4949        if [catch {system $cmd} result] {
    50             ui_error "$UI_PREFIX $result"
     50            ui_error "$result"
    5151            return -1
    5252        }
Note: See TracChangeset for help on using the changeset viewer.