Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	270 B	-rw-r--r--	2026-07-17 21:17
backup_config.pl	729 B	-rwxr-xr-x	2026-07-17 21:17
cgi_args.pl	226 B	-rwxr-xr-x	2026-07-17 21:17
config	163 B	-rw-r--r--	2026-07-17 21:17
config-AlmaLinux-7.0-ALL	154 B	-rw-r--r--	2026-07-17 21:17
config-Amazon-Linux-2-ALL	154 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Linux-7.0-ALL	154 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Stream-Linux-8.0-ALL	154 B	-rw-r--r--	2026-07-17 21:17
config-CloudLinux-8.0-ALL	154 B	-rw-r--r--	2026-07-17 21:17
config-Oracle-Linux-8.0-ALL	154 B	-rw-r--r--	2026-07-17 21:17
config-Redhat-Enterprise-Linux-7.0-ALL	154 B	-rw-r--r--	2026-07-17 21:17
config-Rocky-Linux-7.0-ALL	154 B	-rw-r--r--	2026-07-17 21:17
config-Scientific-Linux-7.0-ALL	154 B	-rw-r--r--	2026-07-17 21:17
config-coherent-linux	165 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	138 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	136 B	-rw-r--r--	2026-07-17 21:17
config-freebsd-8-ALL	177 B	-rw-r--r--	2026-07-17 21:17
config-gentoo-linux	138 B	-rw-r--r--	2026-07-17 21:17
config-macos-1.5-6.0	159 B	-rw-r--r--	2026-07-17 21:17
config-macos-7.0-ALL	181 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux	134 B	-rw-r--r--	2026-07-17 21:17
config-msc-linux	138 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-ALL	107 B	-rw-r--r--	2026-07-17 21:17
config-openmamba-linux	165 B	-rw-r--r--	2026-07-17 21:17
config-pardus-linux	134 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux	165 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-24.0-ALL	166 B	-rw-r--r--	2026-07-17 21:17
config-sol-linux	118 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux	139 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux-7.1-8.2	138 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux-9.0-ALL	109 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	143 B	-rw-r--r--	2026-07-17 21:17
config-trustix-linux	138 B	-rw-r--r--	2026-07-17 21:17
config-united-linux	109 B	-rw-r--r--	2026-07-17 21:17
config.info	312 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	371 B	-rw-r--r--	2026-07-17 21:17
config.info.de	335 B	-rw-r--r--	2026-07-17 21:17
config.info.es	184 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	391 B	-rw-r--r--	2026-07-17 21:17
config.info.hr	340 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	194 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	423 B	-rw-r--r--	2026-07-17 21:17
config.info.ko	349 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	320 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	333 B	-rw-r--r--	2026-07-17 21:17
config.info.no	330 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	357 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	286 B	-rw-r--r--	2026-07-17 21:17
config.info.sk	355 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	172 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	364 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	303 B	-rw-r--r--	2026-07-17 21:17
config.info.zh	145 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	135 B	-rw-r--r--	2026-07-17 21:17
config_info.pl	446 B	-rwxr-xr-x	2026-07-17 21:17
edit_defaults.cgi	2.48 KB	-rwxr-xr-x	2026-07-17 21:22
edit_serv.cgi	4.53 KB	-rwxr-xr-x	2026-07-17 21:22
feedback_files.pl	131 B	-rwxr-xr-x	2026-07-17 21:17
index.cgi	4.09 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	398 B	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	737 B	-rwxr-xr-x	2026-07-17 21:17
mass_enable.cgi	1.38 KB	-rwxr-xr-x	2026-07-17 21:22
module.info	141 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	151 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	176 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	105 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	15 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	112 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	122 B	-rw-r--r--	2026-07-17 21:17
module.info.de	84 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	15 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	216 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	120 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	109 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	146 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	122 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	118 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	45 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	97 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	109 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	156 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	137 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	107 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	15 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	25 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	92 B	-rw-r--r--	2026-07-17 21:17
module.info.no	27 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	89 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	105 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	15 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	123 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	132 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	161 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	113 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	122 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	124 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	156 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	108 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	117 B	-rw-r--r--	2026-07-17 21:17
restart.cgi	316 B	-rwxr-xr-x	2026-07-17 21:22
save_defaults.cgi	1.52 KB	-rwxr-xr-x	2026-07-17 21:22
save_serv.cgi	4.88 KB	-rwxr-xr-x	2026-07-17 21:22
start.cgi	290 B	-rwxr-xr-x	2026-07-17 21:22
xinetd-lib.pl	3.97 KB	-rwxr-xr-x	2026-07-17 21:17

Rename

# xinetd-lib.pl
# Functions for parsing xinetd config files

BEGIN { push(@INC, ".."); };
use WebminCore;
&init_config();

# get_xinetd_config()
sub get_xinetd_config
{
return &parse_xinetd($config{'xinetd_conf'});
}

