[svn] Large file support added. Published in <87psyr6jn7.fsf@xemacs.org>.

[wget] / src / url.c

diff --git a/src/url.c b/src/url.c
index cc4c3f90bfafe77940776e8f153c8e51f8590adb..8aed967d7722441c402e1ebafa972e1a84e869de 100644 (file)
--- a/src/url.c
+++ b/src/url.c
@@ -477,11 +477,11 @@ scheme_disable (enum url_scheme scheme)
   supported_schemes[scheme].enabled = 0;
 }
 
-/* Skip the username and password, if present here.  The function
-   should *not* be called with the complete URL, but with the part
-   right after the scheme.
+/* Skip the username and password, if present in the URL.  The
+   function should *not* be called with the complete URL, but with the
+   portion after the scheme.
 
-   If no username and password are found, return 0.  */
+   If no username and password are found, return URL.  */
 
 static const char *
 url_skip_credentials (const char *url)
@@ -490,7 +490,7 @@ url_skip_credentials (const char *url)
      '#', or ';'.  */
   const char *p = (const char *)strpbrk (url, "@/?#;");
   if (!p || *p != '@')
-    return p;
+    return url;
   return p + 1;
 }
 
@@ -999,6 +999,15 @@ url_parse (const char *url, int *error)
 
   host_modified = lowercase_str (u->host);
 
+  /* Decode %HH sequences in host name.  This is important not so much
+     to support %HH sequences, but to support binary characters (which
+     will have been converted to %HH by reencode_escapes).  */
+  if (strchr (u->host, '%'))
+    {
+      url_unescape (u->host);
+      host_modified = 1;
+    }
+
   if (params_b)
     u->params = strdupdelim (params_b, params_e);
   if (query_b)
@@ -1270,7 +1279,7 @@ mkalldirs (const char *path)
 {
   const char *p;
   char *t;
-  struct stat st;
+  struct_stat st;
   int res;
 
   p = path + strlen (path);