Gecko [ thearyasamaj.org ]

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-openSUSE-Linux-15.0-ALL	116 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	320 B	-rw-r--r--
config.info.cs	321 B	-rw-r--r--
config.info.de	321 B	-rw-r--r--
config.info.es	277 B	-rw-r--r--
config.info.fr	350 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.nl	290 B	-rw-r--r--
config.info.no	297 B	-rw-r--r--
config.info.pl	309 B	-rw-r--r--
config.info.ru	491 B	-rw-r--r--
config.info.sv	132 B	-rw-r--r--
config.info.uk	500 B	-rw-r--r--
debian-linux-lib.pl	10.19 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.24 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.38 KB	-rwxr-xr-x
md5-lib.pl	7.58 KB	-rwxr-xr-x
module.info	346 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	167 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	195 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	287 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	250 B	-rw-r--r--
module.info.ca	163 B	-rw-r--r--
module.info.ca.auto	12 B	-rw-r--r--
module.info.cs	28 B	-rw-r--r--
module.info.cs.auto	145 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	154 B	-rw-r--r--
module.info.de	136 B	-rw-r--r--
module.info.de.auto	12 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	235 B	-rw-r--r--
module.info.es	31 B	-rw-r--r--
module.info.es.auto	138 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	164 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	248 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	158 B	-rw-r--r--
module.info.fr	30 B	-rw-r--r--
module.info.fr.auto	141 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	170 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	171 B	-rw-r--r--
module.info.hu	34 B	-rw-r--r--
module.info.hu.auto	147 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	152 B	-rw-r--r--
module.info.ja	49 B	-rw-r--r--
module.info.ja.auto	226 B	-rw-r--r--
module.info.ko	39 B	-rw-r--r--
module.info.ko.auto	154 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	169 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	169 B	-rw-r--r--
module.info.ms	149 B	-rw-r--r--
module.info.ms.auto	12 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	144 B	-rw-r--r--
module.info.nl	30 B	-rw-r--r--
module.info.nl.auto	130 B	-rw-r--r--
module.info.no	29 B	-rw-r--r--
module.info.no.auto	117 B	-rw-r--r--
module.info.pl	107 B	-rw-r--r--
module.info.pl.auto	12 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	164 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	173 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	156 B	-rw-r--r--
module.info.ru	41 B	-rw-r--r--
module.info.ru.auto	246 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	165 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	165 B	-rw-r--r--
module.info.sv	31 B	-rw-r--r--
module.info.sv.auto	123 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	347 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	169 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	247 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	244 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	217 B	-rw-r--r--
module.info.zh	34 B	-rw-r--r--
module.info.zh.auto	120 B	-rw-r--r--
module.info.zh_TW	37 B	-rw-r--r--
module.info.zh_TW.auto	126 B	-rw-r--r--
msc-linux-lib.pl	10.38 KB	-rwxr-xr-x
nis-lib.pl	6.02 KB	-rwxr-xr-x
nisupdate.conf	1.94 KB	-rw-r--r--
old_edit_passwd_shadow.cgi	4.62 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.89 KB	-rwxr-xr-x
openmamba-linux-lib.pl	10.38 KB	-rwxr-xr-x
redhat-linux-lib.pl	10.38 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.91 KB	-rwxr-xr-x
solaris-lib.pl	10.45 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.88 KB	-rwxr-xr-x
switch-lib.pl	3.08 KB	-rwxr-xr-x
trustix-linux-lib.pl	10.38 KB	-rwxr-xr-x
united-linux-lib.pl	11.05 KB	-rwxr-xr-x

Code Editor : solaris-lib.pl

# solaris-lib.pl
# NIS functions for solaris

$binding_dir = "/var/yp/binding";
$yp_makefile = "/var/yp/Makefile";

# 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 (-x "/usr/lib/netsvc/yp/ypbind");
$rv += 2 if (-x "/usr/lib/netsvc/yp/ypserv");
return $rv;
}

