#!/usr/local/bin/perl
# save_security.cgi
# Save NIS server security options

require './nis-lib.pl';
&ReadParse();
&error_setup($text{'security_err'});

# Save trusted servers
if ($config{'securenets'}) {
	for($i=0; defined($in{"net_$i"}); $i++) {
		next if (!$in{"net_$i"});
		if ($in{"def_$i"} == 0) {
			&check_ipaddress($in{"net_$i"}) ||
				&error(&text('security_enet', $in{"net_$i"}));
			&check_ipaddress($in{"mask_$i"}) ||
				&error(&text('security_emask', $in{"mask_$i"}));
			$mask = $in{"mask_$i"};
			}
		elsif ($in{"def_$i"} == 1) {
			&check_ipaddress($in{"net_$i"}) ||
				&error(&text('security_enet', $in{"net_$i"}));
			$mask = "host";
			}
		else {
			$in{"net_$i"} = "0.0.0.0";
			$mask = "0.0.0.0";
			}
		push(@lines, $mask." ".$in{"net_$i"}."\n");
		}
	open(SERVERS, ">$config{'securenets'}");
	print SERVERS @lines;
	close(SERVERS);
	}

# Save OS-specific security options
&parse_server_security();

&redirect("");

