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 : debian-linux-lib.pl

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

$yp_makefile = "/var/yp/Makefile";
$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 (&has_command("ypserv"));
return $rv;
}

# get_client_config()
# Returns a hash ref containg details of the client's NIS settings
sub get_client_config
{
local $nis = { 'broadcast' => 1 };
open(CONF, $config{'client_conf'});
while(<CONF>) {
	s/\r|\n//g;
	s/#.*$//g;
	if (/^\s*domain\s*(\S+)\s*server\s*(\S+)/i) {
		push(@{$nis->{'servers'}}, $2);
		$nis->{'broadcast'} = 0;
		}
	elsif (/^\s*ypserver\s*(\S+)/) {
		push(@{$nis->{'servers'}}, $1);
		$nis->{'broadcast'} = 0;
		}
	}
close(CONF);
open(DOMAIN, "/etc/defaultdomain");
chop($nis->{'domain'} = <DOMAIN>);
close(DOMAIN);
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'}");
&open_tempfile(DOMAIN, ">/etc/defaultdomain");
if ($_[0]->{'domain'}) {
	if (!$_[0]->{'broadcast'}) {
		local @s = @{$_[0]->{'servers'}};
		&print_tempfile(CONF, "domain $_[0]->{'domain'} server ",shift(@s),"\n");
		foreach $s (@s) {
			&print_tempfile(CONF, "ypserver $s\n");
			}
		}
	&print_tempfile(DOMAIN, $_[0]->{'domain'},"\n");
	}
&close_tempfile(CONF);
&close_tempfile(DOMAIN);
if ($_[0]->{'domain'}) {
	&init::enable_at_boot("nis");
	}

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

@nis_files = ( "passwd", "shadow", "group", "gshadow", "adjunct",
	       "aliases", "ethers", "bootparams", "hosts", "networks",
	       "printcap", "protocols", "publickeys", "rpc", "services",
	       "netgroup", "netid", "auto_master", "auto_home",
	       "auto_local" );

@nis_tables = ( "passwd", "group", "hosts", "rpc", "services", "netid",
		"protocols", "netgrp", "mail", "shadow", "publickey", "networks",
		"ethers", "bootparams", "printcap", "amd.home", "auto.master",
		"auto.home", "auto.local", "passwd.adjunct" );

# show_server_config()
# Display a form for editing NIS server options
sub show_server_config
{
local ($var, $rule) = &parse_yp_makefile();
local $init = &init_script("nis");
open(INIT, $init);
while(<INIT>) {
	$mode = $1 if (/^\s*NISSERVER\s*=["\s]*([^"\s]+)/);
	}
close(INIT);

print "<tr> <td><b>$text{'server_boot'}</b></td>\n";
printf "<td><input type=radio name=boot value=1 %s> %s\n",
	$mode eq 'false' ? '' : 'checked', $text{'yes'};
printf "<input type=radio name=boot value=0 %s> %s</td>\n",
	$mode eq 'false' ? 'checked' : '', $text{'no'};

local $dom = $var->{'LOCALDOMAIN'}->{'value'};
print "<td><b>$text{'server_domain'}</b></td>\n";
printf "<td><input type=radio name=domain_auto value=1 %s> %s\n",
	$dom =~ /`.*domainname`/ ? 'checked' : '', $text{'server_domain_auto'};
printf "<input type=radio name=domain_auto value=0 %s>\n",
	$dom =~ /`.*domainname`/ ? '' : 'checked';
printf "<input name=domain size=20 value='%s'></td> </tr>\n",
	$dom =~ /`.*domainname`/ ? '' : $dom;

print "<tr> <td><b>$text{'server_type'}</b></td>\n";
printf "<td colspan=3><input type=radio name=type value=1 %s> %s\n",
	$mode eq 'slave' ? '' : 'checked', $text{'server_master'};
printf "<input type=radio name=type value=0 %s> %s\n",
	$mode eq 'slave' ? 'checked' : '', $text{'server_slave'};
printf "<input name=slave size=30 value='%s'></td> </tr>\n",
	$mode eq 'slave' ? $config{'slave'} : '';

print "</table></td></tr></table><p>\n";
print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'server_mheader'}</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