# get_client_config()
# Returns a hash ref containing details of the client's NIS settings
sub get_client_config
{
local $nis;
open(DOM, "</etc/defaultdomain");
chop($nis->{'domain'} = <DOM>);
close(DOM);
if ($nis->{'domain'}) {
	if (open(SRV, "<$binding_dir/$nis->{'domain'}/ypservers")) {
		while(<SRV>) {
			s/\r|\n//g;
			push(@{$nis->{'servers'}}, $_);
			}
		close(SRV);
		}
	else {
		$nis->{'broadcast'} = 1;
		}
	}
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
{
if ($_[0]->{'domain'}) {
	# Check if the servers are in /etc/hosts
	local @s = @{$_[0]->{'servers'}};
	&foreign_require("net", "net-lib.pl");
	foreach $s (@s) {
		local $found = 0;
		foreach $h (&foreign_call("net", "list_hosts")) {
			$found++ if (&indexof($s, @{$h->{'hosts'}}) >= 0);
			}
		return &text("client_ehosts", $s) if (!$found);
		}

# Write the files
	&open_tempfile(DOM, ">/etc/defaultdomain");
	&print_tempfile(DOM, $_[0]->{'domain'},"\n");
	&close_tempfile(DOM);
	mkdir("$binding_dir/$_[0]->{'domain'}", 0755);
	if (@s) {
		&open_tempfile(SRV,">$binding_dir/$_[0]->{'domain'}/ypservers");
		foreach $s (@s) {
			&print_tempfile(SRV, "$s\n");
			}
		&close_tempfile(SRV);
		}
	else {
		unlink("$binding_dir/$_[0]->{'domain'}/ypservers");
		}
	}
else {
	unlink("/etc/defaultdomain");
	}

# Apply by running ypstop and ypstart
&system_logged("(/usr/lib/netsvc/yp/ypstop || /etc/init.d/yp stop) >/dev/null 2>&1");
&system_logged("domainname \"$_[0]->{'domain'}\" >/dev/null 2>&1");
&system_logged("(/usr/lib/netsvc/yp/ypstart || /etc/init.d/yp start) >/dev/null 2>&1");
sleep(2);
if ($_[0]->{'domain'}) {
	local $out = `ypwhich 2>&1`;
	if ($? || $out =~ /not\s+bound/i || $out =~ /can't\s+communicate/i) {
		system("(/usr/lib/netsvc/yp/ypstop || /etc/init.d/yp stop) >/dev/null 2>&1");
		return $text{'client_eypwhich'};
		}
	}
}

@nis_tables = ( "passwd", "group", "hosts", "ethers", "networks", "rpc",
	        "services", "protocols", "netgroup", "bootparams", "aliases",
		"publickey", "netid", "netmasks", "c2secure", "timezone",
		"auto.master", "auto.home" );

# show_server_config()
# Display a form for editing NIS server options
sub show_server_config
{
local ($var, $rule) = &parse_yp_makefile();
local $dom = `domainname`; chop($dom);

print "<tr> <td><b>$text{'server_boot'}</b></td> <td>\n";
if ($dom && -d "/var/yp/$dom") {
	print "<i>$text{'server_already'}</i>\n";
	}
else {
	print "<input type=radio name=boot value=1 > $text{'yes'}\n";
	print "<input type=radio name=boot value=0 checked > $text{'no'}\n";
	}
print "</td>\n";

print "<td><b>$text{'server_domain'}</b></td>\n";
printf "<td><input type=radio name=domain_def value=1 %s> %s\n",
	$dom ? '' : 'checked', $text{'server_none'};
printf "<input type=radio name=domain_def value=0 %s>\n",
	$dom ? 'checked' : '';
printf "<input name=domain size=35 value='%s'></td> </tr>\n", $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",
	$config{'slave'} ? '' : 'checked', $text{'server_master'};
printf "<input type=radio name=type value=0 %s> %s\n",
	$config{'slave'} ? 'checked' : '', $text{'server_slave'};
printf "<input name=slave size=30 value='%s'></td> </tr>\n", $config{'slave'};

print "<tr> <td colspan=4><i>$text{'server_solaris'}</i></td> </tr>\n";

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";

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

print "<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> </tr>\n",
	$var->{'B'}->{'value'} eq '-b' ? '' : 'checked', $text{'no'};

print "<tr> <td><b>$text{'server_push'}</b></td>\n";
printf "<td><input type=radio name=nopush value='\"\"' %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'};

print "<tr> <td><b>$text{'server_dir'}</b></td>\n";
printf "<td><input name=dir size=30 value='%s'> %s</td> </tr>\n",
	$var->{'DIR'}->{'value'}, &file_chooser_button("dir", 0);

print "<tr> <td><b>$text{'server_pwdir'}</b></td>\n";
printf "<td><input name=pwdir size=30 value='%s'> %s</td> </tr>\n",
	$var->{'PWDIR'}->{'value'}, &file_chooser_button("pwdir", 0);
}

# parse_server_config()
# Parse and save the NIS server options
sub parse_server_config
{
local ($var, $rule) = &parse_yp_makefile();
$in{'domain_def'} || $in{'domain'} =~ /^[A-Za-z0-9\.\-\_]+$/ ||
	&error(&text('server_edomain', $in{'domain'}));
if ($in{'boot'} && $in{'domain_def'}) {
	&error($text{'server_ebootdom'});
	}
$in{'type'} || &to_ipaddress($in{'slave'}) ||
	&to_ip6address($in{'slave'}) || &error($text{'server_eslave'});
-d $in{'dir'} || &error($text{'server_edir'});
-d $in{'pwdir'} || &error($text{'server_epwdir'});
&update_makefile($var->{'NOPUSH'}, $in{'nopush'});
&update_makefile($var->{'B'}, $in{'b'});
&update_makefile($rule->{'all'}, join(" ", split(/\0/, $in{'tables'})), "");
&update_makefile($var->{'DIR'}, $in{'dir'});
&update_makefile($var->{'PWDIR'}, $in{'pwdir'});
&flush_file_lines();

if ($in{'domain_def'}) {
	unlink("/etc/defaultdomain");
	&system_logged("domainname \"\" >/dev/null 2>&1");
	}
else {
	local $old = `domainname`; chop($old);
	&open_tempfile(DOM, ">/etc/defaultdomain");
	&print_tempfile(DOM, "$in{'domain'}\n");
	&close_tempfile(DOM);
	&system_logged("domainname \"$in{'domain'}\" >/dev/null 2>&1");
	if ($in{'boot'}) {
		# Create the domain directory
		mkdir("/var/yp/$in{'domain'}", 0755);
		&system_logged("rm -f /var/yp/*.time");	# force a remake
		}
	}

if ($in{'type'}) {
	# Master server
	delete($config{'slave'});
	&apply_table_changes()
		if (!$in{'domain_def'} && -d "/var/yp/$in{'domain'}");
	}
else {
	local $temp = &transname();
	open(TEMP, ">$temp");
	print TEMP "n\ny\n";
	close(TEMP);
	$out = &backquote_logged("/usr/sbin/ypinit -s $in{'slave'} <$temp 2>&1");
	unlink($temp);
	if ($?) { &error("<tt>$out</tt>"); }
	$config{'slave'} = $in{'slave'};
	}
&write_file("$module_config_directory/config", \%config);
&system_logged("(/usr/lib/netsvc/yp/ypstop || /etc/init.d/yp stop) >/dev/null 2>&1");
&system_logged("(/usr/lib/netsvc/yp/ypstart || /etc/init.d/yp start) >/dev/null 2>&1");
}

# 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 $dom = `domainname`; chop($dom);
return !$dom ? 0 : $config{'slave'} ? 2 : 1;
}

