webmin/edit_ipkey.cgi

   1 #!/usr/local/bin/perl
   2 # Show an IP-specific SSL key
   3
   4 require './webmin-lib.pl';
   5 &ReadParse();
   6 &get_miniserv_config(\%miniserv);
   7 if ($in{'new'}) {
   8         &ui_print_header(undef, $text{'ipkey_title1'}, "");
   9         }
  10 else {
  11         &ui_print_header(undef, $text{'ipkey_title2'}, "");
  12         @ipkeys = &get_ipkeys(\%miniserv);
  13         $ipkey = $ipkeys[$in{'idx'}];
  14         }
  15
  16 print &ui_form_start("save_ipkey.cgi", "post");
  17 print &ui_hidden("new", $in{'new'}),"\n";
  18 print &ui_hidden("idx", $in{'idx'}),"\n";
  19 print &ui_table_start($text{'ipkey_header'}, undef, 2);
  20
  21 print &ui_table_row($text{'ipkey_ips'},
  22                     &ui_textarea("ips", join("\n", @{$ipkey->{'ips'}}),
  23                                  3, 20));
  24
  25 print &ui_table_row($text{'ssl_key'},
  26                     &ui_textbox("key", $ipkey->{'key'}, 40)."\n".
  27                     &file_chooser_button("key"));
  28
  29 print &ui_table_row($text{'ssl_cert'},
  30                     &ui_opt_textbox("cert", $ipkey->{'cert'}, 40,
  31                                 $text{'ssl_cert_def'})."\n".
  32                     &file_chooser_button("cert"));
  33
  34 $mode = $ipkey->{'extracas'} eq "none" ? 2 :
  35         $ipkey->{'extracas'} ? 1 : 0;
  36 print &ui_table_row($text{'ssl_extracas'},
  37         &ui_radio("extracas_mode", $mode,
  38                   [ [ 0, $text{'ssl_extracasdef'} ],
  39                     [ 2, $text{'ssl_extracasnone'} ],
  40                     [ 1, $text{'ssl_extracasbelow'} ] ])."<br>\n".
  41         &ui_textarea("extracas",
  42                      $mode == 1 ? join("\n",split(/\s+/, $ipkey->{'extracas'}))
  43                                 : "",
  44                      3, 60)." ".
  45         &file_chooser_button("extracas", 0, undef, undef, 1));
  46
  47 print &ui_table_end();
  48 if ($in{'new'}) {
  49         print &ui_form_end([ [ "create", $text{'create'} ] ]);
  50         }
  51 else {
  52         print &ui_form_end([ [ "save", $text{'save'} ],
  53                              [ "delete", $text{'delete'} ] ]);
  54         }
  55
  56 &ui_print_footer("edit_ssl.cgi", $text{'ssl_return'});
  57