ipsec/newkey.cgi

   1 #!/usr/local/bin/perl
   2 # newkey.cgi
   3 # Generate a new host key
   4
   5 require './ipsec-lib.pl';
   6 &ReadParse();
   7 &error_setup($text{'newkey_err'});
   8 $in{'host'} =~ /^[a-z0-9\.\-]+$/i || &error($text{'newkey_ehost'});
   9 $out = &backquote_logged("$config{'ipsec'} newhostkey --output '$config{'secrets'}' --hostname '$in{'host'}' 2>&1");
  10 $? && &error("<pre>$out</pre>");
  11 &webmin_log("newkey");
  12 &redirect("");
  13