mirror of
https://github.com/webmin/webmin.git
synced 2026-02-09 00:39:57 +00:00
78 lines
2.3 KiB
Perl
Executable File
78 lines
2.3 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';
|
|
&ReadParse();
|
|
|
|
@servers = &list_servers();
|
|
if ($in{'server'} < 0) {
|
|
# Find servers that have the package
|
|
@hosts = &list_software_hosts();
|
|
foreach $h (@hosts) {
|
|
foreach $p (@{$h->{'packages'}}) {
|
|
if ($p->{'name'} eq $in{'package'}) {
|
|
local ($s) = grep { $_->{'id'} == $h->{'id'} }
|
|
@servers;
|
|
push(@got, $s);
|
|
last;
|
|
}
|
|
}
|
|
}
|
|
$s = $got[0];
|
|
}
|
|
else {
|
|
($s) = grep { $_->{'id'} == $in{'server'} } @servers;
|
|
@got = ( $s );
|
|
}
|
|
&remote_foreign_require($s->{'host'}, "software", "software-lib.pl");
|
|
|
|
&header($text{'delete_title'}, "");
|
|
print "<hr>\n";
|
|
if ($in{'sure'}) {
|
|
# do the deletion
|
|
print "<b>",&text('delete_header', $in{'package'}),"</b><p>\n";
|
|
foreach $g (@got) {
|
|
&remote_foreign_require($g->{'host'}, "software", "software-lib.pl")
|
|
if ($s ne $g);
|
|
local $error = &remote_foreign_call($g->{'host'}, "software",
|
|
"delete_package", $in{'package'});
|
|
if ($error) {
|
|
print &text('delete_error', $g->{'host'}, $error),"<br>\n";
|
|
}
|
|
else {
|
|
print &text('delete_success', $g->{'host'}),"<br>\n";
|
|
}
|
|
}
|
|
print "<p><b>$text{'delete_done'}</b><br>\n";
|
|
}
|
|
else {
|
|
# Ask if the user is sure..
|
|
$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'}; }
|
|
}
|
|
print "<center>\n";
|
|
if ($in{'server'} < 0) {
|
|
print &text('delete_rusure', "<b>$in{'package'}</b>", $n, $sz),"<br>\n";
|
|
}
|
|
else {
|
|
print &text('delete_rusure2', "<b>$in{'package'}</b>", $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'}\"></center>\n";
|
|
print "</form>\n";
|
|
}
|
|
|
|
print "<hr>\n";
|
|
&footer("edit_pack.cgi?search=$in{'search'}&package=".&urlize($p),
|
|
$text{'edit_return'});
|