signreq

[blackboard-dns.git] / ClientMain.hs

diff --git a/ClientMain.hs b/ClientMain.hs
index b3090b39a7cb1dd3c7787fccf02c952df511646f..b96b430275439d3a2b1cc52784b195af52e8e23e 100644 (file)
--- 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