From c4a01a2f5f8021f390c4f58b6e4ebc6a62557b9b Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Tue, 3 May 2016 12:58:56 +0200
Subject: nowtf

---
 lib/Kiki.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/Kiki.hs')

diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index f21e8d8..f5490e0 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -376,7 +376,7 @@ refreshCache rt rootdir = do
                             (_,(sout,serr)) <- runExternal "(f=$(mktemp); cat > \"$f\"; ssh-keygen -l -f \"$f\" | (read _ hash _; echo -n $hash.ssh.cryptonomic.net) | tr -d ':')"
                                                             (Just $ sshblobFromPacket sshkey)
                             -- ssh-keygen -l -f /dev/stdin
-                            putStrLn $ "wtf="++show(sout,serr, sshblobFromPacket sshkey)
+                            -- putStrLn $ "wtf="++show(sout,serr, sshblobFromPacket sshkey)
                             return $ strongswanForContact addr contactname (Char8.fromChunks [sout])
                         [] -> error "fuck."
             return $ Char8.concat bss
@@ -421,7 +421,7 @@ refreshCache rt rootdir = do
 
 strongswanForContact addr oname rightip = Char8.unlines
     [ "conn " <> oname
-    , "  right=" <> rightip
+    , "  right=lan." <> rightip
     , "  rightsubnet=" <> p (showA addr) <> "/128"
     , "  rightauth=pubkey"
     , "  rightid=" <> p (showA addr)
-- 
cgit v1.2.3