Added CGI args parser

diff --git a/sshd/cgi_args.pl b/sshd/cgi_args.pl
new file mode 100644 (file)
index 0000000..4352774
--- /dev/null
+++ b/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;
+}