Sean Cox <throwarock@gmail.com>

Updated edit_keys.cgi to support default keys in case there are no
HostKey entries in the config file. It will search the same folder
as the config file.

diff --git a/sshd/edit_keys.cgi b/sshd/edit_keys.cgi
index 93325bc..4d0201e 100755 (executable)
--- a/sshd/edit_keys.cgi
+++ b/sshd/edit_keys.cgi
@@ -2,12 +2,28 @@
 # Show a page for manually editing host keys
 # Only displays keys for now
 
+use File::Basename;
 require './sshd-lib.pl';
 &ReadParse();
 &ui_print_header(undef, $text{'keys_title'}, "");
 
 # Work out and show the files
 @files = &get_mlvalues($config{'sshd_config'}, "HostKey");
+
+# If there are no HostKey entries assume default keys in use
+
+if (scalar(@files) == 0) {
+       if (-r (dirname($config{'sshd_config'}) . '/ssh_host_rsa_key')) {
+               push(@files, (dirname($config{'sshd_config'}) . '/ssh_host_rsa_key'));
+               }
+       if (-r (dirname($config{'sshd_config'}) . '/ssh_host_dsa_key')) {
+               push(@files, (dirname($config{'sshd_config'}) . '/ssh_host_dsa_key'));
+               }
+       if (-r (dirname($config{'sshd_config'}) . '/ssh_host_key')) {
+               push(@files, (dirname($config{'sshd_config'}) . '/ssh_host_key'));
+               }
+       }
+
 foreach $key (@files) {
         $key = $key . ".pub";
         }