webmin/stop_ca.cgi

   1 #!/usr/local/bin/perl
   2 # stop_ca.cgi
   3 # Remove all the CA files
   4
   5 require './webmin-lib.pl';
   6 &lock_file($ENV{'MINISERV_CONFIG'});
   7 &get_miniserv_config(\%miniserv);
   8 delete($miniserv{'ca'});
   9 &put_miniserv_config(\%miniserv);
  10 &unlock_file($ENV{'MINISERV_CONFIG'});
  11
  12 $acl = "$config_directory/acl";
  13 &lock_file("$acl/ca.pem");
  14 unlink("$acl/ca.pem");
  15 &unlock_file("$acl/ca.pem");
  16
  17 &lock_file("$acl/index.txt");
  18 unlink("$acl/index.txt");
  19 &unlock_file("$acl/index.txt");
  20
  21 &lock_file("$acl/index.txt.old");
  22 unlink("$acl/index.txt.old");
  23 &unlock_file("$acl/index.txt.old");
  24
  25 &lock_file("$acl/openssl.cnf");
  26 unlink("$acl/openssl.cnf");
  27 &unlock_file("$acl/openssl.cnf");
  28
  29 &lock_file("$acl/serial");
  30 unlink("$acl/serial");
  31 &lock_file("$acl/serial");
  32
  33 &lock_file("$acl/serial.old");
  34 unlink("$acl/serial.old");
  35 &unlock_file("$acl/serial.old");
  36 &system_logged("rm -rf $acl/newcerts");
  37
  38 &ui_print_header(undef, $text{'ca_title'}, "");
  39 print "<p>$text{'ca_stopok'}<p>\n";
  40 &ui_print_footer("", $text{'index_return'});
  41 &restart_miniserv(1);
  42 &webmin_log("stopca", undef, undef);
  43