cluster-software/delete_packs.cgi

   1 #!/usr/local/bin/perl
   2 # Ask if the user wants to delete multiple packages, and if so do it
   3
   4 require './cluster-software-lib.pl';
   5 &ReadParse();
   6 &error_setup($text{'deletes_err'});
   7
   8 # Find the specified hosts
   9 @servers = &list_servers();
  10 @hosts = &list_software_hosts();
  11 if ($in{'server'} >= 0) {
  12         @hosts = grep { $_->{'id'} eq $in{'server'} } @hosts;
  13         }
  14 @got = map { &host_to_server($_) } @hosts;
  15
  16 # Find the packages for each host
  17 @packs = split(/\0/, $in{'del'});
  18 foreach $p (@packs) {
  19         foreach $h (@hosts) {
  20                 ($pkg) = grep { $_->{'name'} eq $p } @{$h->{'packages'}};
  21                 if ($pkg) {
  22                         push(@{$pkghosts{$h->{'id'}}}, $p);
  23                         $pkgmap{$h->{'id'},$p} = 1;
  24                         $found++;
  25                         }
  26                 }
  27         }
  28 $found || &error($text{'deletes_enone'});
  29
  30 &ui_print_header(undef, $text{'deletes_title'}, "", "delete");
  31
  32 if ($in{'sure'}) {
  33         # do the deletion
  34         print "<b>",&text('deletes_desc', "<tt>".join(" ", @packs)."</tt>"),
  35               "</b><p>\n";
  36         &remote_multi_callback(\@got, $parallel_max, \&deletes_callback, undef,
  37                                \@rvs, \@errs, "software", "software-lib.pl");
  38
  39         # Show the results
  40         $p = 0;
  41         foreach $h (@hosts) {
  42                 $g = &host_to_server($h);
  43                 local $d = $g->{'desc'} ? $g->{'desc'} : $g->{'host'};
  44                 if ($errs[$p] || $rvs[$p]) {
  45                         print &text('delete_error', $d, $errs[$p] || $rvs[$p]),"<br>\n";
  46                         }
  47                 else {
  48                         print &text('delete_success', $d),"<br>\n";
  49                         local @newpacks = grep { !$pkgmap{$h->{'id'},$_->{'name'}} } @{$h->{'packages'}};
  50                         $h->{'packages'} = \@newpacks;
  51                         &save_software_host($h);
  52                         }
  53                 $p++;
  54                 }
  55         print "<p><b>$text{'delete_done'}</b><p>\n";
  56         &webmin_log("deletes", "package", undef, { 'packs' => \@packs });
  57         }
  58 else {
  59         # Ask if the user is sure..
  60         print "<center>\n";
  61         print &text('deletes_rusure', "<tt>".join(" ", @packs)."</tt>"),
  62               "<p>\n";
  63         print "<form action=delete_packs.cgi>\n";
  64         foreach $d (@packs) {
  65                 print "<input type=hidden name=del value='$d'>\n";
  66                 }
  67         print "<input type=hidden name=sure value=1>\n";
  68         print "<input type=hidden name=server value=$in{'server'}>\n";
  69         print "<input type=hidden name=search value=\"$in{'search'}\">\n";
  70         print "<input type=submit value=\"$text{'deletes_ok'}\"><p>\n";
  71         if (defined(&software::delete_options) &&
  72             &same_package_system($hosts[0])) {
  73                 &software::delete_options($packs[0]);
  74                 }
  75         print "</center></form>\n";
  76
  77         }
  78
  79 &ui_print_footer("search.cgi?search=$in{'search'}", $text{'search_return'});
  80
  81 # deletes_callback(&server)
  82 sub deletes_callback
  83 {
  84 local ($serv) = @_;
  85 local @pkgs = @{$pkghosts{$serv->{'id'}}};
  86 if (defined(&software::delete_packages)) {
  87         # Use single delete function
  88         $error = &remote_foreign_call($serv->{'host'}, "software", "delete_packages", \@pkgs, \%in);
  89         }
  90 else {
  91         # Call delete function once per package
  92         local @errors;
  93         foreach my $p (@pkgs) {
  94                 local $oneerror = &remote_foreign_call($serv->{'host'}, "software", "delete_package", $p, \%in);
  95                 push(@errors, $oneerror) if ($oneerror);
  96                 }
  97         $error = join(" ", @errors);
  98         }
  99 return $error;
 100 }