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 : edit_serv.cgi

#!/usr/bin/perl
# edit_serv.cgi
# Display a form for editing or creating an internet service

require './xinetd-lib.pl';
&ReadParse();
if ($in{'new'}) {
	&ui_print_header(undef, $text{'serv_create'}, "");
	}
else {
	&ui_print_header(undef, $text{'serv_edit'}, "");
	@conf = &get_xinetd_config();
	$xinet = $conf[$in{'idx'}];
	$q = $xinet->{'quick'};
	($defs) = grep { $_->{'name'} eq 'defaults' } @conf;
	foreach $m (@{$defs->{'members'}}) {
		$ddisable{$m->{'value'}}++ if ($m->{'name'} eq 'disabled');
		}
	}

print &ui_form_start("save_serv.cgi", "post");
print &ui_hidden("new", $in{'new'});
print &ui_hidden("idx", $in{'idx'});
print &ui_table_start($text{'serv_header1'}, "width=100%", 4);

# Service name
print &ui_table_row($text{'serv_id'},
	&ui_textbox("id", $xinet->{'value'}, 10));

# Currently enabled
$id = $q->{'id'}->[0] || $xinet->{'value'};
$dis = $q->{'disable'}->[0] eq 'yes' || $ddisable{$id};
print &ui_table_row($text{'serv_enabled'},
	&ui_radio("disable", $dis ? 1 : 0,
		  [ [ 0, $text{'yes'} ], [ 1, $text{'no'} ] ]));

# BIND to IP
print &ui_table_row($text{'serv_bind'},
	&ui_opt_textbox("bind", $q->{'bind'} ? $q->{'bind'}->[0] : undef,
			20, $text{'serv_bind_def'}));

# Listen on port
print &ui_table_row($text{'serv_port'},
	&ui_opt_textbox("port", $q->{'port'} ? $q->{'port'}->[0] : undef,
			8, $text{'serv_port_def'}));

# Socket type
print &ui_table_row($text{'serv_sock'},
	&ui_select("sock", $q->{'socket_type'}->[0],
		   [ map { [ $_, $text{'sock_'.$_} ] }
			 ('stream', 'dgram', 'raw', 'seqpacket') ]));

# Network protocol
print &ui_table_row($text{'serv_proto'},
	&ui_select("proto", $q->{'protocol'}->[0],
		   [ map { [ $_, $text{'proto_'.$_} || uc($_) ] }
			 ('', &list_protocols()) ]));

print &ui_table_end();
print &ui_table_start($text{'serv_header2'}, "width=100%", 4);

$prog = &indexof('INTERNAL', @{$q->{'type'}}) >= 0 ? 0 :
	$q->{'redirect'} ? 2 : 1;
print &ui_table_row($text{'serv_prog'},
    &ui_radio_table("prog", $prog,
	[ [ 0, $text{'serv_internal'} ],
	  [ 1, $text{'serv_server'},
	    &ui_textbox("server", join(" ", $q->{'server'}->[0],
				    	    @{$q->{'server_args'}}), 50) ],
	  [ 2, $text{'serv_redirect'},
	    &ui_textbox("rhost", $prog == 2 ? $q->{'redirect'}->[0] : "", 20).
	    " ".$text{'serv_rport'}." ".
	    &ui_textbox("rport", $prog == 2 ? $q->{'redirect'}->[1] : "", 6)
	  ] ]), 3);

# Run as user
print &ui_table_row($text{'serv_user'},
	&ui_user_textbox("user", $q->{'user'}->[0]));

# Run as group
print &ui_table_row($text{'serv_group'},
	&ui_opt_textbox("group", $q->{'group'} ? $q->{'group'}->[0] : "",
			10, $text{'serv_group_def'})." ".
	&group_chooser_button("group"));

# Wait to finish?
print &ui_table_row($text{'serv_wait'},
	&ui_radio("wait", $q->{'wait'}->[0] eq 'yes' ? 1 : 0,
		  [ [ 1, $text{'yes'} ], [ 0, $text{'no'} ] ]));

# Max instances to run at once
$inst = uc($q->{'instances'}->[0]) eq 'UNLIMITED' ? '' : $q->{'instances'}->[0];
print &ui_table_row($text{'serv_inst'},
	&ui_opt_textbox("inst", $inst, 5, $text{'serv_inst_def'}));

# Max connections / second
$cps = uc($q->{'cps'}->[0]) eq 'UNLIMITED' ? '' : $q->{'cps'}->[0];
print &ui_table_row($text{'serv_cps0'},
	&ui_opt_textbox("cps", $cps, 5, $text{'serv_cps_def'}));

# Delay if max connections reached
print &ui_table_row($text{'serv_cps1'},
	&ui_textbox("cps1", $q->{'cps'}->[1], 5)." ".$text{'serv_sec'});

# Nice level
print &ui_table_row($text{'serv_nice'},
	&ui_opt_textbox("nice", $q->{'nice'} ? $q->{'nice'}->[0] : "",
			5, $text{'default'}));

print &ui_table_end();
print &ui_table_start($text{'serv_header3'}, "width=100%", 4);

# Allow access from
print &ui_table_row($text{'serv_from'},
	&ui_radio("from_def", $q->{'only_from'} ? 0 : 1,
		  [ [ 1, $text{'serv_from_def'} ],
		    [ 0, $text{'serv_from_sel'} ] ])."<br>\n".
	&ui_textarea("from", join("\n", @{$q->{'only_from'}}), 4, 20));

# Deny access from
print &ui_table_row($text{'serv_access'},
	&ui_radio("access_def", $q->{'no_access'} ? 0 : 1,
		  [ [ 1, $text{'serv_access_def'} ],
		    [ 0, $text{'serv_access_sel'} ] ])."<br>\n".
	&ui_textarea("access", join("\n", @{$q->{'no_access'}}), 4, 20));

# Allow access at times
print &ui_table_row($text{'serv_times'},
	&ui_radio("times_def", $q->{'access_times'} ? 0 : 1,
		  [ [ 1, $text{'serv_times_def'} ],
		    [ 0, &ui_textbox("times",
			   join(" ", @{$q->{'access_times'}}), 40) ] ]), 3);

print &ui_table_end();
if ($in{'new'}) {
	print &ui_form_end([ [ undef, $text{'create'} ] ]);
	}
else {
	print &ui_form_end([ [ undef, $text{'save'} ],
			     [ 'delete', $text{'delete'} ] ]);
	}

&ui_print_footer("", $text{'index_return'});

${this.title}

Code Editor : edit_serv.cgi