install urpmi-parallel-ssh or urpmi-parallel-ka-run when needed

1 files changed, 5 insertions, 0 deletions

diff --git a/park-rpmdrake b/park-rpmdrake
index 627d2968..aecc8ca1 100755
--- a/park-rpmdrake
+++ b/park-rpmdrake
@@ -470,6 +470,11 @@ Do you really want to use this network?"));
 	$group->{name} eq $orig_name || every { $group->{name} ne $_->{name} } @$groups or 
 	  $in->ask_warn(N("Error"), N("Name already used")), return 0;
 
+	(my $pkg_for_protocol = "urpm::parallel_$group->{protocol}") =~ s/-/_/g;
+	if (! eval "require $pkg_for_protocol; 1") {
+	    $in->do_pkgs->ensure_is_installed("urpmi-parallel-$group->{protocol}") or return;
+	}
+
 	populated_networks_to_raw_hosts($group);
 	write_parallel_config($groups);
 	1;