From 4060aa72904d77a13afad303a220d526e0ba7378 Mon Sep 17 00:00:00 2001 From: joe Date: Tue, 26 Apr 2016 04:41:51 -0400 Subject: clear cache before refresh. --- lib/Kiki.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'lib/Kiki.hs') diff --git a/lib/Kiki.hs b/lib/Kiki.hs index 6717c4b..333369f 100644 --- a/lib/Kiki.hs +++ b/lib/Kiki.hs @@ -19,6 +19,7 @@ import System.Directory import System.FilePath.Posix import System.IO import System.Posix.User +import System.Process import qualified Codec.Binary.Base64 as Base64 import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy.Char8 as Char8 @@ -230,6 +231,8 @@ refreshCache rt rootdir = do -- sshspathpub0 = fromMaybe "" rootdir ++ "/etc/ssh/ssh_host_rsa_key.pub" -- contactipsec0 = fromMaybe "" rootdir ++ "/etc/ipsec.d/certs/%(onion).pem" + callCommand ("rm -rf "++ mkpath "*") -- clean up, in case gpg altered the keyring. + -- Finally, export public keys if they do not exist. flip (maybe $ warn "missing working key?") (rtGrip rt) $ \grip -> do either warn (write $ mkpath "root/.ssh/id_rsa.pub") -- cgit v1.2.3