Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	173 B	-rw-r--r--
backup_config.pl	754 B	-rwxr-xr-x
cgi_args.pl	145 B	-rwxr-xr-x
config-aix	302 B	-rw-r--r--
config-cobalt-linux	331 B	-rw-r--r--
config-coherent-linux	362 B	-rw-r--r--
config-corel-linux	331 B	-rw-r--r--
config-debian-linux	331 B	-rw-r--r--
config-freebsd	252 B	-rw-r--r--
config-freebsd-2.1-2.2	252 B	-rw-r--r--
config-freebsd-8-ALL	262 B	-rw-r--r--
config-generic-linux	277 B	-rw-r--r--
config-hpux	242 B	-rw-r--r--
config-irix	252 B	-rw-r--r--
config-lfs-linux	331 B	-rw-r--r--
config-macos	469 B	-rw-r--r--
config-macos-1.5-ALL	352 B	-rw-r--r--
config-mandrake-linux	353 B	-rw-r--r--
config-msc-linux	357 B	-rw-r--r--
config-netbsd	252 B	-rw-r--r--
config-open-linux	331 B	-rw-r--r--
config-open-linux-3.1e	353 B	-rw-r--r--
config-openbsd	235 B	-rw-r--r--
config-openmamba-linux	362 B	-rw-r--r--
config-openserver	323 B	-rw-r--r--
config-osf1	302 B	-rw-r--r--
config-pardus-linux	332 B	-rw-r--r--
config-redhat-linux	362 B	-rw-r--r--
config-slackware-linux	282 B	-rw-r--r--
config-sol-linux	277 B	-rw-r--r--
config-solaris	353 B	-rw-r--r--
config-solaris-10-ALL	335 B	-rw-r--r--
config-solaris-8-9	353 B	-rw-r--r--
config-suse-linux	331 B	-rw-r--r--
config-suse-linux-6.3-8.0	331 B	-rw-r--r--
config-turbo-linux	331 B	-rw-r--r--
config-united-linux	358 B	-rw-r--r--
config-unixware	323 B	-rw-r--r--
config-windows	145 B	-rw-r--r--
config.info	797 B	-rw-r--r--
config.info.ca	867 B	-rw-r--r--
config.info.ca.UTF-8	879 B	-rw-r--r--
config.info.cz	873 B	-rw-r--r--
config.info.cz.UTF-8	937 B	-rw-r--r--
config.info.de	960 B	-rw-r--r--
config.info.de.UTF-8	960 B	-rw-r--r--
config.info.es	817 B	-rw-r--r--
config.info.es.UTF-8	824 B	-rw-r--r--
config.info.fr	927 B	-rw-r--r--
config.info.fr.UTF-8	924 B	-rw-r--r--
config.info.hu	709 B	-rw-r--r--
config.info.hu.UTF-8	731 B	-rw-r--r--
config.info.nl	878 B	-rw-r--r--
config.info.nl.UTF-8	878 B	-rw-r--r--
config.info.no	872 B	-rw-r--r--
config.info.no.UTF-8	872 B	-rw-r--r--
config.info.pl	757 B	-rw-r--r--
config.info.pl.UTF-8	780 B	-rw-r--r--
config.info.ru.UTF-8	856 B	-rw-r--r--
config.info.ru_RU	572 B	-rw-r--r--
config.info.ru_RU.UTF-8	856 B	-rw-r--r--
config.info.ru_SU	572 B	-rw-r--r--
config.info.sv	729 B	-rw-r--r--
config.info.sv.UTF-8	758 B	-rw-r--r--
config.info.tr	653 B	-rw-r--r--
config.info.uk_UA	591 B	-rw-r--r--
config.info.uk_UA.UTF-8	866 B	-rw-r--r--
config.info.zh_CN	500 B	-rw-r--r--
config.info.zh_CN.UTF-8	598 B	-rw-r--r--
config.info.zh_TW.Big5	489 B	-rw-r--r--
config.info.zh_TW.UTF-8	579 B	-rw-r--r--
delete_rpc.cgi	568 B	-rwxr-xr-x
delete_serv.cgi	610 B	-rwxr-xr-x
edit_rpc.cgi	4.19 KB	-rwxr-xr-x
edit_serv.cgi	4.63 KB	-rwxr-xr-x
index.cgi	4.03 KB	-rwxr-xr-x
inetd-generic-lib.pl	4.4 KB	-rwxr-xr-x
inetd-lib.pl	2.01 KB	-rwxr-xr-x
inetd-solaris-10-lib.pl	8.44 KB	-rwxr-xr-x
install_check.pl	336 B	-rwxr-xr-x
log_parser.pl	892 B	-rwxr-xr-x
module.info	239 B	-rw-r--r--
module.info.ca	113 B	-rw-r--r--
module.info.ca.UTF-8	125 B	-rw-r--r--
module.info.de	117 B	-rw-r--r--
module.info.de.UTF-8	129 B	-rw-r--r--
module.info.hu	40 B	-rw-r--r--
module.info.hu.UTF-8	50 B	-rw-r--r--
module.info.ms_MY	123 B	-rw-r--r--
module.info.ms_MY.UTF-8	135 B	-rw-r--r--
module.info.nl	40 B	-rw-r--r--
module.info.nl.UTF-8	46 B	-rw-r--r--
module.info.no	43 B	-rw-r--r--
module.info.no.UTF-8	49 B	-rw-r--r--
restart_inetd.cgi	296 B	-rwxr-xr-x
save_rpc.cgi	3.82 KB	-rwxr-xr-x
save_serv.cgi	5.31 KB	-rwxr-xr-x

