#!/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);