lpadmin/cluster_add.cgi

   1 #!/usr/local/bin/perl
   2 # Add or update a server or group from the webmin servers module
   3
   4 require './lpadmin-lib.pl';
   5 $access{'cluster'} || &error($text{'cluster_ecannot'});
   6 &ReadParse();
   7 &foreign_require("servers", "servers-lib.pl");
   8 @allservers = grep { $_->{'user'} } &servers::list_servers();
   9
  10 if ($in{'add'}) {
  11         # Add a single host
  12         @add = grep { $_->{'id'} eq $in{'server'} } @allservers;
  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(\@allservers);
  20         foreach $m (@{$group->{'members'}}) {
  21                 push(@add, grep { $_->{'host'} eq $m } @allservers);
  22                 }
  23         &error_setup($text{'add_gerr'});
  24         $msg = &text('add_gmsg', $in{'group'});
  25         }
  26
  27 &ui_print_header(undef, $text{'add_title'}, "");
  28 print "<b>$msg</b><p>\n";
  29
  30 # Setup error handler for down hosts
  31 sub add_error
  32 {
  33 $add_error_msg = join("", @_);
  34 }
  35 &remote_error_setup(\&add_error);
  36
  37 # Make sure each host is set up for printer administration
  38 foreach $s (@add) {
  39         $add_error_msg = undef;
  40         local $host = { 'id' => $s->{'id'} };
  41         local $lpadmin = &remote_foreign_check($s->{'host'}, "lpadmin");
  42         if ($add_error_msg) {
  43                 print "$add_error_msg<p>\n";
  44                 next;
  45                 }
  46         if (!$lpadmin) {
  47                 print &text('add_echeck', $s->{'host'}),"<p>\n";
  48                 next;
  49                 }
  50         &remote_foreign_require($s->{'host'}, "lpadmin", "lpadmin-lib.pl");
  51         local $lconfig = &remote_foreign_config($s, "lpadmin");
  52         if ($lconfig->{'print_style'} ne $config{'print_style'}) {
  53                 print &text('add_ediff', $s->{'host'},
  54                             $text{'style_'.$lconfig->{'print_style'}}),"<p>\n";
  55                 next;
  56                 }
  57         if ($lconfig->{'driver_style'} ne $config{'driver_style'}) {
  58                 print &text('add_ediff', $s->{'host'},
  59                             $lconfig->{'driver_style'} || "Webmin"),"<p>\n";
  60                 next;
  61                 }
  62
  63         @printers = &remote_foreign_call($s->{'host'}, "lpadmin",
  64                                          "list_printers");
  65         print &text('add_ok', $s->{'host'}, scalar(@printers)),"<p>\n";
  66         &add_cluster_server($s);
  67         }
  68 &remote_finished();
  69 if ($in{'add'}) {
  70         &webmin_log("add", "host", $add[0]->{'host'});
  71         }
  72 else {
  73         &webmin_log("add", "group", $in{'group'});
  74         }
  75
  76 &ui_print_footer("cluster.cgi", $text{'cluster_return'});
  77