698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
|
}
} else {
return false
}
}
#
# NOTE: This procedure attempts to verify the OpenPGP signature file that
# is associated with the specified file. The forcePgp parameter is
# used to force verification attempts to be performed even when the
# file does not appear to be an OpenPGP signature file.
#
proc maybeVerifyOpenPgpSignature { fileName forcePgp } {
#
# NOTE: Is this temporary package file actually just an OpenPGP
# signature file? If so, skip it.
#
if {$forcePgp || \
|
|
|
|
|
|
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
|
}
} else {
return false
}
}
#
# NOTE: This procedure attempts to verify the specified OpenPGP signature
# file. If the forcePgp parameter is non-zero verification will be
# attempted even when the specified file does not appear to be an
# OpenPGP signature file. This procedure may raise script errors.
#
proc maybeVerifyOpenPgpSignature { fileName forcePgp } {
#
# NOTE: Is this temporary package file actually just an OpenPGP
# signature file? If so, skip it.
#
if {$forcePgp || \
|