sshd/edit_sync.cgi

   1 #!/usr/local/bin/perl
   2 # edit_sync.cgi
   3 # Display options for the automatic setting up of SSH for new users
   4
   5 require './sshd-lib.pl';
   6 &ui_print_header(undef, $text{'sync_title'}, "");
   7
   8 print "$text{'sync_desc'}<p>\n";
   9 print &ui_form_start("save_sync.cgi");
  10 print &ui_table_start(undef, 2, 2);
  11
  12 # Create keys for new users
  13 print &ui_table_row($text{'sync_create'},
  14         &ui_yesno_radio("create", $config{'sync_create'}));
  15
  16 # Authorize own key
  17 print &ui_table_row($text{'sync_auth'},
  18         &ui_yesno_radio("auth", $config{'sync_auth'}));
  19
  20 # Use password as passphrase
  21 print &ui_table_row($text{'sync_pass'},
  22         &ui_yesno_radio("pass", $config{'sync_pass'}));
  23
  24 # Key type
  25 print &ui_table_row($text{'sync_type'},
  26       &ui_select("type", $config{'sync_type'},
  27                  [ [ "", $text{'sync_auto'} ],
  28                    [ "rsa" ], [ "dsa" ], [ "rsa1" ] ]));
  29
  30 print &ui_table_end();
  31 print &ui_form_end([ [ undef, $text{'save'} ] ]);
  32
  33 &ui_print_footer("", $text{'index_return'});
  34