if ($start_of_cert && /^CKA_LABEL UTF8 \"(.*)\"/) {
$caname = $1;
}
- my $untrusted = 0;
+ my $untrusted = 1;
if ($start_of_cert && /^CKA_VALUE MULTILINE_OCTAL/) {
my $data;
while (<TXT>) {
# now scan the trust part for untrusted certs
while (<TXT>) {
last if (/^#/);
- if (/^CKA_TRUST_SERVER_AUTH\s+CK_TRUST\s+CKT_NSS_NOT_TRUSTED$/
- or /^CKA_TRUST_SERVER_AUTH\s+CK_TRUST\s+CKT_NSS_TRUST_UNKNOWN$/
- or /^CKA_TRUST_SERVER_AUTH\s+CK_TRUST\s+CKT_NSS_MUST_VERIFY_TRUST/) {
- $untrusted = 1;
+ if (/^CKA_TRUST_SERVER_AUTH\s+CK_TRUST\s+CKT_NSS_TRUSTED_DELEGATOR$/) {
+ $untrusted = 0;
}
}
if ($untrusted) {
myInsideCert = FALSE\r
While (i < UBound(myLines)) And Not (myLines(i) = "#")\r
i = i + 1\r
- If (InstrRev(myLines(i), "CKA_TRUST_SERVER_AUTH CK_TRUST CKT_NSS_NOT_TRUSTED") Or _\r
- InstrRev(myLines(i), "CKA_TRUST_SERVER_AUTH CK_TRUST CKT_NSS_TRUST_UNKNOWN") Or _\r
- InstrRev(myLines(i), "CKA_TRUST_SERVER_AUTH CK_TRUST CKT_NSS_MUST_VERIFY_TRUST")) Then\r
- myUntrusted = TRUE\r
+ If InstrRev(myLines(i), "CKA_TRUST_SERVER_AUTH CK_TRUST CKT_NSS_TRUSTED_DELEGATOR") Then\r
+ myUntrusted = FALSE\r
End If\r
Wend\r
If (myUntrusted = TRUE) Then\r
End If\r
If InstrRev(myLines(i), "CKA_VALUE MULTILINE_OCTAL") Then\r
myInsideCert = TRUE\r
- myUntrusted = FALSE\r
+ myUntrusted = TRUE\r
myData = ""\r
End If\r
If InstrRev(myLines(i), "***** BEGIN LICENSE BLOCK *****") Then\r