do 'sshd-lib.pl';
sub cgi_args
{
my ($cgi) = @_;
if ($cgi eq 'edit_keys.cgi') {
# Allows no args
return undef;
}
elsif ($cgi eq 'edit_host.cgi') {
# First client host
my $hconf = &get_client_config();
return @$hconf ? 'idx=0' : 'new=1';
}
return undef;
}