From c0467b40b06f796f34797afbfe9c506700566e78 Mon Sep 17 00:00:00 2001
From: ankry <ankry@pld-linux.org>
Date: Thu, 10 Jul 2003 09:28:15 +0000
Subject: [PATCH] - add alternative passive-ftp; untested

Changed files:
    file-fetcher.pl -> 1.27
---
 file-fetcher.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/file-fetcher.pl b/file-fetcher.pl
index e9fe1f4..8b299a2 100644
--- a/file-fetcher.pl
+++ b/file-fetcher.pl
@@ -199,6 +199,7 @@ sub fetch_file($$)
   my $bn = basename($url);
   my $local = "$tmp_dir/$md5/$bn";
   my $cmd = "wget -nv -O $local \"$url\"";
+  my $cmd2 = "wget -nv --passive-ftp -O $local \"$url\"";
 
   push @files, $bn;
 
@@ -227,6 +228,18 @@ sub fetch_file($$)
   if ($out ne "") {
     $problems .= "$cmd:\n$out\n\n";
   }
+  if (-f $local && -s $local > 0 && $url =~ /^ftp:/) {
+    open(W, "$cmd2 2>&1 |");
+    while (<W>) {
+      $all_out .= $_;
+      /URL:.*\s+\-\>\s+.*/ and next;
+      $out .= $_;
+    }
+    close(W);
+    if ($out ne "") {
+      $problems .= "$cmd:\n$out\n\n";
+    }
+  }
   if (-f $local && -s $local > 0) {
     my $computed_md5 = md5($local);
     if ($computed_md5 ne $md5) {
-- 
2.44.0