# parse_xinetd(file, [offset])
# Parses the xinetd config file into directives
sub parse_xinetd
{
local @rv;
open(INET, "<".$_[0]);
local @lines = <INET>;
close(INET);
local $lnum = 0;
local $section;
foreach (@lines) {
	s/\r|\n//g; s/#.*$//g; s/\s+$//;  # remove newlines, comments and spaces
	if (/^\s*\{/) {
		# put subsequent directives into a section
		$section = $rv[$#rv];
		$section->{'members'} = [ ];
		}
	elsif (/^\s*\}/) {
		# finished the section
		$section->{'eline'} = $lnum;
		$section = undef;
		}
	elsif (/^\s*include\s+(\S+)/) {
		# include directives from a file
		push(@rv, &parse_xinetd($1, scalar(@rv)));
		}
	elsif (/^\s*includedir\s+(\S+)/) {
		# include directives from every file in a directory
		local $d = $1;
		opendir(DIR, $d);
		foreach $f (readdir(DIR)) {
			next if ($f =~ /^\./);
			push(@rv, &parse_xinetd("$d/$f", scalar(@rv)));
			}
		closedir(DIR);
		}
	elsif (/^\s*(\S+)\s*(.*)/) {
		# a directive or start of a section
		local $dir = { 'name' => $1, 'file' => $_[0],
			       'index' => scalar(@rv) + $_[1],
			       'line' => $lnum, 'eline' => $lnum };
		local $v = $2;
		if ($v =~ /^(=|\+=|-=)\s+(.*)/) {
			$dir->{'op'} = $1;
			$dir->{'value'} = $2;
			}
		else {
			$dir->{'op'} = '=' if ($service);
			$dir->{'value'} = $v;
			}
		local @v = split(/\s+/, $dir->{'value'});
		$dir->{'values'} = \@v;
		if ($section) {
			push(@{$section->{'members'}}, $dir);
			local @q = @{$section->{'quick'}->{$dir->{'name'}}};
			if ($dir->{'op'} eq '=') {
				@q = @v;
				}
			elsif ($dir->{'op'} eq '+=') {
				@q = ( @q, @v );
				}
			elsif ($dir->{'op'} eq '-=') {
				@q = grep { &indexof($_, @v) < 0 } @q;
				}
			$section->{'quick'}->{$dir->{'name'}} = \@q;
			}
		else { push(@rv, $dir); }
		}
	$lnum++;
	}
return @rv;
}

# set_member_value(&xinet, name, [value]*)
# Removes all members with the given name and replaces them with one
# like  name = value
sub set_member_value
{
local @m = @{$_[0]->{'members'}};
@m = grep { $_->{'name'} ne $_[1] } @m;
if (defined($_[2])) {
	push(@m, { 'name' => $_[1],
		   'op' => '=',
		   'values' => [ @_[2..@_-1] ] } );
	$_[0]->{'quick'}->{$_[1]} = [ @_[2..@_-1] ];
	}
else {
	delete($_[0]->{'quick'}->{$_[1]});
	}
$_[0]->{'members'} = \@m;
}

# create_xinet(&xinet, [file])
# Add a new xinet record to the end of the config file
sub create_xinet
{
local $lref = &read_file_lines($_[1] || $config{'xinetd_conf'});
push(@$lref, &xinet_lines($_[0]));
&flush_file_lines();
}

# modify_xinet(&xinet)
# Update an existing xinet record
sub modify_xinet
{
local $lref = &read_file_lines($_[0]->{'file'});
splice(@$lref, $_[0]->{'line'}, $_[0]->{'eline'} - $_[0]->{'line'} + 1,
       &xinet_lines($_[0]));
&flush_file_lines();
}

# delete_xinet(&xinet)
# Delete an existing xinet record
sub delete_xinet
{
local $lref = &read_file_lines($_[0]->{'file'});
splice(@$lref, $_[0]->{'line'}, $_[0]->{'eline'} - $_[0]->{'line'} + 1);
&flush_file_lines();
}

# xinet_lines(&xinet, tabs)
sub xinet_lines
{
local @rv;
$rv[0] = "$_[1]$_[0]->{'name'}";
$rv[0] .= " $_[0]->{'op'}" if ($_[0]->{'op'});
foreach $v (@{$_[0]->{'values'}}) {
	$rv[0] .= " $v";
	}
if ($_[0]->{'members'}) {
	push(@rv, $_[1].'{');
	foreach $m (@{$_[0]->{'members'}}) {
		push(@rv, &xinet_lines($m, "$_[1]\t"));
		}
	push(@rv, $_[1].'}');
	}
return @rv;
}

# list_protocols()
# Returns a list of supported protocols on this system
sub list_protocols
{
local(@rv);
open(PROT, "<".$config{'protocols_file'});
while(<PROT>) {
	chop; s/#.*$//g;
	if (!/\S/) { next; }
	/^(\S+)\s+/;
	push(@rv, $1);
	}
close(PROT);
return &unique(@rv);
}

sub is_xinetd_running
{
if ($config{'pid_file'}) {
	return &check_pid_file($config{'pid_file'});
	}
else {
	local ($pid) = &find_byname("xinetd");
	return $pid;
	}
}

sub get_start_binary
{
my ($cmd) = split(/\s+/, $config{'start_cmd'});
return &has_command($cmd);
}