Function to install multiple packages

diff --git a/package-updates/package-updates-lib.pl b/package-updates/package-updates-lib.pl
index 6a11af3..798d540 100644 (file)
--- a/package-updates/package-updates-lib.pl
+++ b/package-updates/package-updates-lib.pl
@@ -275,7 +275,7 @@ if (!scalar(@updates_available_cache)) {
 return @updates_available_cache;
 }
 
-# package_install(package, [system])
+# package_install(package-name, [system])
 # Install some package, either from an update system or from Webmin. Returns
 # a list of updated package names.
 sub package_install
@@ -327,6 +327,43 @@ unlink($current_cache_file);
 return @rv;
 }
 
+# package_install_multiple(&package-names, system)
+# Install multiple packages, either from an update system or from Webmin.
+# Returns a list of updated package names.
+sub package_install_multiple
+{
+my ($names, $system) = @_;
+my @rv;
+my $pkg;
+
+if (defined(&software::update_system_install)) {
+       # Using some update system, like YUM or APT
+       &clean_environment();
+       if ($software::update_system eq $system) {
+               # Can use the default system
+               @rv = &software::update_system_install(
+                       join(" ", @$names), undef, 1);
+               }
+       else {
+               # Another update system exists!! Use it..
+               if (!$done_rhn_lib++) {
+                       do "../software/$pkg->{'system'}-lib.pl";
+                       }
+               if (!$done_rhn_text++) {
+                       %text = ( %text, %software::text );
+                       }
+               @rv = &update_system_install(join(" ", @$names), undef, 1);
+               }
+       &reset_environment();
+       }
+else {
+       &error("Don't know how to install packages");
+       }
+# Flush installed cache
+unlink($current_cache_file);
+return @rv;
+}
+
 # list_package_operations(package|packages, system)
 # Given a package (or space-separate package list), returns a list of all
 # dependencies that will be installed