certmgr/save_manual.cgi

   1 #!/usr/local/bin/perl
   2 # Update the manually edited config file
   3
   4 require './certmgr-lib.pl';
   5 &ReadParseMime();
   6 &error_setup($text{'manual_err'});
   7
   8 $in{'data'} =~ s/\r//g;
   9 $in{'data'} =~ /\S/ || &error($text{'manual_edata'});
  10
  11 &open_lock_tempfile(DATA, ">$config{'ssl_cnf_file'}");
  12 &print_tempfile(DATA, $in{'data'});
  13 &close_tempfile(DATA);
  14
  15 &redirect("");
  16