summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2016-05-03 12:58:56 +0200
committerjoe <joe@jerkface.net>2016-05-03 12:59:45 +0200
commitc4a01a2f5f8021f390c4f58b6e4ebc6a62557b9b (patch)
tree884849ca829c60066d9edac785169c3d474c5fe2
parentaa85e30ff97c2b4c94f47621bbe1372142a55b7e (diff)
nowtf
-rw-r--r--lib/Kiki.hs4
1 files changed, 2 insertions, 2 deletions
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
376 (_,(sout,serr)) <- runExternal "(f=$(mktemp); cat > \"$f\"; ssh-keygen -l -f \"$f\" | (read _ hash _; echo -n $hash.ssh.cryptonomic.net) | tr -d ':')" 376 (_,(sout,serr)) <- runExternal "(f=$(mktemp); cat > \"$f\"; ssh-keygen -l -f \"$f\" | (read _ hash _; echo -n $hash.ssh.cryptonomic.net) | tr -d ':')"
377 (Just $ sshblobFromPacket sshkey) 377 (Just $ sshblobFromPacket sshkey)
378 -- ssh-keygen -l -f /dev/stdin 378 -- ssh-keygen -l -f /dev/stdin
379 putStrLn $ "wtf="++show(sout,serr, sshblobFromPacket sshkey) 379 -- putStrLn $ "wtf="++show(sout,serr, sshblobFromPacket sshkey)
380 return $ strongswanForContact addr contactname (Char8.fromChunks [sout]) 380 return $ strongswanForContact addr contactname (Char8.fromChunks [sout])
381 [] -> error "fuck." 381 [] -> error "fuck."
382 return $ Char8.concat bss 382 return $ Char8.concat bss
@@ -421,7 +421,7 @@ refreshCache rt rootdir = do
421 421
422strongswanForContact addr oname rightip = Char8.unlines 422strongswanForContact addr oname rightip = Char8.unlines
423 [ "conn " <> oname 423 [ "conn " <> oname
424 , " right=" <> rightip 424 , " right=lan." <> rightip
425 , " rightsubnet=" <> p (showA addr) <> "/128" 425 , " rightsubnet=" <> p (showA addr) <> "/128"
426 , " rightauth=pubkey" 426 , " rightauth=pubkey"
427 , " rightid=" <> p (showA addr) 427 , " rightid=" <> p (showA addr)