PAL.C.T MINI SHELL
#!/usr/bin/perl
# Output the certificate in PEM or PKCS12 format
require './webmin-lib.pl';
&ReadParse();
&get_miniserv_config(\%miniserv);
if ($ENV{'PATH_INFO'} =~ /\.p12$/) {
# PKCS12 format
$data = &cert_pkcs12_data($miniserv{'keyfile'}, $miniserv{'certfile'});
$type = "application/x-pkcs12";
}
else {
# PEM format
$data = &cert_pem_data($miniserv{'certfile'} || $miniserv{'keyfile'});
$type = "text/plain";
}
if ($data) {
print "Content-type: $type\n\n";
print $data;
}
else {
&error($text{'ssl_edownload'});
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`