Don't delete an input file fetched via FTP.

[wget] / src / retr.c

diff --git a/src/retr.c b/src/retr.c
index 74b9dccb629a7833908ee4bda7298f93303e43c9..e68bce283bae73df5aef07f8ec2f90952510d168 100644 (file)
--- a/src/retr.c
+++ b/src/retr.c
@@ -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;
+}