cfengine/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 './cfengine-lib.pl';
   6 &foreign_require("servers", "servers-lib.pl");
   7 &ReadParse();
   8 @servers = &list_servers();
   9
  10 if ($in{'add'}) {
  11         # Add a single host
  12         @add = grep { $_->{'id'} eq $in{'server'} } @servers;
  13         &error_setup($text{'add_err'});
  14         $msg = &text('add_msg', &server_name($add[0]));
  15         }
  16 else {
  17         # Add all from a group
  18         ($group) = grep { $_->{'name'} eq $in{'group'} }
  19                         &servers::list_all_groups(\@servers);
  20         foreach $m (@{$group->{'members'}}) {
  21                 push(@add, grep { $_->{'host'} eq $m } @servers);
  22                 }
  23         &error_setup($text{'add_gerr'});
  24         $msg = &text('add_gmsg', $in{'group'});
  25         }
  26 &ui_print_header(undef, $text{'add_title'}, "");
  27 print "<b>$msg</b><p>\n";
  28
  29 # Setup error handler for down hosts
  30 sub add_error
  31 {
  32 $add_error_msg = join("", @_);
  33 }
  34 &remote_error_setup(\&add_error);
  35
  36 # Get the details of each host
  37 foreach $s (@add) {
  38         $add_error_msg = undef;
  39         local $host = { 'id' => $s->{'id'} };
  40         local $cfe = &remote_foreign_check($s->{'host'}, "cfengine");
  41         if ($add_error_msg) {
  42                 print "$add_error_msg<p>\n";
  43                 next;
  44                 }
  45         if (!$cfe) {
  46                 print &text('add_echeck', $s->{'host'}),"<p>\n";
  47                 next;
  48                 }
  49         &remote_foreign_require($s->{'host'}, "cfengine", "cfengine-lib.pl");
  50         local $rconfig = &remote_foreign_config($s->{'host'}, "cfengine");
  51         local $has = &remote_foreign_call($s->{'host'}, "cfengine",
  52                         "has_command", $rconfig->{'cfengine'});
  53         local $ver;
  54         if (!$has || !($ver = &cfengine_host_version($s))) {
  55                 print &text('add_ecfengine', $s->{'host'}),"<p>\n";
  56                 next;
  57                 }
  58         if ($ver !~ /^1\./) {
  59                 print &text('add_eversion', $s->{'host'}, $ver, "1.x"),"<p>\n";
  60                 next;
  61                 }
  62         local $gconfig = &remote_foreign_config($s->{'host'}, undef);
  63         foreach $g ('os_type', 'os_version',
  64                     'real_os_type', 'real_os_version') {
  65                 $host->{$g} = $gconfig->{$g};
  66                 }
  67         &save_cfengine_host($host);
  68         print &text('add_ok', &server_name($s), $host->{'real_os_type'},
  69                               $host->{'real_os_version'}),"<p>\n";
  70         }
  71 &remote_finished();
  72
  73 &ui_print_footer("list_hosts.cgi", $text{'hosts_return'});
  74
  75