From 5487ed305120ee9c511878b90e9770ac30e20324 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 22 Sep 2016 15:03:28 -0400 Subject: In --autostart mode, check for gpg keys that have not been backed up, and offer to back them up. Only ask once per key. This commit was sponsored by Thomas Hochstein on Patreon. --- CmdLine.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'CmdLine.hs') diff --git a/CmdLine.hs b/CmdLine.hs index 99414ff..4011f56 100644 --- a/CmdLine.hs +++ b/CmdLine.hs @@ -29,7 +29,7 @@ data CmdLine = CmdLine , serverConfig :: ServerConfig } -data Mode = Backup | Restore | UploadQueued | AutoStart | Server | GenBackup FilePath | RestoreBackup FilePath | Chaff HostName | Benchmark | Test +data Mode = Backup | Restore | UploadQueued | AutoStart | Server | BackupServer FilePath | RestoreServer FilePath | Chaff HostName | Benchmark | Test deriving (Show) data ServerConfig = ServerConfig @@ -121,12 +121,12 @@ parseMode = ( long "server" <> help "Run as a keysafe server, accepting objects and storing them to ~/.keysafe/objects/local/" ) - <|> GenBackup <$> strOption + <|> BackupServer <$> strOption ( long "backup-server" <> metavar "BACKUPDIR" <> help "Run on a server, populates the directory with a gpg encrypted backup of all objects stored in the --store-directory. This is designed to be rsynced offsite (with --delete) to back up the a keysafe server with minimal information leakage." ) - <|> RestoreBackup <$> strOption + <|> RestoreServer <$> strOption ( long "restore-server" <> metavar "BACKUPDIR" <> help "Restore all objects present in the gpg-encrypted backups in the specified directory." -- cgit v1.2.3