Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	1.1 KB	-rw-r--r--	2026-07-17 21:17
atboot.cgi	483 B	-rwxr-xr-x	2026-07-17 21:22
browser.cgi	2.29 KB	-rwxr-xr-x	2026-07-17 21:22
check.cgi	2.93 KB	-rwxr-xr-x	2026-07-17 21:22
config-ALL-linux	79 B	-rw-r--r--	2026-07-17 21:17
config-AlmaLinux-6.0-ALL	66 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Linux-6.0-ALL	66 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Stream-Linux-8.0-ALL	66 B	-rw-r--r--	2026-07-17 21:17
config-CloudLinux-8.0-ALL	66 B	-rw-r--r--	2026-07-17 21:17
config-Oracle-Linux-8.0-ALL	66 B	-rw-r--r--	2026-07-17 21:17
config-Redhat-Enterprise-Linux-6.0-ALL	66 B	-rw-r--r--	2026-07-17 21:17
config-Rocky-Linux-6.0-ALL	66 B	-rw-r--r--	2026-07-17 21:17
config-Scientific-Linux-6.0-ALL	66 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-3.1	100 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-4.0-5.9	65 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-6.0-6.9	128 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-7.0-ALL	65 B	-rw-r--r--	2026-07-17 21:17
config-pardus-linux	74 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-13.0-ALL	89 B	-rw-r--r--	2026-07-17 21:17
config.info	556 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	732 B	-rw-r--r--	2026-07-17 21:17
config.info.de	593 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	473 B	-rw-r--r--	2026-07-17 21:17
config.info.no	528 B	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	599 B	-rw-r--r--	2026-07-17 21:17
cpan_modules.pl	82 B	-rwxr-xr-x	2026-07-17 21:17
edit_base.cgi	2.47 KB	-rwxr-xr-x	2026-07-17 21:22
edit_pam.cgi	1.36 KB	-rwxr-xr-x	2026-07-17 21:22
edit_server.cgi	3.3 KB	-rwxr-xr-x	2026-07-17 21:22
edit_switch.cgi	1.74 KB	-rwxr-xr-x	2026-07-17 21:22
fixpam.cgi	364 B	-rwxr-xr-x	2026-07-17 21:22
index.cgi	2.36 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	334 B	-rwxr-xr-x	2026-07-17 21:17
ldap-client-lib.pl	11.74 KB	-rwxr-xr-x	2026-07-17 21:17
list_switches.cgi	772 B	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	461 B	-rwxr-xr-x	2026-07-17 21:17
module.info	158 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	122 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	161 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	97 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	0 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	105 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	97 B	-rw-r--r--	2026-07-17 21:17
module.info.de	99 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	148 B	-rw-r--r--	2026-07-17 21:17
module.info.es	0 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	99 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	106 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	159 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	110 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	120 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	99 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	117 B	-rw-r--r--	2026-07-17 21:17
module.info.it	0 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	95 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	144 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	128 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	103 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	20 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	83 B	-rw-r--r--	2026-07-17 21:17
module.info.no	20 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	80 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	95 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	101 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	24 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	83 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	170 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	108 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	104 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	123 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	146 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	84 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	90 B	-rw-r--r--	2026-07-17 21:17
popup_browser.cgi	2.73 KB	-rwxr-xr-x	2026-07-17 21:22
restart.cgi	329 B	-rwxr-xr-x	2026-07-17 21:22
save_base.cgi	1.86 KB	-rwxr-xr-x	2026-07-17 21:22
save_pam.cgi	1.31 KB	-rwxr-xr-x	2026-07-17 21:22
save_server.cgi	3.56 KB	-rwxr-xr-x	2026-07-17 21:22
save_switch.cgi	932 B	-rwxr-xr-x	2026-07-17 21:22
start.cgi	282 B	-rwxr-xr-x	2026-07-17 21:22
stop.cgi	254 B	-rwxr-xr-x	2026-07-17 21:22
switch-lib.pl	3.08 KB	-rwxr-xr-x	2026-07-17 21:17

Rename

# Functions for parsing nsswitch.conf

$nsswitch_config_file = $config{'nsswitch_conf'} || "/etc/nsswitch.conf";