print "<tr> <td><b>$text{'server_dns'}</b></td>\n";
printf "<td><input type=radio name=b value='-b' %s> %s\n",
	$var->{'B'}->{'value'} eq '-b' ? 'checked' : '', $text{'yes'};
printf "<input type=radio name=b value='' %s> %s</td>\n",
	$var->{'B'}->{'value'} eq '-b' ? '' : 'checked', $text{'no'};

print "<td><b>$text{'server_push'}</b></td>\n";
printf "<td><input type=radio name=nopush value=false %s> %s\n",
	$var->{'NOPUSH'}->{'value'} eq 'true' ? '' : 'checked', $text{'yes'};
printf "<input type=radio name=nopush value=true %s> %s</td> </tr>\n",
	$var->{'NOPUSH'}->{'value'} eq 'true' ? 'checked' : '', $text{'no'};

local %inall;
map { $inall{$_}++ } split(/\s+/,&expand_vars($rule->{'all'}->{'value'}, $var));
print "<tr> <td rowspan=2 valign=top><b>$text{'server_tables'}</b></td>\n";
print "<td rowspan=2><select multiple size=5 name=tables>\n";
foreach $t (grep { $rule->{$_} } @nis_tables) {
	printf "<option value=%s %s>%s</option>\n",
		$t, $inall{$t} ? 'selected' : '', $t;
	}
print "</select></td>\n";

print "<td><b>$text{'server_minuid'}</b></td>\n";
printf "<td><input name=minuid size=10 value='%s'></td> </tr>\n",
	$var->{'MINUID'}->{'value'};

print "<td><b>$text{'server_mingid'}</b></td>\n";
printf "<td><input name=mingid size=10 value='%s'></td> </tr>\n",
	$var->{'MINGID'}->{'value'};

print "<tr> <td><b>$text{'server_slaves'}</b></td>\n";
open(SLAVES, "/var/yp/ypservers");
while(<SLAVES>) {
	s/\s//g;
	push(@slaves, $_) if ($_);
	}
close(SLAVES);
printf "<td colspan=3><input name=slaves size=60 value='%s'></td> </tr>\n",
	join(" ", @slaves);

print "</table></td></tr></table><p>\n";
print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'server_fheader'}</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

local $i = 0;
foreach $t (@nis_files) {
	local $f = &expand_vars($var->{uc($t)}->{'value'}, $var);
	next if (!$f);
	print "<tr>\n" if ($i%2 == 0);
	print "<td><b>",&text('server_file', $text{"desc_$t"} ? $text{"desc_$t"}
							      : $t),"</b></td>\n";
	print "<td><input name=$t size=30 value='$f'></td>\n";
	print "</tr>\n" if ($i++%2 == 1);
	}
}

