diff options
Diffstat (limited to 'kiki.hs')
-rw-r--r-- | kiki.hs | 16 |
1 files changed, 16 insertions, 0 deletions
@@ -1636,6 +1636,21 @@ kiki "verify" argvals = | |||
1636 | Left er -> hPutStrLn stderr $ usageErrorMessage er | 1636 | Left er -> hPutStrLn stderr $ usageErrorMessage er |
1637 | Right io -> io | 1637 | Right io -> io |
1638 | 1638 | ||
1639 | kiki "sign" args | "--help" `elem` args = do | ||
1640 | putStr . unlines $ | ||
1641 | [ "kiki sign [--homedir HOMEDIR | --homeless] [[--keyring FILE] ...] --with-key KEYID FILE" | ||
1642 | ] | ||
1643 | kiki "sign" argvals = | ||
1644 | let opts = [("--homedir",1),("--keyring",1),("--homeless",0),("--with-key",1)] | ||
1645 | in case runArgs (parseInvocation (fancy opts [] "") argvals) | ||
1646 | (signFile <$> flag "--homeless" | ||
1647 | <*> dashdashHomedir | ||
1648 | <*> args "--keyring" | ||
1649 | <*> arg "--with-key" | ||
1650 | <*> param 0) of | ||
1651 | Left er -> hPutStrLn stderr $ usageErrorMessage er | ||
1652 | Right io -> io | ||
1653 | |||
1639 | kiki cmd args = hPutStrLn stderr $ "I don't know how to "++cmd++"." | 1654 | kiki cmd args = hPutStrLn stderr $ "I don't know how to "++cmd++"." |
1640 | 1655 | ||
1641 | sshkeyname :: Packet -> [FilePath] | 1656 | sshkeyname :: Packet -> [FilePath] |
@@ -1684,6 +1699,7 @@ commands = | |||
1684 | -- also repairs signature and adds missing cross-certification. | 1699 | -- also repairs signature and adds missing cross-certification. |
1685 | , ( "tar", "import or export system key files in tar format" ) | 1700 | , ( "tar", "import or export system key files in tar format" ) |
1686 | , ( "verify", "Check a clear-sign pgp signature." ) | 1701 | , ( "verify", "Check a clear-sign pgp signature." ) |
1702 | , ( "sign", "Create a detached signature for a given file.") | ||
1687 | ] | 1703 | ] |
1688 | 1704 | ||
1689 | main :: IO () | 1705 | main :: IO () |