X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=blackboard-dns.git;a=blobdiff_plain;f=ClientMain.hs;h=b96b430275439d3a2b1cc52784b195af52e8e23e;hp=b3090b39a7cb1dd3c7787fccf02c952df511646f;hb=3674500cd498050a48d69d1d30a6139ba3ba88f5;hpb=8109d2350f4c2855cd65b63c14efcb70fa3473c7

diff --git a/ClientMain.hs b/ClientMain.hs
index b3090b3..b96b430 100644
--- a/ClientMain.hs
+++ b/ClientMain.hs
@@ -56,7 +56,7 @@ makeReq
                       Just s@(_:_) -> return s
                       _            -> return defaultFqdn
 
-         putStrLn "Generating keypair..."
+         putStrLn "Generating RSA keypair..."
          key <- generateRSAKey 1024 3 Nothing
 
          let pubFile = fqdn ++ ".pub"
@@ -67,13 +67,14 @@ makeReq
          let keyFile = fqdn ++ ".key"
          withFile keyFile WriteMode $ \ h ->
              writePKCS8PrivateKey key Nothing >>= hPutStr h
-         setFileMode keyFile (ownerReadMode `unionFileModes` ownerWriteMode)
+         setFileMode keyFile ownerReadMode
          putStrLn ("Wrote " ++ keyFile ++ " (with no encryption)")
 
          req <- newX509Req
          setVersion     req 2
          setSubjectName req [("CN", fqdn)]
          setPublicKey   req key
+         signX509Req    req key Nothing
          let reqFile = fqdn ++ ".req"
          withFile reqFile WriteMode $ \ h ->
              writeX509Req req ReqNewFormat >>= hPutStr h