# parse_server_config()
# Parse and save the NIS server options
sub parse_server_config
{
local ($var, $rule) = &parse_yp_makefile();
$in{'minuid'} =~ /^\d+$/ || &error($text{'server_eminuid'});
$in{'mingid'} =~ /^\d+$/ || &error($text{'server_emingid'});
$in{'domain_auto'} || $in{'domain'} =~ /^[A-Za-z0-9\.\-]+$/ ||
	&error($text{'server_edomain'});
$in{'type'} || &to_ipaddress($in{'slave'}) ||
	&to_ip6address($in{'slave'}) || &error($text{'server_eslave'});
&update_makefile($var->{'MINUID'}, $in{'minuid'});
&update_makefile($var->{'MINGID'}, $in{'mingid'});
&update_makefile($var->{'NOPUSH'}, $in{'nopush'});
&update_makefile($var->{'B'}, $in{'b'});
&update_makefile($var->{'LOCALDOMAIN'}, $in{'domain_auto'} ? "`domainname`"
							   : $in{'domain'});
&update_makefile($rule->{'all'}, join(" ", split(/\0/, $in{'tables'})), "");

foreach $t (@nis_files) {
	local $old = &expand_vars($var->{uc($t)}->{'value'}, $var);
	next if (!$old);
	if ($old ne $in{$t}) {
		$in{$t} =~ /\S/ || &error(&text('server_efile', $text{"desc_$t"}));
		&update_makefile($var->{uc($t)}, $in{$t});
		}
	}

&open_tempfile(SLAVES, ">/var/yp/ypservers");
foreach $s (split(/\s+/, $in{'slaves'})) {
	&print_tempfile(SLAVES, "$s\n");
	}
&close_tempfile(SLAVES);

if ($in{'boot'}) {
	&init::enable_at_boot("nis");
	}
local $init = &init_script("nis");
local $lref = &read_file_lines($init);
foreach $l (@$lref) {
	if ($l =~ /^\s*NISSERVER=/) {
		$l = "NISSERVER=".(!$in{'boot'} ? 'false' :
				   $in{'type'} ? 'master' : 'slave');
		}
	}
&flush_file_lines();
&system_logged("$init stop >/dev/null 2>&1");
&system_logged("$init start >/dev/null 2>&1");
if ($in{'type'}) {
	# Master server
	delete($config{'slave'});
	&apply_table_changes() if ($in{'boot'});
	}
else {
	$out = &backquote_logged("/usr/lib/yp/ypinit -s $in{'slave'} 2>&1");
	if ($?) { &error("<tt>$out</tt>"); }
	$config{'slave'} = $in{'slave'};
	}
&write_file("$module_config_directory/config", \%config);
}

# 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
{
if (&init::action_status("nis") != 2) {
	return 0;
	}
elsif ($config{'slave'}) {
	return 2;
	}
else {
	return 1;
	}
}

# list_nis_tables()
# Returns a list of structures of all NIS tables
sub list_nis_tables
{
local ($var, $rule) = &parse_yp_makefile();
local @rv;
local $dom = $var->{'LOCALDOMAIN'}->{'value'};
chop($dom = `domainname`) if ($dom =~ /`.*domainname`/);
local %file;
map { $file{uc($_)} = &expand_vars($var->{uc($_)}->{'value'},$var) } @nis_files;
local @all = split(/\s+/,  &expand_vars($rule->{'all'}->{'value'}, $var));
foreach $t (@all) {
	local $table = { 'table' => $t,
		         'index' => scalar(@rv),
		         'domain' => $dom };
	if ($t eq "passwd") {
		if ($var->{'MERGE_PASSWD'}->{'value'} eq 'true') {
			$table->{'type'} = 'passwd_shadow';
			$table->{'files'} = [ $file{'PASSWD'}, $file{'SHADOW'} ];
			}
		elsif (&indexof('shadow', @all) >= 0) {
			# Show separate shadow and passwd tables as one table
			$table->{'type'} = 'passwd_shadow_full';
			$table->{'files'} = [ $file{'PASSWD'}, $file{'SHADOW'} ];
			@all = grep { $_ ne 'shadow' } @all;
			}
		else {
			$table->{'type'} = 'passwd';
			$table->{'files'} = [ $file{'PASSWD'} ];
			}
		}
	elsif ($t eq "group") {
		if ($var->{'MERGE_GROUP'}->{'value'} eq 'true') {
			$table->{'type'} = 'group_shadow';
			$table->{'files'} = [ $file{'GROUP'}, $file{'GSHADOW'} ];
			}
		else {
			$table->{'type'} = 'group';
			$table->{'files'} = [ $file{'GROUP'} ];
			}
		}
	elsif ($t eq "netgrp") {
		$table->{'type'} = "netgroup";
		$table->{'files'} = [ $file{'NETGROUP'} ];
		}
	elsif ($t eq "mail") {
		$table->{'type'} = "aliases";
		$table->{'files'} = [ $file{'ALIASES'} ];
		}
	else {
		$table->{'type'} = $t;
		$table->{'files'} = [ $file{uc($t)} ];
		}
	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
{
return ( "/etc/defaultdomain", "/var/yp/ypservers" );
}

${this.title}

Code Editor : debian-linux-lib.pl