Don't delete an input file fetched via FTP.

[wget] / src / retr.c

diff --git a/src/retr.c b/src/retr.c
index 55d5be788ce2430b28166c7515e39de5a1d57b8e..e68bce283bae73df5aef07f8ec2f90952510d168 100644 (file)
--- a/src/retr.c
+++ b/src/retr.c
@@ -899,7 +899,7 @@ retrieve_from_file (const char *file, bool html, int *count)
   set_uri_encoding (iri, opt.locale, true);
   set_content_encoding (iri, opt.locale);
 
-  if (url_has_scheme (url))
+  if (url_valid_scheme (url))
     {
       int dt,url_err;
       uerr_t status;
@@ -1189,3 +1189,20 @@ set_local_file (const char **file, const char *default_file)
   else
     *file = default_file;
 }
+
+/* Return true for an input file's own URL, false otherwise.  */
+bool
+input_file_url (const char *input_file)
+{
+  static bool first = true;
+
+  if (input_file
+      && url_has_scheme (input_file)
+      && first)
+    {
+      first = false;
+      return true;
+    }
+  else
+    return false;
+}