Add --sftp-delay option.

1 files changed, 5 insertions, 0 deletions

diff --git a/seivot b/seivot
index ec2eb81..a395597 100755
--- a/seivot
+++ b/seivot
@@ -156,6 +156,7 @@ class Obnam(BackupProgram):
                '--no-default-configs',
                '--log', logfile,
                '--repository', self.repo,
+               '--sftp-delay', str(self.settings['sftp-delay']),
                '--weak-random']
         if self.settings['obnam-config']:
             cmd.extend(['--config', self.settings['obnam-config']])
@@ -233,6 +234,7 @@ class Obnam(BackupProgram):
             cp.set('meta', 'revision', self._revno)
         if self._larch_branch:
             cp.set('meta', 'larch-revision', self._larch_revno)
+        cp.set('meta', 'sftp-delay', str(self.settings['sftp-delay']))
 
 
 class BackupProgramFactory(object):
@@ -372,6 +374,9 @@ class Seivot(cliapp.Application):
         self.settings.boolean(['use-sftp-root'],
                               'access backup repository over the '
                                 'network via sftp')
+        self.settings.integer(['sftp-delay'],
+                              'add an artificial delay (in milliseconds) to '
+                                'all SFTP transfers')
 
         self.settings.boolean(['verify'], 'verify restored data')