mirror of
https://github.com/webmin/webmin.git
synced 2026-02-08 08:19:57 +00:00
29 lines
680 B
Perl
Executable File
29 lines
680 B
Perl
Executable File
#!/usr/local/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);
|