Todo stub and help for new command "spawn".

2 files changed, 14 insertions, 0 deletions

diff --git a/kiki.hs b/kiki.hs
index 4ba9b4b..1143e04 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -54,6 +54,7 @@ import Control.Arrow   (first,second)
 import Data.Monoid ( (<>) )
 import Data.Binary.Put
 
+import CommandLine
 import Data.OpenPGP.Util (verify, fingerprint, GenerateKeyParams(..))
 import ScanningParser
 import PEM
@@ -1518,6 +1519,14 @@ kiki "init" args | "--help" `elem` args = do
         ] ++ documentHomeDir ++ [""] ++ documentPassphraseFDFlag True True True
 
 kiki "init" args = run args $ importAndRefresh <$> dashdashChroot <*> dashdashHomedir <*> dashdashCipher
+kiki "spawn" args | "--help" `elem` args =
+    putStr . unlines $
+        [ "kiki spawn [ --passphrase-fd=FD"
+        , "           | --homedir[=HOMEDIR]"
+        , "           | --cipher="++intercalate "|" (map ciphername ciphers)++" ]"
+        , "           <PATH>"
+        ]
+kiki "spawn" args = run args $ spawn <$> dashdashHomedir <*> dashdashCipher <*> param 0
 
 kiki "delete" args | "--help" `elem` args = do
     putStr . unlines $
@@ -1739,6 +1748,7 @@ commands =
  , ( "merge", "low level import/export operation" )
  -- , ( "init-key", "initialize the samizdat key ring")
  , ( "init", "Initialize kiki")
+ , ( "spawn", "Initialize a new, pre-authenticated, key set for use by another person.")
  , ( "delete", "Delete a subkey and its associated signatures" )
  , ( "rename", "Change the usage tag on a specified subkey" )
  --    also repairs signature and adds missing cross-certification.
diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index 6481b58..5201dac 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -148,6 +148,10 @@ outputReport report = do
     forM_ report $ \(fname,act) -> do
         putStrLn $ fname ++ ": " ++ reportString act
 
+spawn :: CommonArgsParsed -> SymmetricAlgorithm -> FilePath -> IO ()
+spawn cmn cipher path = do
+    putStrLn "TODO: implement keygen.sh replacement.sh"
+
 importAndRefresh :: (FilePath -> FilePath) -> CommonArgsParsed -> SymmetricAlgorithm -> IO ()
 importAndRefresh root cmn cipher = do
   let rootdir = do guard (root "x" /= "x")