sshd/edit_access.cgi

   1 #!/usr/local/bin/perl
   2 # edit_access.cgi
   3 # Display access control SSHd options
   4
   5 require './sshd-lib.pl';
   6 &ui_print_header(undef, $text{'access_title'}, "", "access");
   7 $conf = &get_sshd_config();
   8
   9 print &ui_form_start("save_access.cgi", "post");
  10 print &ui_table_start($text{'access_header'}, "width=100%", 2);
  11
  12 if ($version{'type'} eq 'ssh') {
  13         # Allowed and denied hosts
  14         @allowh = &find_value("AllowHosts", $conf);
  15         print &ui_table_row($text{'access_allowh'},
  16                 &ui_opt_textbox("allowh", join(" ", @allowh), 60,
  17                                 $text{'access_all'}));
  18
  19         @denyh = &find_value("DenyHosts", $conf);
  20         print &ui_table_row($text{'access_denyh'},
  21                 &ui_opt_textbox("denyh", join(" ", @denyh), 60,
  22                                 $text{'access_all'}));
  23
  24         print &ui_table_hr();
  25         }
  26
  27 $commas = $version{'type'} eq 'ssh' && $version{'number'} >= 3.2;
  28
  29 # Allowed users
  30 @allowu = &find_value("AllowUsers", $conf);
  31 $allowu = $commas ? join(" ", split(/,/, $allowu[0]))
  32                   : join(" ", @allowu);
  33 print &ui_table_row($text{'access_allowu'},
  34         &ui_opt_textbox("allowu", $allowu, 60, $text{'access_all'})." ".
  35         &user_chooser_button("allowu", 1));
  36
  37 # Allowed groups
  38 @allowg = &find_value("AllowGroups", $conf);
  39 $allowg = $commas ? join(" ", split(/,/, $allowg[0]))
  40                   : join(" ", @allowg);
  41 print &ui_table_row($text{'access_allowg'},
  42         &ui_opt_textbox("allowg", $allowg, 60, $text{'access_all'})." ".
  43         &group_chooser_button("allowg", 1));
  44
  45 # Denied users
  46 @denyu = &find_value("DenyUsers", $conf);
  47 $denyu = $commas ? join(" ", split(/,/, $denyu[0]))
  48                  : join(" ", @denyu);
  49 print &ui_table_row($text{'access_denyu'},
  50         &ui_opt_textbox("denyu", $denyu, 60, $text{'access_all'})." ".
  51         &user_chooser_button("denyu", 1));
  52
  53 # Denied groups
  54 @denyg = &find_value("DenyGroups", $conf);
  55 $denyg = $commas ? join(" ", split(/,/, $denyg[0]))
  56                  : join(" ", @denyg);
  57 print &ui_table_row($text{'access_denyg'},
  58         &ui_opt_textbox("denyg", $denyg, 60, $text{'access_all'})." ".
  59         &group_chooser_button("denyg", 1));
  60
  61 if ($version{'type'} eq 'ssh' && $version{'number'} < 2) {
  62         print &ui_table_hr();
  63
  64         # Silently deny users
  65         $silent = &find_value("SilentDeny", $conf);
  66         print &ui_table_row($text{'access_silent'},
  67                 &ui_yesno_radio("silent", lc($silent) eq 'yes'));
  68         }
  69
  70 print &ui_table_end();
  71 print &ui_form_end([ [ undef, $text{'save'} ] ]);
  72
  73 &ui_print_footer("", $text{'index_return'});
  74