Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:Evergreen:11.2
openssl-certs
extractcerts.pl
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File extractcerts.pl of Package openssl-certs
#!/usr/bin/perl -w # # ***** BEGIN LICENSE BLOCK ***** # Version: MPL 1.1/GPL 2.0/LGPL 2.1 # # The contents of this file are subject to the Mozilla Public License Version # 1.1 (the "License"); you may not use this file except in compliance with # the License. You may obtain a copy of the License at # http://www.mozilla.org/MPL/ # # Software distributed under the License is distributed on an "AS IS" basis, # WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License # for the specific language governing rights and limitations under the # License. # # The Original Code is the Netscape security libraries. # # The Initial Developer of the Original Code is # Netscape Communications Corporation. # Portions created by the Initial Developer are Copyright (C) 1994-2000 # the Initial Developer. All Rights Reserved. # # Contributor(s): # # Alternatively, the contents of this file may be used under the terms of # either the GNU General Public License Version 2 or later (the "GPL"), or # the GNU Lesser General Public License Version 2.1 or later (the "LGPL"), # in which case the provisions of the GPL or the LGPL are applicable instead # of those above. If you wish to allow use of your version of this file only # under the terms of either the GPL or the LGPL, and not to allow others to # use your version of this file under the terms of the MPL, indicate your # decision by deleting the provisions above and replace them with the notice # and other provisions required by the GPL or the LGPL. If you do not delete # the provisions above, a recipient may use your version of this file under # the terms of any one of the MPL, the GPL or the LGPL. # # ***** END LICENSE BLOCK ***** use strict; use bytes; my $count = 0; my @certificates = (); my %trusts = (); my $object = undef; sub handle_object($) { my $object = shift; return unless $object; if($object->{'CKA_CLASS'} eq 'CKO_CERTIFICATE' && $object->{'CKA_CERTIFICATE_TYPE'} eq 'CKC_X_509') { push @certificates, $object; } elsif ($object->{'CKA_CLASS'} eq 'CKO_NETSCAPE_TRUST') { my $label = $object->{'CKA_LABEL'}; die "$label exists" if exists($trusts{$label}); $trusts{$label} = $object; } else { print STDERR "class ", $object->{'CKA_CLASS'} ," not handled\n"; } } while(<>) { my @fields = (); s/^((?:[^"#]+|"[^"]*")*)(\s*#.*$)/$1/; next if (/^\s*$/); if( /(^CVS_ID\s+)(.*)/ ) { next; } # This was taken from the perl faq #4. my $text = $_; push(@fields, $+) while $text =~ m{ "([^\"\\]*(?:\\.[^\"\\]*)*)"\s? # groups the phrase inside the quotes | ([^\s]+)\s? | \s }gx; push(@fields, undef) if substr($text,-1,1) eq '\s'; if( $fields[0] =~ /BEGINDATA/ ) { next; } if( $fields[1] =~ /MULTILINE/ ) { $fields[2] = ""; while(<>) { last if /END/; chomp; $fields[2] .= $_; } } if( $fields[0] =~ /CKA_CLASS/ ) { $count++; handle_object($object); $object = {}; } $object->{$fields[0]} = $fields[2]; } handle_object($object); use MIME::Base64; for my $cert (@certificates) { my $file = $cert->{'CKA_LABEL'}; if(!exists($trusts{$file})) { print STDERR "NO TRUST: $file\n"; next; } # check trust. We only include certificates that are trusted for identifying # web sites my $trust = $trusts{$file}; if($trust->{'CKA_TRUST_SERVER_AUTH'} ne 'CKT_NETSCAPE_TRUSTED_DELEGATOR') { my $t = $trust->{'CKA_TRUST_SERVER_AUTH'}; $t =~ s/CKT_NETSCAPE_//; print STDERR "$t: $file\n"; next; } $file =~ s/[^[:alnum:]]/_/g; $file .= '.pem'; open (O, '>', $file); print "$file\n"; my $value = $cert->{'CKA_VALUE'}; my $enc = ''; $enc .= pack("C", oct($+)) while $value =~ /\G\\([0-3][0-7][0-7])/g; print O "-----BEGIN CERTIFICATE-----\n"; print O encode_base64($enc); print O "-----END CERTIFICATE-----\n"; close O; }
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor