Current File : //usr/share/webmin/webmin/change_ca.cgi |
#!/usr/bin/perl
# change_ca.cgi
# Update the CA cert manually
require './webmin-lib.pl';
&ReadParseMime();
&lock_file($ENV{'MINISERV_CONFIG'});
&get_miniserv_config(\%miniserv);
if (!$miniserv{'ca'}) {
&setup_ca(\%miniserv);
}
&lock_file($miniserv{'ca'});
&open_tempfile(CA, ">$miniserv{'ca'}");
$in{'cert'} =~ s/\r//g;
$in{'cert'} =~ s/\n*$/\n/;
&print_tempfile(CA, $in{'cert'});
&close_tempfile(CA);
chmod(0700, $miniserv{'ca'});
&unlock_file($miniserv{'ca'});
unlink("$config_directory/acl/crl.pem");
&put_miniserv_config(\%miniserv);
&unlock_file($ENV{'MINISERV_CONFIG'});
&redirect("");
sleep(1);
&show_restart_page();
&webmin_log("changeca", undef, undef, \%in);