Code Editor : edit_serv.cgi

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

require './inetd-lib.pl';
&ReadParse();

if ($in{'new'}) {
	&ui_print_header(undef, $text{'editserv_title1'}, "");
	}
else {
	local @servs = &list_services();
	local @inets = &list_inets();
	&ui_print_header(undef, $text{'editserv_title2'}, "");
	if (defined($in{'name'})) {
		local $i;
		for($i=0; $i<@servs; $i++) {
			$in{'spos'} = $i if ($servs[$i]->[1] eq $in{'name'} &&
					     $servs[$i]->[3] eq $in{'proto'});
			}
		defined($in{'spos'}) || &error($text{'editserv_ename'});
		for($i=0; $i<@inets; $i++) {
			$in{'ipos'} = $i if ($inets[$i]->[3] eq $in{'name'} &&
					     $inets[$i]->[5] eq $in{'proto'});
			}
		}
	@serv = @{$servs[$in{'spos'}]};
	if ($in{'ipos'} =~ /\d/) {
		@inet = @{$inets[$in{'ipos'}]};
		}
	}

print &ui_form_start("save_serv.cgi", "post");
if (@serv) {
	print &ui_hidden("spos", $in{'spos'});
	print &ui_hidden("ipos", $in{'ipos'});
	}
print &ui_table_start($text{'editserv_detail'}, "width=100%", 4);

# Service name
print &ui_table_row($text{'editserv_name'},
	&ui_textbox("name", $serv[1], 20));

# Port number
print &ui_table_row($text{'editserv_port'},
	&ui_textbox("port", $serv[2], 10));

# Protocol
print &ui_table_row($text{'editrpc_protocol'},
	&ui_select("protocol", @serv ? $serv[3] : "tcp",
		   [ map { [ $_, uc($_).($prot_name{$_} ? " ($prot_name{$_})"
						      : "") ] }
			 &list_protocols() ]));

# Name aliases
print &ui_table_row($text{'editrpc_aliase'},
	&ui_textarea("aliases", join("\n", split(/\s+/, $serv[4])), 3, 20));

print &ui_table_end();

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

