Overview
| Comment: | Be even more explicit about the necessary trailing whitespace. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | unsigned |
| Files: | files | file ages | folders |
| SHA1: |
69ba878ab2d430f682d0c6c39f40f356 |
| User & Date: | mistachkin on 2016-09-28 08:05:03 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-09-28
| ||
| 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 | |
Changes
Modified client/1.0/pkgr.eagle from [ca2ff25c2c] to [46acddae91].
| ︙ | ︙ | |||
203 204 205 206 207 208 209 |
#
# <public>
proc isPgpSignature { value } {
set length [string length $value]
if {$length == 0 || ([string first [string trim {
-----BEGIN PGP SIGNATURE-----
| | | | | 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 |
#
# <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
}
}
#
|
| ︙ | ︙ |