From 5d8cfbd9044f91d277027d8c1aab3c47e118b407 Mon Sep 17 00:00:00 2001
From: hniksic <devnull@localhost>
Date: Thu, 2 Mar 2000 06:45:37 -0800
Subject: [PATCH] [svn] Applied contributed patches (see ChangeLog for
 details.)

---
 src/ChangeLog |  4 ++++
 src/ftp.c     | 13 ++++++++++---
 src/http.c    | 28 ++++++++++++++++++----------
 src/init.c    |  3 ++-
 src/main.c    | 14 ++++++++++++++
 src/options.h |  3 ++-
 6 files changed, 50 insertions(+), 15 deletions(-)

diff --git a/src/ChangeLog b/src/ChangeLog
index e60b55bc..07d3808a 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+1999-08-25  Heiko Herold  <Heiko.Herold@previnet.it>
+
+	* ftp.c: Respect new option waitretry.
+
 2000-01-30  Damir Dzeko  <ddzeko@zesoi.fer.hr>
 
 	* http.c (gethttp): Send custom Referer, if required.
diff --git a/src/ftp.c b/src/ftp.c
index 9077c674..e5a2925e 100644
--- a/src/ftp.c
+++ b/src/ftp.c
@@ -852,9 +852,16 @@ ftp_loop_internal (struct urlinfo *u, struct fileinfo *f, ccon *con)
       /* Increment the pass counter.  */
       ++count;
       /* Wait before the retrieval (unless this is the very first
-	 retrieval).  */
-      if (!first_retrieval && opt.wait)
-	sleep (opt.wait);
+	 retrieval).
+	 Check if we are retrying or not, wait accordingly - HEH */
+      if (!first_retrieval && (opt.wait || (count && opt.waitretry)))
+	if (count)
+	  if (count<opt.waitretry)
+	    sleep(count);
+	  else
+	    sleep(opt.waitretry);
+	else
+	  sleep (opt.wait);
       if (first_retrieval)
 	first_retrieval = 0;
       if (con->st & ON_YOUR_OWN)
diff --git a/src/http.c b/src/http.c
index 8373133b..3403648a 100644
--- a/src/http.c
+++ b/src/http.c
@@ -488,13 +488,14 @@ User-Agent: %s\r\n\
 Host: %s%s\r\n\
 Accept: %s\r\n\
 %s%s%s%s%s%s\r\n",
-	  command, path, qstring, useragent, remhost, host_port ? host_port : "",
-	  HTTP_ACCEPT, referer ? referer : "",
-	  wwwauth ? wwwauth : "", 
-	  proxyauth ? proxyauth : "", 
-	  range ? range : "",
-	  pragma_h, 
-	  opt.user_header ? opt.user_header : "");
+	   command, path, qstring ? qstring : "", useragent, remhost,
+	   host_port ? host_port : "",
+	   HTTP_ACCEPT, referer ? referer : "",
+	   wwwauth ? wwwauth : "", 
+	   proxyauth ? proxyauth : "", 
+	   range ? range : "",
+	   pragma_h, 
+	   opt.user_header ? opt.user_header : "");
   DEBUGP (("---request begin---\n%s---request end---\n", request));
    /* Free the temporary memory.  */
   FREE_MAYBE (wwwauth);
@@ -957,9 +958,16 @@ File `%s' already there, will not retrieve.\n"), u->local);
       /* Increment the pass counter.  */
       ++count;
       /* Wait before the retrieval (unless this is the very first
-	 retrieval).  */
-      if (!first_retrieval && opt.wait)
-	sleep (opt.wait);
+	 retrieval).
+	 Check if we are retrying or not, wait accordingly - HEH */
+      if (!first_retrieval && (opt.wait || (count && opt.waitretry)))
+	if (count)
+	  if (count<opt.waitretry)
+	    sleep(count);
+	  else
+	    sleep(opt.waitretry);
+	else
+	  sleep (opt.wait);
       if (first_retrieval)
 	first_retrieval = 0;
       /* Get the current time string.  */
diff --git a/src/init.c b/src/init.c
index 83c954b1..45ae3545 100644
--- a/src/init.c
+++ b/src/init.c
@@ -151,7 +151,8 @@ static struct {
   { "useproxy",		&opt.use_proxy,		cmd_boolean },
   { "useragent",	NULL,			cmd_spec_useragent },
   { "verbose",		&opt.verbose,		cmd_boolean },
-  { "wait",		&opt.wait,		cmd_time }
+  { "wait",		&opt.wait,		cmd_time },
+  { "waitretry",	&opt.waitretry,		cmd_time }
 };
 
 /* Return index of COM if it is a valid command, or -1 otherwise.  COM
diff --git a/src/main.c b/src/main.c
index a70e1119..6e4f7bc6 100644
--- a/src/main.c
+++ b/src/main.c
@@ -142,6 +142,7 @@ Download:\n\
        --spider                 don\'t download anything.\n\
   -T,  --timeout=SECONDS        set the read timeout to SECONDS.\n\
   -w,  --wait=SECONDS           wait SECONDS between retrievals.\n\
+       --waitretry=SECONDS	wait 0..max SECONDS between retries of a retrieval.\n\
   -Y,  --proxy=on/off           turn proxy on or off.\n\
   -Q,  --quota=NUMBER           set retrieval quota to NUMBER.\n\
 \n"),  _("\
@@ -197,6 +198,7 @@ main (int argc, char *const *argv)
 {
   char **url, **t;
   int i, c, nurl, status, append_to_log;
+  int wr;
 
   static struct option long_options[] =
   {
@@ -268,6 +270,7 @@ main (int argc, char *const *argv)
     { "referer", required_argument, NULL, 129 },
     { "use-proxy", required_argument, NULL, 'Y' },
     { "wait", required_argument, NULL, 'w' },
+    { "waitretry", required_argument, NULL, 24 },
     { 0, 0, 0, 0 }
   };
 
@@ -556,6 +559,10 @@ GNU General Public License for more details.\n"));
 	case 'w':
 	  setval ("wait", optarg);
 	  break;
+	case 24:
+	  setval ("waitretry", optarg);
+	  wr = 1;
+	  break;
 	case 'X':
 	  setval ("excludedirectories", optarg);
 	  break;
@@ -574,6 +581,13 @@ GNU General Public License for more details.\n"));
   if (opt.verbose == -1)
     opt.verbose = !opt.quiet;
 
+  /* Retain compatibility with previous scripts.
+     if wait has been set, but waitretry has not, give it the wait value.
+     A simple check on the values is not enough, I could have set
+     wait to n>0 and waitretry to 0 - HEH */
+  if (opt.wait && !wr)
+    setval ("waitretry", opt.wait);
+    
   /* Sanity checks.  */
   if (opt.verbose && opt.quiet)
     {
diff --git a/src/options.h b/src/options.h
index b43bf7b3..1036c6f2 100644
--- a/src/options.h
+++ b/src/options.h
@@ -95,7 +95,8 @@ struct options
   long timeout;			/* The value of read timeout in
 				   seconds. */
 #endif
-  long wait;			/* The wait period between retries. */
+  long wait;			/* The wait period between retrievals. */
+  long waitretry;		/* The wait period between retries. - HEH */
   int use_robots;		/* Do we heed robots.txt? */
 
   long quota;			/* Maximum number of bytes to