#!/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 "",&text('delete_header', "$in{'package'}"),"
\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]),"
\n";
}
else {
print &text('delete_success', $d),"
\n";
local $h = $gotmap{$g};
local @newpacks = grep { $_->{'name'} ne $in{'package'} } @{$h->{'packages'}};
$h->{'packages'} = \@newpacks;
&save_software_host($h);
}
$p++;
}
print "
$text{'delete_done'}
\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 "