cluster-software/add.cgi

   1 #!/usr/local/bin/perl
   2 # add.cgi
   3 # Add or update a server or group from the webmin servers module
   4
   5 require './cluster-software-lib.pl';
   6 &ReadParse();
   7 @servers = &list_servers();
   8
   9 if ($in{'add'}) {
  10         # Add a single host
  11         @add = grep { $_->{'id'} eq $in{'server'} } @servers;
  12         &error_setup($text{'add_err'});
  13         $msg = &text('add_msg', &server_name($add[0]));
  14         }
  15 else {
  16         # Add all from a group
  17         ($group) = grep { $_->{'name'} eq $in{'group'} }
  18                         &servers::list_all_groups(\@servers);
  19         foreach $m (@{$group->{'members'}}) {
  20                 push(@add, grep { $_->{'host'} eq $m } @servers);
  21                 }
  22         &error_setup($text{'add_gerr'});
  23         $msg = &text('add_gmsg', $in{'group'});
  24         }
  25 &ui_print_header(undef, $text{'add_title'}, "");
  26 print "<b>$msg</b><p>\n";
  27
  28 # Get the packages for each host
  29 foreach $s (@add) {
  30         ($ok, $out) = &add_managed_host($s);
  31         print "$out<p>\n";
  32         }
  33 &remote_finished();
  34
  35 &ui_print_footer("", $text{'index_return'});
  36
  37