PAL.C.T MINI SHELL
#!/usr/bin/perl
# Ask if the user wants to delete multiple packages, and if so do it
require './cluster-software-lib.pl';
&ReadParse();
&error_setup($text{'deletes_err'});
# Find the specified hosts
@servers = &list_servers();
@hosts = &list_software_hosts();
if ($in{'server'} >= 0) {
@hosts = grep { $_->{'id'} eq $in{'server'} } @hosts;
}
@got = map { &host_to_server($_) } @hosts;
# Find the packages for each host
@packs = split(/\0/, $in{'del'});
foreach $p (@packs) {
foreach $h (@hosts) {
($pkg) = grep { $_->{'name'} eq $p } @{$h->{'packages'}};
if ($pkg) {
push(@{$pkghosts{$h->{'id'}}}, $p);
$pkgmap{$h->{'id'},$p} = 1;
$found++;
}
}
}
$found || &error($text{'deletes_enone'});
&ui_print_header(undef, $text{'deletes_title'}, "", undef);
if ($in{'sure'}) {
# do the deletion
print "<b>",&text('deletes_desc', "<tt>".join(" ", @packs)."</tt>"),
"</b><p>\n";
&remote_multi_callback(\@got, $parallel_max, \&deletes_callback, undef,
\@rvs, \@errs, "software", "software-lib.pl");
# Show the results
$p = 0;
foreach $h (@hosts) {
$g = &host_to_server($h);
local $d = $g->{'desc'} ? $g->{'desc'} : $g->{'host'};
if ($errs[$p] || $rvs[$p]) {
print &text('delete_error', $d, $errs[$p] || $rvs[$p]),"<br>\n";
}
else {
print &text('delete_success', $d),"<br>\n";
local @newpacks = grep { !$pkgmap{$h->{'id'},$_->{'name'}} } @{$h->{'packages'}};
$h->{'packages'} = \@newpacks;
&save_software_host($h);
}
$p++;
}
print "<p><b>$text{'delete_done'}</b><p>\n";
&webmin_log("deletes", "package", undef, { 'packs' => \@packs });
}
else {
# Ask if the user is sure..
print "<center>\n";
print &text('deletes_rusure', "<tt>".join(" ", @packs)."</tt>"),
"<p>\n";
print "<form action=delete_packs.cgi>\n";
foreach $d (@packs) {
print "<input type=hidden name=del value='$d'>\n";
}
print "<input type=hidden name=sure value=1>\n";
print "<input type=hidden name=server value=$in{'server'}>\n";
print "<input type=hidden name=search value=\"$in{'search'}\">\n";
print "<input type=submit value=\"$text{'deletes_ok'}\"><p>\n";
if (defined(&software::delete_options) &&
&same_package_system($hosts[0])) {
&software::delete_options($packs[0]);
}
print "</center></form>\n";
}
&ui_print_footer("search.cgi?search=$in{'search'}", $text{'search_return'});
# deletes_callback(&server)
sub deletes_callback
{
local ($serv) = @_;
local @pkgs = @{$pkghosts{$serv->{'id'}}};
if (defined(&software::delete_packages)) {
# Use single delete function
$error = &remote_foreign_call($serv->{'host'}, "software", "delete_packages", \@pkgs, \%in);
}
else {
# Call delete function once per package
local @errors;
foreach my $p (@pkgs) {
local $oneerror = &remote_foreign_call($serv->{'host'}, "software", "delete_package", $p, \%in);
push(@errors, $oneerror) if ($oneerror);
}
$error = join(" ", @errors);
}
return $error;
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`