From 334525e552b1da967c9f5b0576473c13bd2fd896 Mon Sep 17 00:00:00 2001 From: joe Date: Mon, 25 Apr 2016 21:02:28 -0400 Subject: cokiki replace ssh-server key. --- cokiki.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'cokiki.hs') diff --git a/cokiki.hs b/cokiki.hs index 899608b..18fdd9f 100644 --- a/cokiki.hs +++ b/cokiki.hs @@ -78,9 +78,10 @@ sshClient uid root cmn = do return $ Just (sshconfig ++ parseSshConfig stmt) sshconfig' `deepseq` return () -- force lazy input maybe (return ()) (myWriteFile (root "/etc/ssh/ssh_config") . unparseSshConfig) sshconfig' + -- /root/.gnupg/... <-- contains known hosts from /etc/ssh/ssh_known_hosts - Kiki.refresh root cmn -- /var/cache/kiki/ssh_known_hosts <-- contains known hosts from /root/.gnupg/... + Kiki.replaceSshServerKeys root cmn sshServer = do -- /etc/ssh/sshd_config <-- 'HostKey /var/cache/kiki/ssh_host_ecdsa_key' etc. -- cgit v1.2.3