# Server enabled?
print &ui_table_row($text{'editrpc_act'},
	&ui_radio("act", $inet[1] ? 2 : @inet && !$inet[1] ? 1 : 0,
		  [ [ 0, $text{'editrpc_noassigned'} ],
		    [ 1, $text{'editrpc_disable'} ],
		    [ 2, $text{'editrpc_enable'} ] ]), 3);
@opts = ( );

# Handled internally
if (!$config{'no_internal'}) {
	push(@opts, [ 1, $text{'editserv_inetd'} ]);
	}

$qm = ($inet[8] =~ s/^\?//);
$tcpd = (-x $config{'tcpd_path'} && $inet[8] eq $config{'tcpd_path'});
$mode = $inet[8] eq "internal" && !$config{'no_internal'} ? 1 : $tcpd ? 3 : 2;
push(@opts, [ 2, $text{'editrpc_command'},
	      &ui_textbox("program", $mode == 2 ? $inet[8] : "", 30).
	      &file_chooser_button("program", 0)." ".
	      $text{'editserv_args'}." ".
	      &ui_textbox("args", $mode == 2 ? $inet[9] : "", 30) ]);
if ($config{'qm_mode'}) {
	# Server program doesn't exist
	$opts[$#opts]->[2] .= "<br>\n".
			      &ui_checkbox("qm", 1, $text{'editserv_qm'}, $qm);
	}

if (-x $config{'tcpd_path'}) {
	($tcpserv, $tcpargs) = $tcpd && $inet[9] =~ /^(\S+)\s*(.*)$/ ?
				($1, $2) : ( );
	push(@opts, [ 3, $text{'editserv_wrapper'},
		      &ui_textbox("tcpd", $tcpserv, 15)." ".
		      $text{'editserv_args'}." ".
		      &ui_textbox("args2", $tcpargs, 15) ]);
	}

print &ui_table_row($text{'editserv_program'},
	&ui_radio_table("serv", $mode, \@opts), 3);

@op1 = split(/[:\.\/]/, $inet[6]);
@op2 = split(/[:\.\/]/, $inet[7]);
if ($inet[7] =~ /\// && $inet[7] !~ /:/) {
	# class but no group!
	splice(@op2, 1, 0, undef);
	}
print &ui_table_row($text{'editrpc_waitmode'},
	&ui_radio("wait", $op1[0] eq "wait" ? "wait" : "nowait",
		  [ [ "wait", $text{'editrpc_wait'} ],
		    [ "nowait", $text{'editrpc_nowait'} ] ]));

print &ui_table_row($text{'editrpc_execasuser'},
	&ui_user_textbox("user", $op2[0]));

if ($config{'extended_inetd'} == 1) {
	# Display max per minute and group options
	# This is for systems like Linux
	print &ui_table_row($text{'editrpc_max'},
		&ui_opt_textbox("permin", @op1 < 2 ? "" : $op1[1], 5,
				$text{'editrpc_default'}));

print &ui_table_row($text{'editrpc_execasgrp'},
		&ui_opt_textbox("group", $op2[1], 13, $text{'default'}).
		&group_chooser_button("group"));
	}
elsif ($config{'extended_inetd'} == 2) {
	# Display max child, max per minute, group and login class options
	# This is for systems like FreeBSD
	print &ui_table_row($text{'editrpc_max'},
		&ui_opt_textbox("permin", @op1 < 3 ? "" : $op1[2], 5,
				$text{'editrpc_default'}));

print &ui_table_row($text{'editrpc_execasgrp'},
		&ui_opt_textbox("group", $op2[1], 13, $text{'default'}).
		&group_chooser_button("group"));

print &ui_table_row($text{'editserv_maxchild'},
		&ui_opt_textbox("child", @op1 < 2 ? "" : $op1[1], 5,
				$text{'editrpc_default'}));

print &ui_table_row($text{'editserv_execlogin'},
		&ui_textbox("class", $op2[2], 10));
	}

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

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

${this.title}

Code Editor : edit_serv.cgi