[svn] Follow https links from http.

Submitted by Christian Lackas in <20020211202444.GA20371@lackas.desy.de>.

diff --git a/src/ChangeLog b/src/ChangeLog
index 29075acec3022a28392b3671ed72d5687ecee311..43d80e50145b851b15e260afee2a224897a13f66 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2002-02-11  Christian Lackas  <delta@lackas.net>
+
+       * recur.c: recurive downloading for https fixed.
+
 2002-02-19  Alan Eldridge  <alane@geeksrus.net>
 
        * host.h: Also include <netinet/in.h> and <sys/socket.h>.

diff --git a/src/recur.c b/src/recur.c
index fa6327d525226f6c64dda1e13d1ebde2e74e0ebd..a20f7d5fbe4b94ee6e225310a08e6a5e9190d24c 100644 (file)
--- a/src/recur.c
+++ b/src/recur.c
@@ -438,6 +438,9 @@ download_child_p (const struct urlpos *upos, struct url *parent, int depth,
 
   /* 1. Schemes other than HTTP are normally not recursed into. */
   if (u->scheme != SCHEME_HTTP
+#ifdef HAVE_SSL
+               && u->scheme != SCHEME_HTTPS
+#endif
       && !(u->scheme == SCHEME_FTP && opt.follow_ftp))
     {
       DEBUGP (("Not following non-HTTP schemes.\n"));
@@ -446,7 +449,11 @@ download_child_p (const struct urlpos *upos, struct url *parent, int depth,
 
   /* 2. If it is an absolute link and they are not followed, throw it
      out.  */
-  if (u->scheme == SCHEME_HTTP)
+  if (u->scheme == SCHEME_HTTP
+#ifdef HAVE_SSL
+                 || u->scheme == SCHEME_HTTPS
+#endif
+        )
     if (opt.relative_only && !upos->link_relative_p)
       {
        DEBUGP (("It doesn't really look like a relative link.\n"));
@@ -534,7 +541,12 @@ download_child_p (const struct urlpos *upos, struct url *parent, int depth,
       }
 
   /* 8. */
-  if (opt.use_robots && u->scheme == SCHEME_HTTP)
+  if (opt.use_robots && (u->scheme == SCHEME_HTTP
+#ifdef HAVE_SSL
+                         || u->scheme == SCHEME_HTTPS
+#endif
+                         )
+        )
     {
       struct robot_specs *specs = res_get_specs (u->host, u->port);
       if (!specs)