probe-mirmon: workaround: back to wget for FTP

Signed-off-by: Robin H. Johnson <robbat2@gentoo.org>

1 files changed, 6 insertions, 0 deletions

diff --git a/probe-mirmon b/probe-mirmon
index ff73776..a40be16 100755
--- a/probe-mirmon
+++ b/probe-mirmon
@@ -29,6 +29,11 @@ sub main {
   if ( $url =~ m,^rsync://, ) {
     handle_rsync( $timeout, $url );
   }
+  elsif ( $url =~ m,^ftp://, ) {
+	# Hacky, at some point CURL stopped returning the output here; just go back to wget for now.
+    #handle_libcurl( $timeout, $url );
+    handle_wget( $timeout, $url );
+  }
   else {
     handle_libcurl( $timeout, $url );
   }
@@ -44,6 +49,7 @@ sub handle_libcurl {
   $curl->setopt(CURLOPT_TIMEOUT, $timeout);
   $curl->setopt(CURLOPT_FTP_USE_EPSV, 1);
   $curl->setopt(CURLOPT_URL, $url);
+  $curl->setopt(CURLOPT_VERBOSE, 1) if $url =~ m,^ftp://,;
 
   # A filehandle, reference to a scalar or reference to a typeglob can be used here.
   my $response_body;