Changeset 14601 for trunk/base

Timestamp:

Oct 13, 2005, 7:45:49 PM (19 years ago)

Author:

pguyot (Paul Guyot)

Message:

Trash the distfile if the checksum doesn't match and -v wasn't provided.

File:

• trunk/base/src/port1.0/portchecksum.tcl (modified) (3 diffs)

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

@@ -1 +1 @@
 # et:ts=4
 # portchecksum.tcl
-# $Id: portchecksum.tcl,v 1.44 2005/08/27 00:07:30 pguyot Exp $
+# $Id: portchecksum.tcl,v 1.45 2005/10/13 19:45:49 pguyot Exp $
 #
 # Copyright (c) 2002 - 2004 Apple Computer, Inc.
@@ -184 +184 @@
 #
 proc checksum_main {args} {
-        global UI_PREFIX all_dist_files checksums_array
+        global UI_PREFIX all_dist_files checksums_array portverbose
 
         # If no files have been downloaded, there is nothing to checksum.
@@ -226 +226 @@
                                         } else {
                                                 ui_error "[format [msgcat::mc "Checksum (%s) mismatch for %s"] $type $distfile]"
+                                                # if -v isn't specified, trash the distfile.
+                                                if {${portverbose} == "no"} {
+                                                        file delete -force ${fullpath}
+                                                }
                                                 ui_info "[format [msgcat::mc "Portfile checksum: %s %s %s"] $distfile $type $sum]"
                                                 ui_info "[format [msgcat::mc "Distfile checksum: %s %s %s"] $distfile $type $calculated_sum]"