Gecko [ 122.154.134.11 ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	270 B	-rw-r--r--
backup_config.pl	729 B	-rwxr-xr-x
cgi_args.pl	226 B	-rwxr-xr-x
config	163 B	-rw-r--r--
config-Amazon-Linux-2-ALL	154 B	-rw-r--r--
config-CentOS-Linux-7.0-ALL	154 B	-rw-r--r--
config-Redhat-Enterprise-Linux...	154 B	-rw-r--r--
config-Scientific-Linux-7.0-AL...	154 B	-rw-r--r--
config-coherent-linux	165 B	-rw-r--r--
config-debian-linux	138 B	-rw-r--r--
config-freebsd	136 B	-rw-r--r--
config-freebsd-8-ALL	177 B	-rw-r--r--
config-gentoo-linux	138 B	-rw-r--r--
config-macos-1.5-6.0	159 B	-rw-r--r--
config-macos-7.0-ALL	181 B	-rw-r--r--
config-mandrake-linux	134 B	-rw-r--r--
config-msc-linux	138 B	-rw-r--r--
config-openmamba-linux	165 B	-rw-r--r--
config-pardus-linux	134 B	-rw-r--r--
config-redhat-linux	165 B	-rw-r--r--
config-redhat-linux-24.0-ALL	166 B	-rw-r--r--
config-sol-linux	118 B	-rw-r--r--
config-suse-linux	139 B	-rw-r--r--
config-suse-linux-7.1-8.2	138 B	-rw-r--r--
config-suse-linux-9.0-ALL	109 B	-rw-r--r--
config-syno-linux	143 B	-rw-r--r--
config-trustix-linux	138 B	-rw-r--r--
config-united-linux	109 B	-rw-r--r--
config.info	312 B	-rw-r--r--
config.info.ca	364 B	-rw-r--r--
config.info.ca.UTF-8	371 B	-rw-r--r--
config.info.de	339 B	-rw-r--r--
config.info.de.UTF-8	339 B	-rw-r--r--
config.info.es	188 B	-rw-r--r--
config.info.es.UTF-8	188 B	-rw-r--r--
config.info.fr	411 B	-rw-r--r--
config.info.fr.UTF-8	411 B	-rw-r--r--
config.info.hr	338 B	-rw-r--r--
config.info.hu	184 B	-rw-r--r--
config.info.hu.UTF-8	194 B	-rw-r--r--
config.info.ja_JP.UTF-8	423 B	-rw-r--r--
config.info.ja_JP.euc	327 B	-rw-r--r--
config.info.ko_KR.UTF-8	349 B	-rw-r--r--
config.info.ko_KR.euc	284 B	-rw-r--r--
config.info.ms	251 B	-rw-r--r--
config.info.ms.UTF-8	251 B	-rw-r--r--
config.info.ms_MY	320 B	-rw-r--r--
config.info.ms_MY.UTF-8	320 B	-rw-r--r--
config.info.nl	333 B	-rw-r--r--
config.info.nl.UTF-8	333 B	-rw-r--r--
config.info.no	342 B	-rw-r--r--
config.info.no.UTF-8	342 B	-rw-r--r--
config.info.pl	347 B	-rw-r--r--
config.info.pl.UTF-8	357 B	-rw-r--r--
config.info.ru.UTF-8	286 B	-rw-r--r--
config.info.ru_RU	195 B	-rw-r--r--
config.info.ru_RU.UTF-8	286 B	-rw-r--r--
config.info.ru_SU	195 B	-rw-r--r--
config.info.sk	331 B	-rw-r--r--
config.info.sk.UTF-8	355 B	-rw-r--r--
config.info.sv	200 B	-rw-r--r--
config.info.sv.UTF-8	200 B	-rw-r--r--
config.info.tr	346 B	-rw-r--r--
config.info.uk_UA	208 B	-rw-r--r--
config.info.uk_UA.UTF-8	298 B	-rw-r--r--
config.info.zh_CN	125 B	-rw-r--r--
config.info.zh_CN.UTF-8	145 B	-rw-r--r--
config.info.zh_TW.Big5	117 B	-rw-r--r--
config.info.zh_TW.UTF-8	135 B	-rw-r--r--
config_info.pl	446 B	-rwxr-xr-x
edit_defaults.cgi	2.48 KB	-rwxr-xr-x
edit_serv.cgi	4.53 KB	-rwxr-xr-x
feedback_files.pl	131 B	-rwxr-xr-x
index.cgi	4.09 KB	-rwxr-xr-x
install_check.pl	398 B	-rwxr-xr-x
log_parser.pl	737 B	-rwxr-xr-x
mass_enable.cgi	1.38 KB	-rwxr-xr-x
module.info	141 B	-rw-r--r--
module.info.ca	105 B	-rw-r--r--
module.info.ca.UTF-8	117 B	-rw-r--r--
module.info.de	84 B	-rw-r--r--
module.info.de.UTF-8	96 B	-rw-r--r--
module.info.hu	41 B	-rw-r--r--
module.info.hu.UTF-8	51 B	-rw-r--r--
module.info.ms_MY	113 B	-rw-r--r--
module.info.ms_MY.UTF-8	125 B	-rw-r--r--
module.info.nl	25 B	-rw-r--r--
module.info.nl.UTF-8	31 B	-rw-r--r--
module.info.no	27 B	-rw-r--r--
module.info.no.UTF-8	33 B	-rw-r--r--
module.info.pl	102 B	-rw-r--r--
module.info.pl.UTF-8	117 B	-rw-r--r--
restart.cgi	316 B	-rwxr-xr-x
save_defaults.cgi	1.52 KB	-rwxr-xr-x
save_serv.cgi	4.88 KB	-rwxr-xr-x
start.cgi	290 B	-rwxr-xr-x
xinetd-lib.pl	3.96 KB	-rwxr-xr-x

Code Editor : save_serv.cgi

#!/usr/bin/perl
# save_serv.cgi
# Create, modify or delete an internet service

require './xinetd-lib.pl';
&ReadParse();
@conf = &get_xinetd_config();
if ($in{'new'}) {
	$xinet = { 'name' => 'service',
		   'members' => [ ] };
	}
else {
	$xinet = $conf[$in{'idx'}];
	($defs) = grep { $_->{'name'} eq 'defaults' } @conf;
	foreach $m (@{$defs->{'members'}}) {
		$ddisable{$m->{'value'}} = $m if ($m->{'name'} eq 'disabled');
		}
	$oldid = $xinet->{'quick'}->{'id'}->[0] || $xinet->{'value'};
	}

&lock_file($config{'xinetd_conf'});
if ($in{'delete'}) {
	# Delete a service
	&delete_xinet($xinet);
	}
else {
	# Validate inputs
	&error_setup($text{'serv_err'});
	$in{'id'} =~ /^\S+$/ || &error($text{'serv_eid'});
	$in{'bind_def'} || &check_ipaddress($in{'bind'}) ||
	    &check_ip6address($in{'bind'}) ||
		&error($text{'serv_ebind'});
	foreach $p (&list_protocols()) {
		@ps = getservbyname($in{'id'}, $p);
		last if (@ps);
		}
	if ($in{'port_def'}) {
		# make sure the service actually exists
		if ($in{'proto'}) {
			@s = getservbyname($in{'id'}, $in{'proto'});
			}
		else {
			@s = @ps;
			}
		@s || &error(&text('serv_estd', $in{'name'}));
		}
	else {
		$in{'port'} =~ /^\d+$/ || &error($text{'serv_eport'});
		$in{'proto'} || @ps || &error($text{'serv_eproto'});
		}
	$in{'inst_def'} || $in{'inst'} =~ /^\d+$/ ||
		&error($text{'serv_einst'});
	$in{'user'} || $in{'prog'} == 0 || &error($text{'serv_euser'});
	$in{'group_def'} || $in{'group'} || &error($text{'serv_egroup'});
	$in{'nice_def'} || $in{'nice'} =~ /^\d+$/ ||
		&error($text{'serv_enice'});
	if (!$in{'cps_def'}) {
		$in{'cps'} =~ /^\d+$/ || &error($text{'serv_ecps0'});
		$in{'cps1'} =~ /^\d+$/ || &error($text{'serv_ecps1'});
		}
	if (!$in{'times_def'}) {
		@times = split(/\s+/, $in{'times'});
		map { &error($text{'serv_etimes'}) if (!/^\d+:\d+\-\d+:\d+$/) }
		    @times;
		}

# Create service structure
	$xinet->{'values'} = [ $in{'id'} ];
	&set_member_value($xinet, 'disable', $in{'disable'} ? 'yes' : undef);
	&set_member_value($xinet, 'port',
			  $in{'port_def'} ? undef : $in{'port'});
	&set_member_value($xinet, 'bind',
			  $in{'bind_def'} ? undef : $in{'bind'});
	&set_member_value($xinet, 'socket_type', $in{'sock'});
	&set_member_value($xinet, 'protocol', $in{'proto'} ? $in{'proto'}
							   : undef);

&set_member_value($xinet, 'user', $in{'user'}) if ($in{'user'});
	&set_member_value($xinet, 'group',
			  $in{'group_def'} ? undef : $in{'group'});
	@type = @{$q->{'type'}};
	@flags = @{$q->{'flags'}};
	if ($in{'prog'} == 0) {
		@type = &unique(@type, 'INTERNAL');
		&set_member_value($xinet, 'server');
		&set_member_value($xinet, 'server_args');
		&set_member_value($xinet, 'redirect');
		}
	elsif ($in{'prog'} == 1) {
		@type = grep { $_ ne 'INTERNAL' } @type;
		@s = split(/\s+/, $in{'server'});
		$in{'disable'} || @s && -x $s[0] ||
			&error($text{'serv_eserver'});
		&set_member_value($xinet, 'server', shift(@s));
		&set_member_value($xinet, 'server_args', @s);
		&set_member_value($xinet, 'redirect');
		}
	else {
		&to_ipaddress($in{'rhost'}) ||
			&error($text{'serv_erhost'});
		$in{'rport'} =~ /^\d+$/ || &error($text{'serv_erport'});
		@type = grep { $_ ne 'INTERNAL' } @type;
		&set_member_value($xinet, 'server');
		&set_member_value($xinet, 'server_args');
		&set_member_value($xinet, 'redirect',
				  $in{'rhost'}, $in{'rport'});
		}
	if ($in{'port_def'} || (!$in{'port_def'} && !$in{'proto'} && @ps)) {
		@type = grep { $_ ne 'UNLISTED' } @type;
		}
	else {
		@type = &unique(@type, 'UNLISTED');
		}
	&set_member_value($xinet, 'type', @type);
	&set_member_value($xinet, 'wait', $in{'wait'} ? 'yes' : 'no');
	&set_member_value($xinet, 'instances',
			  $in{'inst_def'} ? undef : $in{'inst'});
	&set_member_value($xinet, 'nice',
			  $in{'nice_def'} ? undef : $in{'nice'});
	&set_member_value($xinet, 'cps',
			  $in{'cps_def'} ? ( ) : ( $in{'cps'},$in{'cps1'} ) );
	&set_member_value($xinet, 'only_from', $in{'from_def'} ? undef :
			  $in{'from'} ? split(/\s+/, $in{'from'}) : ("") );
	&set_member_value($xinet, 'no_access', $in{'access_def'} ? undef :
			  $in{'access'} ? split(/\s+/, $in{'access'}) : ("") );
	&set_member_value($xinet, 'access_times', $in{'times_def'} ? undef
								   : @times);

if ($in{'new'}) {
		foreach $xi (@conf) {
			if ($xi->{'name'} eq 'service' &&
			    $xi->{'value'} eq $in{'id'}) {
				# A service with the same name exists!
				&set_member_value(
					$xinet, 'id', "$in{'id'}-$in{'sock'}");
				}
			}
		if (-d $config{'add_dir'}) {
			&lock_file($newfile);
			$newfile = "$config{'add_dir'}/$in{'id'}";
			&create_xinet($xinet, $newfile);
			&unlock_file($newfile);
			}
		else {
			&create_xinet($xinet);
			}
		}
	else {
		&modify_xinet($xinet);
		if ($ddisable{$oldid}) {
			# Take out old global disabled
			&delete_xinet($ddisable{$oldid});
			}
		}
	}
&unlock_file($config{'xinetd_conf'});
&webmin_log($in{'delete'} ? 'delete' : $in{'new'} ? 'create' : 'modify',
	    'serv', $xinet->{'values'}->[0], $xinet->{'quick'});
&redirect("");

${this.title}

Code Editor : save_serv.cgi