ldap-server/gencert_form.cgi

   1 #!/usr/local/bin/perl
   2 # Show a form for certificate generation
   3
   4 require './ldap-server-lib.pl';
   5 &local_ldap_server() == 1 || &error($text{'slapd_elocal'});
   6 $access{'slapd'} || &error($text{'slapd_ecannot'});
   7 &foreign_require("webmin", "webmin-lib.pl");
   8
   9 &ui_print_header(undef, $text{'gencert_title'}, "");
  10
  11 print $text{'gencert_desc'},"<p>\n";
  12 print &ui_form_start(&get_config_type() == 1 ? "gencert.cgi"
  13                                              : "gencert_ldif.cgi", "post");
  14 print &ui_table_start($text{'gencert_header'}, undef, 2, [ "width=30%" ]);
  15
  16 # Generic key options
  17 print &webmin::show_ssl_key_form(
  18         &get_display_hostname(), undef,
  19         "LDAP server on ".&get_display_hostname());
  20
  21 # Destination files
  22 if (&get_config_type() == 1) {
  23         $conf = &get_config();
  24         $cert = &find_value("TLSCertificateFile", $conf);
  25         }
  26 else {
  27         $conf = &get_ldif_config();
  28         $cert = &find_ldif_value(
  29                 "olcTLSCertificateFile", $conf, &get_config_db());
  30         }
  31 if ($cert) {
  32         print &ui_table_row($text{'gencert_dest'},
  33                 &ui_opt_textbox("dest", undef, 40, $text{'gencert_same'},
  34                                 $text{'gencert_dir'}));
  35         }
  36 else {
  37         print &ui_table_row($text{'gencert_dest2'},
  38                 &ui_textbox("dest", &get_config_dir(), 40));
  39         }
  40
  41 print &ui_table_end();
  42 print &ui_form_end([ [ "", $text{'gencert_create'} ] ]);
  43
  44 &ui_print_footer("", $text{'index_return'});
  45
  46