nis/save_client.cgi

   1 #!/usr/local/bin/perl
   2 # save_client.cgi
   3 # Save and apply NIS client options
   4
   5 require './nis-lib.pl';
   6 &ReadParse();
   7 &error_setup($text{'client_err'});
   8
   9 # Parse and validate inputs
  10 if (!$in{'domain_def'}) {
  11         $in{'domain'} =~ /^[A-Za-z0-9\.\-]+$/ ||
  12                 &error($text{'client_edomain'});
  13         $nis->{'domain'} = $in{'domain'};
  14         }
  15 if ($in{'broadcast'}) {
  16         $nis->{'broadcast'} = 1;
  17         }
  18 else {
  19         @servers = split(/\s+/, $in{'servers'});
  20         foreach $s (@servers) {
  21                 &to_ipaddress($s) || &to_ip6address($s) ||
  22                         &error(&text('client_eserver', $s));
  23                 }
  24         $nis->{'servers'} = \@servers;
  25         }
  26
  27 # Save and apply
  28 $err = &save_client_config($nis);
  29 if ($err) { &error($err); }
  30 &redirect("");
  31