From 6ae39c606917426b92109de56b815592320d2cb9 Mon Sep 17 00:00:00 2001
From: Lars Wirzenius <liw@liw.fi>
Date: Tue, 13 Sep 2011 12:42:51 +0100
Subject: Add --sftp-delay option.

---
 seivot | 5 +++++
 1 file changed, 5 insertions(+)

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')
         
-- 
cgit v1.2.1