# get_nsswitch_config()
# Returns an array ref of information from nsswitch.conf
sub get_nsswitch_config
{
if (!scalar(@get_nsswitch_cache)) {
	@get_nsswitch_cache = ( );
	local $lnum = 0;
	open(CONF, "<".$nsswitch_config_file);
	while(<CONF>) {
		s/\r|\n//g;
		s/#.*$//;
		if (/^\s*(\S+)\s*:\s*(.*)/) {
			# Found a switch config file
			local $switch = { 'name' => $1,
					  'line' => $lnum };
			local $servs = $2;
			local @srcs = ( );
			while($servs =~ /\S/) {
				if ($servs =~ /^\s*\[([^\]]*)\](.*)/) {
					# Actions for some source
					$servs = $2;
					foreach $av (split(/\s+/, $1)) {
						local ($a, $v) = split(/=/,$av);
						$srcs[$#srcs]->{lc($a)} =lc($v);
						}
					}
				elsif ($servs =~ /^\s*(\S+)(.*)/) {
					# A source
					push(@srcs, { 'src' => $1 });
					$servs = $2;
					}
				}
			$switch->{'srcs'} = \@srcs;
			push(@get_nsswitch_cache, $switch);
			}
		$lnum++;
		}
	close(CONF);
	}
return \@get_nsswitch_cache;
}

# save_nsswitch_config(&switch)
# Update one service
sub save_nsswitch_config
{
local ($switch) = @_;
local $lref = &read_file_lines($nsswitch_config_file);
local $line = "$switch->{'name'}:";
foreach my $s (@{$switch->{'srcs'}}) {
	$line .= " ".$s->{'src'};
	local @acts;
	foreach my $st (keys %$s) {
		if ($st ne "src") {
			push(@acts, uc($st)."=".$s->{$st});
			}
		}
	if (@acts) {
		$line .= " [".join(" ", @acts)."]";
		}
	}
$lref->[$switch->{'line'}] = $line;
&flush_file_lines($nsswitch_config_file);
}

# list_switch_sources()
# Returns a list of valid nsswitch.conf sources for this OS, and a map from
# sources to allowed services
sub list_switch_sources
{
if ($gconfig{'os_type'} =~ /-linux$/) {
	# All Linux variants
	return ( [ 'files', 'nisplus', 'nis', 'compat', 'dns', 'db',
		   'hesiod', 'ldap', 'sss' ],
		 { 'dns' => [ 'hosts' ],
		   'compat' => [ 'passwd', 'shadow', 'group' ] } );
	}
elsif ($gconfig{'os_type'} eq 'solaris' && $gconfig{'os_version'} < 8) {
	# Older Solaris
	return ( [ 'files', 'nis', 'nisplus', 'compat', 'dns' ],
		 { 'dns' => [ 'hosts' ],
		   'compat' => [ 'passwd', 'group' ] } );
	}
elsif ($gconfig{'os_type'} eq 'solaris' && $gconfig{'os_version'} >= 8) {
	# Newer Solaris
	return ( [ 'files', 'nis', 'nisplus', 'compat', 'dns', 'ldap',
		   'user', 'xfn' ],
		 { 'dns' => [ 'hosts' ],
		   'compat' => [ 'passwd', 'group' ],
		   'user' => [ 'printers' ],
		   'xfn' => [ 'printers' ] } );
	}
elsif ($gconfig{'os_type'} eq 'aix') {
	# IBM AIX
	return ( [ 'files', 'nis', 'nisplus', 'compat', 'dns', 'ldap',
		   'user', 'xfn' ],
		 { 'dns' => [ 'hosts' ],
		   'compat' => [ 'passwd', 'group' ],
		   'user' => [ 'printers' ],
		   'xfn' => [ 'printers' ] } );
	}
elsif ($gconfig{'os_type'} eq 'unixware') {
	# All Linux variants
	return ( [ 'files', 'dns', 'nis', 'nisplus' ],
		 { 'dns' => [ 'hosts' ] } );
	}
else {
	# Punt!
	return ( [ 'files', 'dns', 'nis', 'nisplus' ] );
	}
}

sub list_switch_statuses
{
return ( 'success', 'notfound', 'unavail', 'tryagain' );
}

sub list_switch_actions
{
return ( 'return', 'continue' );
}