File Manager

X7ROOT File Manager

Current Path: /usr/libexec/webmin/inetd

📁 ..
📄 CHANGELOG(173 B)
📄 backup_config.pl(754 B)
📄 cgi_args.pl(145 B)
📄 config-aix(302 B)
📄 config-cobalt-linux(331 B)
📄 config-coherent-linux(362 B)
📄 config-corel-linux(331 B)
📄 config-debian-linux(331 B)
📄 config-freebsd(252 B)
📄 config-freebsd-2.1-2.2(252 B)
📄 config-freebsd-8-ALL(262 B)
📄 config-generic-linux(277 B)
📄 config-hpux(242 B)
📄 config-irix(252 B)
📄 config-lfs-linux(331 B)
📄 config-macos(469 B)
📄 config-macos-1.5-ALL(352 B)
📄 config-mandrake-linux(353 B)
📄 config-msc-linux(357 B)
📄 config-netbsd(252 B)
📄 config-open-linux(331 B)
📄 config-open-linux-3.1e(353 B)
📄 config-openbsd(235 B)
📄 config-openmamba-linux(362 B)
📄 config-openserver(323 B)
📄 config-osf1(302 B)
📄 config-pardus-linux(332 B)
📄 config-redhat-linux(362 B)
📄 config-slackware-linux(282 B)
📄 config-sol-linux(277 B)
📄 config-solaris(353 B)
📄 config-solaris-10-ALL(335 B)
📄 config-solaris-8-9(353 B)
📄 config-suse-linux(331 B)
📄 config-suse-linux-6.3-8.0(331 B)
📄 config-turbo-linux(331 B)
📄 config-united-linux(358 B)
📄 config-unixware(323 B)
📄 config-windows(145 B)
📄 config.info(797 B)
📄 config.info.ca(879 B)
📄 config.info.cs(874 B)
📄 config.info.de(944 B)
📄 config.info.es(759 B)
📄 config.info.fr(867 B)
📄 config.info.hu(668 B)
📄 config.info.nl(818 B)
📄 config.info.no(852 B)
📄 config.info.pl(723 B)
📄 config.info.ru(767 B)
📄 config.info.sv(691 B)
📄 config.info.tr(620 B)
📄 config.info.uk(788 B)
📄 config.info.zh(545 B)
📄 config.info.zh_TW(513 B)
📄 delete_rpc.cgi(568 B)
📄 delete_serv.cgi(610 B)
📄 edit_rpc.cgi(4.19 KB)
📄 edit_serv.cgi(4.63 KB)
📁 help
📁 images
📄 index.cgi(4.03 KB)
📄 inetd-generic-lib.pl(4.43 KB)
📄 inetd-lib.pl(2.02 KB)
📄 inetd-solaris-10-lib.pl(8.45 KB)
📄 install_check.pl(336 B)
📁 lang
📄 log_parser.pl(892 B)
📄 module.info(239 B)
📄 module.info.af(0 B)
📄 module.info.af.auto(111 B)
📄 module.info.ar(0 B)
📄 module.info.ar.auto(146 B)
📄 module.info.be(0 B)
📄 module.info.be.auto(159 B)
📄 module.info.bg(0 B)
📄 module.info.bg.auto(158 B)
📄 module.info.ca(0 B)
📄 module.info.ca.auto(112 B)
📄 module.info.cs(0 B)
📄 module.info.cs.auto(111 B)
📄 module.info.da(0 B)
📄 module.info.da.auto(119 B)
📄 module.info.de(0 B)
📄 module.info.de.auto(126 B)
📄 module.info.el(0 B)
📄 module.info.el.auto(190 B)
📄 module.info.es(0 B)
📄 module.info.es.auto(116 B)
📄 module.info.eu(0 B)
📄 module.info.eu.auto(118 B)
📄 module.info.fa(0 B)
📄 module.info.fa.auto(136 B)
📄 module.info.fi(0 B)
📄 module.info.fi.auto(113 B)
📄 module.info.fr(0 B)
📄 module.info.fr.auto(122 B)
📄 module.info.he(0 B)
📄 module.info.he.auto(136 B)
📄 module.info.hr(0 B)
📄 module.info.hr.auto(111 B)
📄 module.info.hu(0 B)
📄 module.info.hu.auto(143 B)
📄 module.info.it(0 B)
📄 module.info.it.auto(114 B)
📄 module.info.ja(0 B)
📄 module.info.ja.auto(140 B)
📄 module.info.ko(0 B)
📄 module.info.ko.auto(154 B)
📄 module.info.lt(0 B)
📄 module.info.lt.auto(115 B)
📄 module.info.lv(0 B)
📄 module.info.lv.auto(122 B)
📄 module.info.ms(0 B)
📄 module.info.ms.auto(122 B)
📄 module.info.mt(0 B)
📄 module.info.mt.auto(119 B)
📄 module.info.nl(0 B)
📄 module.info.nl.auto(116 B)
📄 module.info.no(0 B)
📄 module.info.no.auto(118 B)
📄 module.info.pl(0 B)
📄 module.info.pl.auto(124 B)
📄 module.info.pt(0 B)
📄 module.info.pt.auto(113 B)
📄 module.info.pt_BR(0 B)
📄 module.info.pt_BR.auto(119 B)
📄 module.info.ro(0 B)
📄 module.info.ro.auto(123 B)
📄 module.info.ru(0 B)
📄 module.info.ru.auto(161 B)
📄 module.info.sk(0 B)
📄 module.info.sk.auto(111 B)
📄 module.info.sl(0 B)
📄 module.info.sl.auto(115 B)
📄 module.info.sv(0 B)
📄 module.info.sv.auto(119 B)
📄 module.info.th(0 B)
📄 module.info.th.auto(190 B)
📄 module.info.tr(0 B)
📄 module.info.tr.auto(119 B)
📄 module.info.uk(0 B)
📄 module.info.uk.auto(157 B)
📄 module.info.ur(0 B)
📄 module.info.ur.auto(191 B)
📄 module.info.vi(0 B)
📄 module.info.vi.auto(137 B)
📄 module.info.zh(0 B)
📄 module.info.zh.auto(110 B)
📄 module.info.zh_TW(0 B)
📄 module.info.zh_TW.auto(116 B)
📄 prefs.info(29 B)
📄 restart_inetd.cgi(296 B)
📄 save_rpc.cgi(3.82 KB)
📄 save_serv.cgi(5.31 KB)

Editing: 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'});

X7ROOT File Manager

Editing: edit_serv.cgi

Upload File

Create Folder