Added CGI args parser

sshd/cgi_args.pl

@@ -0,0 +1,17 @@
+
+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;
+}