Warning, /frameworks/kdelibs4support/src/kssl/kssl/mergelocal is written in an unsupported language. File is not indexed.
0001 : 0002 eval 'exec perl -S $0 ${1+"$@"}' 0003 if $running_under_some_shell; 0004 0005 ## 0006 ## Merge the local certificates 0007 ## 0008 0009 $date = `date`; 0010 $date =~ s|\n$||; 0011 open(BDL, ">>ksslcalist") || die; 0012 open(CDL, ">>caroot/ca-bundle.crt") || die; 0013 open(IDX, "<localcerts") || die; 0014 0015 while (<IDX>) { 0016 $filename = $_; 0017 chomp($filename); 0018 0019 stat($filename); 0020 next if ! -r _; 0021 0022 print STDERR "Bundling: $filename\n"; 0023 $pem = `cat $filename`; 0024 print CDL "\n$pem\n"; 0025 $pem =~ s|[\n\r]||g; 0026 $pem =~ s|-----BEGIN CERTIFICATE-----||; 0027 $pem =~ s|-----END CERTIFICATE-----||; 0028 $subj = `openssl x509 -in $filename -inform PEM -noout -subject`; 0029 $_ = $subj; 0030 if ( /[Oo]bject/ || /[Cc]ode/ ) { 0031 $codeSubj = 1; 0032 } else { 0033 $codeSubj = 0; 0034 } 0035 $subj =~ s|\n$||; 0036 $subj =~ s/^subject= //; 0037 $purpose = `openssl x509 -in $filename -inform PEM -noout -purpose`; 0038 print BDL "\n"; 0039 print BDL "[$subj]\n"; 0040 print BDL "x509=$pem\n"; 0041 # 0042 $_ = $purpose; 0043 if ( /server CA : Yes\n/ || /client CA : Yes\n/ || (/Any Purpose CA : Yes\n/ && (/client : Yes\n/ || /server : Yes\n/ ))) { 0044 print BDL "site=true\n"; 0045 } else { 0046 print BDL "site=false\n"; 0047 } 0048 # 0049 if ( /MIME signing CA : Yes\n/ || /MIME encryption CA : Yes\n/ ) { 0050 print BDL "email=true\n"; 0051 } else { 0052 print BDL "email=false\n"; 0053 } 0054 # 0055 if ( /Any Purpose CA : Yes\n/ && $codeSubj == 1) { 0056 print BDL "code=true\n"; 0057 } else { 0058 print BDL "code=false\n"; 0059 } 0060 0061 } 0062 close(BDL); 0063 close(CDL); 0064 close(IDX); 0065