mirror of
https://github.com/webmin/webmin.git
synced 2025-07-23 00:30:33 +00:00
112 lines
3.2 KiB
Perl
Executable File
112 lines
3.2 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# delete_pack.cgi
|
|
# Ask if the user wants to delete a package, and if so do it
|
|
|
|
require './cluster-software-lib.pl';
|
|
&foreign_require("software", "software-lib.pl");
|
|
&ReadParse();
|
|
|
|
@servers = &list_servers();
|
|
@hosts = &list_software_hosts();
|
|
if ($in{'server'} < 0) {
|
|
# Find servers that have the package
|
|
foreach $h (@hosts) {
|
|
foreach $p (@{$h->{'packages'}}) {
|
|
if ($p->{'name'} eq $in{'package'}) {
|
|
local ($s) = grep { $_->{'id'} == $h->{'id'} }
|
|
@servers;
|
|
push(@got, $s);
|
|
$gotmap{$s} = $h;
|
|
$best = $s if (!$s->{'id'});
|
|
last;
|
|
}
|
|
}
|
|
}
|
|
$s = $best ? $best : $got[0];
|
|
}
|
|
else {
|
|
($s) = grep { $_->{'id'} == $in{'server'} } @servers;
|
|
($h) = grep { $_->{'id'} == $in{'server'} } @hosts;
|
|
@got = ( $s );
|
|
$gotmap{$s} = $h;
|
|
}
|
|
|
|
&ui_print_header(undef, $text{'delete_title'}, "", "delete_pack");
|
|
if ($in{'sure'}) {
|
|
# Do the deletion
|
|
print "<b>",&text('delete_header', "<tt>$in{'package'}</tt>"),"</b><p>\n";
|
|
&remote_multi_callback(\@got, $parallel_max, \&delete_callback, undef,
|
|
\@rvs, \@errs, "software", "software-lib.pl");
|
|
|
|
# Show the results
|
|
$p = 0;
|
|
foreach $g (@got) {
|
|
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 $h = $gotmap{$g};
|
|
local @newpacks = grep { $_->{'name'} ne $in{'package'} } @{$h->{'packages'}};
|
|
$h->{'packages'} = \@newpacks;
|
|
&save_software_host($h);
|
|
}
|
|
$p++;
|
|
}
|
|
print "<p><b>$text{'delete_done'}</b><p>\n";
|
|
}
|
|
else {
|
|
# Sum up file sizes on best host
|
|
&remote_foreign_require($s->{'host'}, "software", "software-lib.pl");
|
|
if (!$gotmap{$s}->{'nofiles'}) {
|
|
$n = &remote_foreign_call($s->{'host'}, "software",
|
|
"check_files", $in{'package'});
|
|
$files = &remote_eval($s->{'host'}, "software", "\\%files");
|
|
$sz = 0;
|
|
for($i=0; $i<$n; $i++) {
|
|
if ($files->{$i,'type'} == 0) {
|
|
$sz += $files->{$i,'size'};
|
|
}
|
|
}
|
|
}
|
|
|
|
# Ask if the user is sure..
|
|
print "<center>\n";
|
|
if ($in{'server'} < 0) {
|
|
print &text($n ? 'delete_rusure' : 'delete_rusurenone',
|
|
"<tt>$in{'package'}</tt>", $n, $sz),"<br>\n";
|
|
}
|
|
else {
|
|
print &text($n ? 'delete_rusure2' : 'delete_rusure2none',
|
|
"<tt>$in{'package'}</tt>", $n, $sz,
|
|
$s->{'desc'} ? $s->{'desc'} : $s->{'host'}),"<br>\n";
|
|
}
|
|
print "<form action=delete_pack.cgi>\n";
|
|
print "<input type=hidden name=package value=\"$in{'package'}\">\n";
|
|
print "<input type=hidden name=server value=\"$in{'server'}\">\n";
|
|
print "<input type=hidden name=sure value=1>\n";
|
|
print "<input type=hidden name=search value=\"$in{'search'}\">\n";
|
|
print "<input type=submit value=\"$text{'delete_ok'}\"><p>\n";
|
|
|
|
# Show deletion options - but only if remote package system matches
|
|
if (defined(&software::delete_options) &&
|
|
&same_package_system($gotmap{$s})) {
|
|
&foreign_call("software", "delete_options", $p);
|
|
}
|
|
print "</center></form>\n";
|
|
}
|
|
|
|
&remote_finished();
|
|
&ui_print_footer("", $text{'index_return'});
|
|
|
|
# delete_callback(&host)
|
|
sub delete_callback
|
|
{
|
|
local $error = &remote_foreign_call($_[0]->{'host'},
|
|
"software", "delete_package", $in{'package'}, \%in);
|
|
return $error;
|
|
}
|
|
|