PAL.C.T MINI SHELL
#!/usr/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;
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`