sshd/cgi_args.pl

   1
   2 do 'sshd-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 if ($cgi eq 'edit_keys.cgi') {
   8         # Allows no args
   9         return undef;
  10         }
  11 elsif ($cgi eq 'edit_host.cgi') {
  12         # First client host
  13         my $hconf = &get_client_config();
  14         return @$hconf ? 'idx=0' : 'new=1';
  15         }
  16 return undef;
  17 }