Changes In Branch unsigned Through [69ba878ab2] Excluding Merge-Ins
This is equivalent to a diff from e02a4ed613 to 69ba878ab2
|
2016-09-28
| ||
| 18:42 | Make the semantics used by the 'isPgpSignature' and 'isHarpyCertificate' procedures stricter. check-in: 2ab0ea3cbd user: mistachkin tags: trunk | |
| 08:23 | Make the semantics used by the 'isHarpyCertificate' procedure stricter. check-in: e61c339033 user: mistachkin tags: unsigned | |
| 08:05 | Be even more explicit about the necessary trailing whitespace. check-in: 69ba878ab2 user: mistachkin tags: unsigned | |
| 08:00 | Make the semantics used by the 'isPgpSignature' procedure stricter. check-in: af7c32d9f5 user: mistachkin tags: unsigned | |
|
2016-09-20
| ||
| 23:25 | Improve error handling in the 'getFileTempDirectory' procedure. check-in: e02a4ed613 user: mistachkin tags: trunk | |
|
2016-09-18
| ||
| 04:03 | Add the HTTP status code 300 as 'unsupported' instead of 'unrecognized'. check-in: 36c123618c user: mistachkin tags: trunk | |
Modified client/1.0/pkgr.eagle from [b5135a020e] to [46acddae91].
| ︙ | ︙ | |||
176 177 178 179 180 181 182 |
#
# NOTE: This procedure returns non-zero if the specified string value
# looks like a Harpy (script) certificate. The value argument
# is the string to check.
#
# <public>
proc isHarpyCertificate { value } {
| > > | | > > > > > | | > > | 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 |
#
# NOTE: This procedure returns non-zero if the specified string value
# looks like a Harpy (script) certificate. The value argument
# is the string to check.
#
# <public>
proc isHarpyCertificate { value } {
set length [string length $value]
if {$length == 0 || ([string first [string trim {
<?xml version="1.0" encoding="utf-8"?>
}] $value] == 0 && [string first [string trim {
<Certificate xmlns="https://eagle.to/2011/harpy"
}] $value] != -1)} then {
return true
} else {
return false
}
}
#
# NOTE: This procedure returns non-zero if the specified string value
# looks like an OpenPGP signature. The value argument is the
# string to check. The value 29 used within this procedure is
# the length of the literal string "-----END PGP SIGNATURE-----"
# followed by a carriage-return / line-feed pair, which means
# the value must be in DOS format.
#
# <public>
proc isPgpSignature { value } {
set length [string length $value]
if {$length == 0 || ([string first [string trim {
-----BEGIN PGP SIGNATURE-----
}] $value] == 0 && [string first [subst [string trim {
-----END PGP SIGNATURE-----\r\n
}]] $value] == ($length - 29))} then {
return true
} else {
return false
}
}
#
|
| ︙ | ︙ |