From 157fe5bf31626e49ece9613faf100fdc924318f8 Mon Sep 17 00:00:00 2001
From: Martin Whitaker <mageia@martin-whitaker.me.uk>
Date: Sun, 20 Nov 2022 09:42:55 +0000
Subject: Add subroutine to set urpmi downloader.

---
 perl-install/any.pm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 933976302..011fb4f73 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1197,6 +1197,22 @@ sub urpmi_add_all_media {
     $val;
 }
 
+sub urpmi_set_downloader {
+    my ($in, $urpm, $downloader) = @_;
+
+    if ($urpm->{global_config}{downloader} ne $downloader) {
+        my $binary = $downloader eq 'aria2' ? 'aria2c' : $downloader;
+        if ($in->do_pkgs->ensure_binary_is_installed($downloader, $binary, 1)) {
+            log::l("Setting urpmi downloader to '$downloader'");
+            $urpm->{global_config}{downloader} = $downloader;
+            urpm::media::write_config($urpm);
+        } else {
+            return;
+        }
+    }
+    1;
+}
+
 sub format_wm {
     my ($wm) = @_;
     return {
-- 
cgit v1.2.1