Gecko [ 122.154.134.11 ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	308 B	-rw-r--r--
aix-lib.pl	9.79 KB	-rwxr-xr-x
backup_config.pl	817 B	-rwxr-xr-x
build.cgi	162 B	-rwxr-xr-x
coherent-linux-lib.pl	10.4 KB	-rwxr-xr-x
config-aix	181 B	-rw-r--r--
config-coherent-linux	116 B	-rw-r--r--
config-debian-linux	120 B	-rw-r--r--
config-generic-linux	116 B	-rw-r--r--
config-mandrake-linux	116 B	-rw-r--r--
config-msc-linux	116 B	-rw-r--r--
config-open-linux	117 B	-rw-r--r--
config-openmamba-linux	116 B	-rw-r--r--
config-redhat-linux	116 B	-rw-r--r--
config-slackware-linux	116 B	-rw-r--r--
config-solaris	167 B	-rw-r--r--
config-solaris-8-ALL	199 B	-rw-r--r--
config-suse-linux	116 B	-rw-r--r--
config-trustix-linux	116 B	-rw-r--r--
config-united-linux	116 B	-rw-r--r--
config.info	282 B	-rw-r--r--
config.info.ca	315 B	-rw-r--r--
config.info.ca.UTF-8	320 B	-rw-r--r--
config.info.cz	337 B	-rw-r--r--
config.info.cz.UTF-8	362 B	-rw-r--r--
config.info.de	325 B	-rw-r--r--
config.info.de.UTF-8	325 B	-rw-r--r--
config.info.es	309 B	-rw-r--r--
config.info.es.UTF-8	317 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.nl	290 B	-rw-r--r--
config.info.nl.UTF-8	290 B	-rw-r--r--
config.info.no	301 B	-rw-r--r--
config.info.no.UTF-8	301 B	-rw-r--r--
config.info.pl	317 B	-rw-r--r--
config.info.pl.UTF-8	319 B	-rw-r--r--
config.info.ru.UTF-8	555 B	-rw-r--r--
config.info.ru_RU	354 B	-rw-r--r--
config.info.ru_RU.UTF-8	555 B	-rw-r--r--
config.info.ru_SU	354 B	-rw-r--r--
config.info.sv	163 B	-rw-r--r--
config.info.sv.UTF-8	169 B	-rw-r--r--
config.info.uk_UA	362 B	-rw-r--r--
config.info.uk_UA.UTF-8	549 B	-rw-r--r--
debian-linux-lib.pl	10.18 KB	-rwxr-xr-x
edit_aliases.cgi	1.2 KB	-rwxr-xr-x
edit_client.cgi	1.41 KB	-rwxr-xr-x
edit_ethers.cgi	1.14 KB	-rwxr-xr-x
edit_group.cgi	1.81 KB	-rwxr-xr-x
edit_group_shadow.cgi	1.83 KB	-rwxr-xr-x
edit_hosts.cgi	1.31 KB	-rwxr-xr-x
edit_netgroup.cgi	2.01 KB	-rwxr-xr-x
edit_netmasks.cgi	1.16 KB	-rwxr-xr-x
edit_networks.cgi	1.35 KB	-rwxr-xr-x
edit_passwd.cgi	4.8 KB	-rwxr-xr-x
edit_passwd_shadow.cgi	4.8 KB	-rwxr-xr-x
edit_passwd_shadow_full.cgi	4.8 KB	-rwxr-xr-x
edit_protocols.cgi	1.35 KB	-rwxr-xr-x
edit_rpc.cgi	1.3 KB	-rwxr-xr-x
edit_security.cgi	1.92 KB	-rwxr-xr-x
edit_server.cgi	607 B	-rwxr-xr-x
edit_services.cgi	1.52 KB	-rwxr-xr-x
edit_services2.cgi	1.53 KB	-rwxr-xr-x
edit_switch.cgi	1.74 KB	-rwxr-xr-x
edit_tables.cgi	6.25 KB	-rwxr-xr-x
feedback_files.pl	157 B	-rwxr-xr-x
index.cgi	776 B	-rwxr-xr-x
linux-lib.pl	5.27 KB	-rwxr-xr-x
list_switches.cgi	772 B	-rwxr-xr-x
mandrake-linux-lib.pl	10.37 KB	-rwxr-xr-x
md5-lib.pl	6.47 KB	-rwxr-xr-x
module.info	346 B	-rw-r--r--
module.info.ca	162 B	-rw-r--r--
module.info.ca.UTF-8	175 B	-rw-r--r--
module.info.cz	28 B	-rw-r--r--
module.info.cz.UTF-8	34 B	-rw-r--r--
module.info.de	140 B	-rw-r--r--
module.info.de.UTF-8	152 B	-rw-r--r--
module.info.es	31 B	-rw-r--r--
module.info.es.UTF-8	37 B	-rw-r--r--
module.info.fr	30 B	-rw-r--r--
module.info.fr.UTF-8	36 B	-rw-r--r--
module.info.hu	32 B	-rw-r--r--
module.info.hu.UTF-8	40 B	-rw-r--r--
module.info.ja_JP.UTF-8	58 B	-rw-r--r--
module.info.ja_JP.euc	44 B	-rw-r--r--
module.info.ko_KR.UTF-8	48 B	-rw-r--r--
module.info.ko_KR.euc	38 B	-rw-r--r--
module.info.ms_MY	155 B	-rw-r--r--
module.info.ms_MY.UTF-8	167 B	-rw-r--r--
module.info.nl	30 B	-rw-r--r--
module.info.nl.UTF-8	36 B	-rw-r--r--
module.info.no	29 B	-rw-r--r--
module.info.no.UTF-8	35 B	-rw-r--r--
module.info.pl	106 B	-rw-r--r--
module.info.pl.UTF-8	119 B	-rw-r--r--
module.info.ru.UTF-8	47 B	-rw-r--r--
module.info.ru_RU	31 B	-rw-r--r--
module.info.ru_RU.UTF-8	50 B	-rw-r--r--
module.info.ru_SU	31 B	-rw-r--r--
module.info.sv	31 B	-rw-r--r--
module.info.sv.UTF-8	37 B	-rw-r--r--
module.info.zh_CN	30 B	-rw-r--r--
module.info.zh_TW.Big5	35 B	-rw-r--r--
msc-linux-lib.pl	10.37 KB	-rwxr-xr-x
nis-lib.pl	6.01 KB	-rwxr-xr-x
nisupdate.conf	1.94 KB	-rw-r--r--
old_edit_passwd_shadow.cgi	4.61 KB	-rwxr-xr-x
old_edit_switch.cgi	1.76 KB	-rwxr-xr-x
old_save_switch.cgi	533 B	-rwxr-xr-x
open-linux-lib.pl	7.88 KB	-rwxr-xr-x
openmamba-linux-lib.pl	10.38 KB	-rwxr-xr-x
redhat-linux-lib.pl	10.37 KB	-rwxr-xr-x
save_aliases.cgi	749 B	-rwxr-xr-x
save_client.cgi	661 B	-rwxr-xr-x
save_ethers.cgi	793 B	-rwxr-xr-x
save_file.cgi	588 B	-rwxr-xr-x
save_group.cgi	945 B	-rwxr-xr-x
save_group_shadow.cgi	1.04 KB	-rwxr-xr-x
save_hosts.cgi	758 B	-rwxr-xr-x
save_netgroup.cgi	1.04 KB	-rwxr-xr-x
save_netmasks.cgi	753 B	-rwxr-xr-x
save_networks.cgi	791 B	-rwxr-xr-x
save_passwd_shadow.cgi	2.36 KB	-rwxr-xr-x
save_protocols.cgi	806 B	-rwxr-xr-x
save_rpc.cgi	746 B	-rwxr-xr-x
save_security.cgi	996 B	-rwxr-xr-x
save_server.cgi	184 B	-rwxr-xr-x
save_services.cgi	775 B	-rwxr-xr-x
save_services2.cgi	776 B	-rwxr-xr-x
save_switch.cgi	932 B	-rwxr-xr-x
slackware-linux-lib.pl	9.9 KB	-rwxr-xr-x
solaris-lib.pl	10.44 KB	-rwxr-xr-x
suse-linux-8.2-lib.pl	11.05 KB	-rwxr-xr-x
suse-linux-9.0-lib.pl	11.05 KB	-rwxr-xr-x
suse-linux-lib.pl	11.87 KB	-rwxr-xr-x
switch-lib.pl	3.08 KB	-rwxr-xr-x
trustix-linux-lib.pl	10.37 KB	-rwxr-xr-x
united-linux-lib.pl	11.05 KB	-rwxr-xr-x

Code Editor : open-linux-lib.pl

# open-linux-lib.pl
# NIS functions for caldera linux NIS client and server

$nis_config_dir = "/etc/nis";
$ypserv_conf = "/etc/ypserv.conf";
$pid_file = "/var/run/ypserv.pid";

# get_nis_support()
# Returns 0 for no support, 1 for client only, 2 for server and 3 for both
sub get_nis_support
{
local $rv;
$rv += 1 if (&has_command("ypbind"));
$rv += 2 if (-x "/usr/libexec/nis/rpc.ypserv");
return $rv;
}

# get_client_config()
# Returns a hash ref containg details of the client's NIS settings
sub get_client_config
{
local $nis;
open(CONF, $config{'client_conf'});
while(<CONF>) {
	s/\r|\n//g;
	s/#.*$//g;
	if (/^\s*domain\s*(\S+)\s*broadcast/i) {
		$nis->{'domain'} = $1;
		$nis->{'broadcast'}++;
		}
	elsif (/^\s*domain\s*(\S+)\s*server\s*(\S+)/i) {
		$nis->{'domain'} = $1;
		push(@{$nis->{'servers'}}, $2);
		}
	elsif (/^\s*ypserver\s*(\S+)/) {
		push(@{$nis->{'servers'}}, $1);
		}
	}
close(CONF);
return $nis;
}

# save_client_config(&config)
# Saves and applies the NIS client configuration in the give hash.
# Returns an error message if any, or undef on success.
sub save_client_config
{
# Save the config file
&open_tempfile(CONF, ">$config{'client_conf'}");
if ($_[0]->{'domain'}) {
	if ($_[0]->{'broadcast'}) {
		&print_tempfile(CONF, "domain $_[0]->{'domain'} broadcast\n");
		}
	else {
		local @s = @{$_[0]->{'servers'}};
		&print_tempfile(CONF, "domain $_[0]->{'domain'} server ",shift(@s),"\n");
		foreach $s (@s) {
			&print_tempfile(CONF, "ypserver $s\n");
			}
		}
	}
&close_tempfile(CONF);
if ($_[0]->{'domain'}) {
	&init::enable_at_boot("nis-client");
	}
else {
	&init::disable_at_boot("nis-client");
	}

# Apply by running the init script
local $init = &init_script("nis-client");
&system_logged("$init stop >/dev/null 2>&1");
if ($_[0]->{'domain'}) {
	&system_logged("domainname \"$_[0]->{'domain'}\"");
	local $out = &backquote_logged("$init start 2>&1");
	if ($?) { return "<pre>$out</pre>"; }
	$out = `ypwhich 2>&1`;
	if ($?) { return $text{'client_eypwhich'}; }
	}
else {
	&system_logged("domainname '' >/dev/null 2>&1");
	}
return undef;
}

# show_server_config()
# Display a form for editing NIS server options
sub show_server_config
{
local @domains;
opendir(DIR, $nis_config_dir);
foreach $f (readdir(DIR)) {
	push(@domains, $f) if ($f !~ /^\./ &&
			       -r "$nis_config_dir/$f/.nisupdate.conf");
	}
closedir(DIR);
@domains = ( "" ) if (!@domains);

local $boot = &init::action_status("nis-server");
print "<tr> <td valign=top><b>$text{'server_boot'}</b></td>\n";
printf "<td valign=top><input type=radio name=boot value=1 %s> %s\n",
	$boot == 2 ? 'checked' : '', $text{'yes'};
printf "<input type=radio name=boot value=0 %s> %s</td> </tr>\n",
	$boot == 2 ? '' : 'checked', $text{'no'};

local $n = 0;
foreach $d (@domains) {
	print "<tr> <td colspan=4><hr></td> </tr>\n";
	print "<input type=hidden name=old_$n value='$d'>\n";
	print "<tr> <td valign=top><b>$text{'server_domain'}</b></td>\n";
	printf "<td valign=top>".
	       "<input type=radio name=domain_def_$n value=1 %s> %s\n",
		$d ? '' : 'checked', $text{'server_none'};
	printf "<input type=radio name=domain_def_$n value=0 %s>\n",
		$d ? 'checked' : '';
	print "<input name=domain_$n size=30 value='$d'></td>\n";

local @conf = &parse_nisupdate_conf(
		$d ? "$nis_config_dir/$d/.nisupdate.conf"
		   : "nisupdate.conf");
	print "<td valign=top><b>$text{'server_tables'}</b></td>\n";
	print "<td><select name=tables_$n size=6 multiple>\n";
	foreach $c (@conf) {
		printf "<option value=%s %s>%s</option>\n",
			$c->{'table'}, $c->{'active'} ? 'selected' : '',
			$c->{'table'};
		}
	print "</select></td> </tr>\n";

$n++;
	}

}

# parse_server_config()
# Parse and save the NIS server options
sub parse_server_config
{
local ($n, $anydomains);
for($n=0; defined($in{"old_$n"}); $n++) {
	# Update the domain name directory
	$in{"domain_def_$n"} || $in{"domain_$n"} =~ /^[A-Za-z0-9\.\-]+$/ ||
		&error(&text('server_edomain', $in{"domain_$n"}));
	local $domain = $in{"domain_def_$n"} ? undef : $in{"domain_$n"};
	local $old = $in{"old_$n"};
	if (!$old && !$domain) {
		# No domain before, and none chosen
		next;
		}
	elsif (!$old && $domain) {
		# New domain added
		mkdir("$nis_config_dir/$domain", 0755);
		&system_logged("cp nisupdate.conf ".
			       "$nis_config_dir/$domain/.nisupdate.conf");
		}
	elsif ($old && !$domain) {
		# Domain taken away
		&system_logged("rm -rf $nis_config_dir/$old");
		next;
		}
	elsif ($old ne $domain) {
		# Domain renamed
		&rename_logged("$nis_config_dir/$old",
			       "$nis_config_dir/$domain");
		}
	$anydomains++;

# Update the config file
	local $file = "$nis_config_dir/$domain/.nisupdate.conf";
	local @conf = &parse_nisupdate_conf($file);
	local $lref = &read_file_lines($file);
	local %table;
	map { $table{$_}++ } split(/\0/, $in{"tables_$n"});
	foreach $c (@conf) {
		if ($c->{'active'} && !$table{$c->{'table'}}) {
			# Need to deactivate a table
			splice(@$lref, $c->{'line'},
			       $c->{'eline'} - $c->{'line'} + 1,
			       map { "#$_" } @{$c->{'data'}});
			}
		elsif (!$c->{'active'} && $table{$c->{'table'}}) {
			# Need to activate a table
			splice(@$lref, $c->{'line'},
			       $c->{'eline'} - $c->{'line'} + 1,
			       @{$c->{'data'}});
			}
		}
	&flush_file_lines();
	}

# Start the NIS server and rebuild maps if needed
if ($in{'boot'}) {
	&init::enable_at_boot("nis-server");
	}
else {
	&init::disable_at_boot("nis-server");
	}
local $init = &init_script("nis-server");
&system_logged("$init stop >/dev/null 2>&1");
if ($anydomains && $in{'boot'}) {
	&system_logged("$init start >/dev/null 2>&1");
	}
&apply_table_changes();
}

# get_server_mode()
# Returns 0 if the NIS server is inactive, 1 if active as a master, or 2 if
# active as a slave.
sub get_server_mode
{
local $boot = &init::action_status("nis-server");
local $dc;
opendir(DIR, $nis_config_dir);
foreach $f (readdir(DIR)) {
	$dc++ if ($f !~ /^\./ && -r "$nis_config_dir/$f/.nisupdate.conf");
	}
closedir(DIR);
if ($boot != 2 || !$dc) {
	return 0;
	}
else {
	return 1;
	}
}

# parse_nisupdate_conf(file)
sub parse_nisupdate_conf
{
local @rv;
local $lnum = 0;
open(CONF, $_[0]);
while(<CONF>) {
	s/\r|\n//g;
	if (/^\s*(#*)(\s*\$rule{['"]([^"']+)['"]}.*)/) {
		local $text = $2;
		local $table = { 'table' => $3,
				 'active' => $1 eq '',
				 'data' => [ $2 ],
				 'line' => $lnum,
			 	 'eline' => $lnum };
		while(!/;\s*$/) {
			($_ = <CONF>) || last;
			s/^\s*#+//; s/\r|\n//g;
			push(@{$table->{'data'}}, $_);
			$text .= " $_";
			$lnum++;
			$table->{'eline'} = $lnum;
			}
		$table->{'value'} = $2 if ($text =~ /\$rule{['"]([^"']+)['"]}\s*=\s*["']([^"']+)["']/);
		push(@rv, $table);
		}
	$lnum++;
	}
close(CONF);
return @rv;
}

# list_nis_tables()
# Returns a list of structures of all NIS tables
sub list_nis_tables
{
local @rv;
opendir(DIR, $nis_config_dir);
foreach $d (readdir(DIR)) {
	push(@domains, $d) if ($d !~ /^\./ &&
			       -r "$nis_config_dir/$d/.nisupdate.conf");
	}
closedir(DIR);
foreach $d (@domains) {
	local @conf = &parse_nisupdate_conf(
			"$nis_config_dir/$d/.nisupdate.conf");
	foreach $t (@conf) {
		next if (!$t->{'active'});
		local $table = { 'table' => $t->{'table'},
				 'domain' => $d,
				 'index' => scalar(@rv) };
		if ($t->{'value'} =~ /^(\S+)\s+(\S+)/) {
			$table->{'files'} = [ map { "$nis_config_dir/$d/$_" }
					 	  split(/,/, $2) ];
			}
		if ($t->{'table'} eq 'passwd') {
			$table->{'type'} = 'passwd_shadow';
			}
		elsif ($t->{'table'} eq 'services') {
			$table->{'type'} = 'services2';
			}
		else {
			$table->{'type'} = $t->{'table'};
			}
		push(@rv, $table);
		}
	}
return @rv;
}

# apply_table_changes()
# Do whatever is necessary for the table text files to be loaded into
# the NIS server
sub apply_table_changes
{
&system_logged("(cd /var/yp ; make) >/dev/null 2>&1 </dev/null");
}

sub extra_config_files
{
local ($f, @rv);
opendir(DIR, $nis_config_dir);
foreach $f (readdir(DIR)) {
        push(@rv, "$nis_config_dir/$f/.nisupdate.conf") if ($f !~ /^\./);
        }
closedir(DIR);
push(@rv, "$nis_config_dir/nisupdate.conf");
return grep { -r $_ } @rv;
}

${this.title}

Code Editor : open-linux-lib.pl