Lines Matching +full:label +full:- +full:revision
3 ## MAca-bundle.pl -- Regenerate ca-root-nss.crt from the Mozilla certdata.txt
58 or die("Error in command line arguments\n$0 [-d] [-i input-file] [-o output-dir]\n");
67 my $label = shift;
72 ## $label
88 ## ca-root-nss.crt -- Bundle of CA Root Certificates
108 return sprintf "%02d%02d%02d%02d%02d%02dZ", $year-100, $mon+1, $mday, $hour, $min, $sec;
113 my ($fh, $label, $certdata) = @_;
115 open(OUT, "|openssl x509 -text -inform DER -fingerprint")
121 # converts a datastream that is to be \177-style octal constants
168 …printf STDERR "line $.: $cka_label ser #%d: distrust after %s, now: %s -> distrust $distrust\n", $…
227 my ($serial, $label, $certdata) = grabcert($inputfh);
228 if (defined $certs{$label."\0".$serial}) {
229 warn "Certificate $label duplicated!\n";
232 $certs{$label."\0".$serial} = $certdata;
233 # We store the label in a separate hash because truncating the key
235 $labels{$label."\0".$serial} = $label;
240 my ($serial, $label, $trust) = grabtrust($inputfh);
241 if (defined $trusts{$label."\0".$serial}) {
242 warn "Trust for $label duplicated!\n";
244 $trusts{$label."\0".$serial} = $trust;
245 $labels{$label."\0".$serial} = $label;
246 } elsif (/^CVS_ID.*Revision: ([^ ]*).*/) {
247 print "## Source: \"certdata.txt\" CVS revision $1\n##\n\n";
253 map { s/\0.*//; s/[^[:alnum:]\-]/_/g; $_ = "$_.pem"; } @res;