# parse_yp_makefile()
# Returns hashes of makefile variables and rules
sub parse_yp_makefile
{
# First parse joined lines
local $lnum = 0;
local (@lines, $llast);
open(MAKE, "<".$yp_makefile);
while(<MAKE>) {
	s/\r|\n//g;
	local $slash = (s/\\$//);
	s/#.*$//;
	if ($llast) {
		$llast->{'value'} .= " $_";
		$llast->{'eline'} = $lnum;
		}
	else {
		push(@lines, { 'value' => $_,
			       'line' => $lnum,
			       'eline' => $lnum });
		}
	$llast = $slash ? $lines[$#lines] : undef;
	$lnum++;
	}
close(MAKE);

# Then look for variables and rules
local ($i, %var, %rule);
for($i=0; $i<@lines; $i++) {
	if ($lines[$i]->{'value'} =~ /^\s*(\S+)\s*=\s*(.*)/) {
		# Found a variable
		$var{$1} = { 'name' => $1,
			     'value' => $2,
			     'type' => 0,
			     'line' => $lines[$i]->{'line'},
			     'eline' => $lines[$i]->{'eline'} };
		}
	elsif ($lines[$i]->{'value'} =~ /^\s*(\S+):\s*(.*)/) {
		# Found a makefile rule
		$rule{$1} = { 'name' => $1,
			      'value' => $2,
			      'type' => 1,
			      'code' => $lines[$i+1]->{'value'},
			      'line' => $lines[$i]->{'line'},
			      'eline' => $lines[$i+1]->{'eline'} };
		$i++;
		}
	}
return ( \%var, \%rule );
}

# expand_vars(string, &vars)
sub expand_vars
{
local $rv = $_[0];
while($rv =~ /^(.*)\$$([A-Za-z0-9_]+)$(.*)$/) {
	$rv = $1.$_[1]->{$2}->{'value'}.$3;
	}
return $rv;
}

# update_makefile(&old, value, [value]);
sub update_makefile
{
local $lref = &read_file_lines($yp_makefile);
local @n;
if ($_[0]->{'type'} == 0) {
	@n = ( "$_[0]->{'name'} = $_[1]" );
	}
else {
	@n = ( "$_[0]->{'name'}: $_[1]", $_[2] );
	}
splice(@$lref, $_[0]->{'line'}, $_[0]->{'eline'} - $_[0]->{'line'} + 1, @n);
}

# apply_table_changes()
# Do whatever is necessary for the table text files to be loaded into
# the NIS server
sub apply_table_changes
{
if ($0 =~ /save_(\S+).cgi/) {
	# Try to make just one table
	local $table = $1;
	local $ex = &system_logged("(cd /var/yp ; /usr/ccs/bin/make $table) >/dev/null 2>&1 </dev/null");
	return if (!$ex);
	}
&system_logged("(cd /var/yp ; /usr/ccs/bin/make) >/dev/null 2>&1 </dev/null");
}

# list_nis_tables()
# Returns a list of structures of all NIS tables
sub list_nis_tables
{
local @rv;
local ($var, $rule) = &parse_yp_makefile();
local $dom = `domainname`; chop($dom);
local @all = split(/\s+/, $rule->{'all'}->{'value'});
foreach $t (@all) {
	local $table = { 'table' => $t,
		         'index' => scalar(@rv),
		         'domain' => $dom };
	local $rt = $rule->{"$t.time"};
	local @files = split(/\s+/, $rt->{'value'});
	@files = map { &expand_vars($_, $var) } @files;
	$table->{'files'} = \@files;
	$table->{'type'} = $t eq 'passwd' && @files > 1 ? 'passwd_shadow' :
			   $t;
	push(@rv, $table);
	}
return @rv;
}

sub show_server_security
{
}

sub parse_server_security
{
&system_logged("(/usr/lib/netsvc/yp/ypstop || /etc/init.d/yp stop) >/dev/null 2>&1");
&system_logged("(/usr/lib/netsvc/yp/ypstart || /etc/init.d/yp start) >/dev/null 2>&1");
}

sub extra_config_files
{
local @rv = ( "/etc/defaultdomain" );
local $conf = &get_client_config();
if ($conf->{'domain'}) {
	push(@rv, "$binding_dir/$conf->{'domain'}/ypservers");
	}
return @rv;
}

${this.title}

Code Editor : solaris-lib.pl