[svn] New option --random-wait.

[wget] / src / retr.c

diff --git a/src/retr.c b/src/retr.c
index 93ef7db55f1e169ef18a3f93d6e5186519f4ba46..b8fb6c84b3a05e348a2784705294890438f7a670 100644 (file)
--- a/src/retr.c
+++ b/src/retr.c
@@ -560,8 +560,18 @@ sleep_between_retrievals (int count)
            sleep (opt.waitretry);
        }
       else if (opt.wait)
-       /* Otherwise, check if opt.wait is specified.  If so, sleep.  */
-       sleep (opt.wait);
+       {
+         /* Otherwise, check if opt.wait is specified.  If so, sleep.  */
+         if (count > 1 || !opt.random_wait)
+           sleep (opt.wait);
+         else
+           {
+             int waitsecs = random() % (opt.wait * 2 + 1);
+             DEBUGP(("sleep_between_retrievals: norm=%ld,random=%ld,sleep=%d\n",
+                     opt.wait, waitsecs - opt.wait, waitsecs));
+             sleep(waitsecs);
+           }
+       }
     }
   if (first_retrieval)
     first_retrieval = 0;