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: inetd-generic-lib.pl

# list_services()
# Returns a list of services from the services file, each being an array of
#  line name port protocol aliases index
sub list_services
{
local(@rv, $l);
$l = 0;
system("$config{'get_services_command'}") if ($config{'get_services_command'});
open(SERVICES, "<".$config{services_file});
while(<SERVICES>) {
	chop; s/#.*$//g;
	if (/^(\S+)\s+([0-9]+)\/(\S+)\s*(.*)$/) {
		push(@rv, [ $l, $1, $2, $3, $4, scalar(@rv) ]);
		if ($config{'ipv6'}) {
			push(@rv, [ $l, $1, $2, $3.'6', $4, scalar(@rv) ]);
			}
		}
	$l++;
	}
close(SERVICES);
return @rv;
}

# create_service(name, port, proto, aliases)
# Add a new service to the list
sub create_service
{
local $p = $_[2];
if ($config{'ipv6'} && $p =~ /^(\S+)6$/) {
	# don't add the service if it is already there
	foreach $s (&list_services()) {
		return if ($s->[1] eq $_[0] && $s->[2] == $_[1] &&
			$s->[3] eq $1);
		}
	$p =~ s/6$//;
	}
&open_tempfile(SERVICES, ">> $config{services_file}");
&print_tempfile(SERVICES, "$_[0]\t$_[1]/$p",$_[3] ? "\t$_[3]\n" : "\n");
&close_tempfile(SERVICES);
system("$config{'put_services_command'}") if ($config{'put_services_command'});
}

# modify_service(line, name, port, proto, aliases)
# Change an existing service
sub modify_service
{
local(@serv);
open(SERVICES, "<".$config{services_file});
@serv = <SERVICES>;
close(SERVICES);
$serv[$_[0]] = "$_[1]\t$_[2]/$_[3]".($_[4] ? "\t$_[4]\n" : "\n");
&open_tempfile(SERVICES, "> $config{services_file}");
&print_tempfile(SERVICES, @serv);
&close_tempfile(SERVICES);
system("$config{'put_services_command'}") if ($config{'put_services_command'});
}

# delete_service(line)
sub delete_service
{
local(@serv);
open(SERVICES, "<".$config{services_file});
@serv = <SERVICES>;
close(SERVICES);
splice(@serv, $_[0], 1);
&open_tempfile(SERVICES, "> $config{services_file}");
&print_tempfile(SERVICES, @serv);
&close_tempfile(SERVICES);
system("$config{'put_services_command'}") if ($config{'put_services_command'});
}

# 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);
	if ($config{'ipv6'}) {
		if ($1 eq 'tcp') { push(@rv, 'tcp6'); }
	elsif ($1 eq 'udp') { push(@rv, 'udp6'); }
		}
	}
close(PROT);
return &unique(@rv);
}

# list_inets()
# Returns a list of service details handled by inetd. RPC services
# will have a name like foo/1 or bar/1-3, where the thing after the / is
# the version or versions supported. For each service, the list contains
#  line active? rpc? name type protocol wait user path|internal args file
sub list_inets
{
# build list of inetd files
local (@files, @rv, $l);
@files = ( $config{'inetd_conf_file'} );
opendir(DIR, $config{'inetd_dir'});
foreach $f (readdir(DIR)) {
	next if ($f =~ /^\./);
	push(@files, "$config{'inetd_dir'}/$f");
	}
closedir(DIR);

# parse each file
foreach $f (@files) {
	$l = 0;
	open(INET, "<".$f);
	while(<INET>) {
		chop;
		if (/^(#+|#<off>#)?\s*(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\??\/\S+|internal)\s*(.*)$/) {
			push(@rv, [ $l, !$1, 0, $2, $3, $4,
				    $5, $6, $7, $8, $f ]);
			$rv[$#rv]->[2] = ($2 =~ /\//);
			}
		$l++;
		}
	close(INET);
	}
return @rv;
}

# create_inet(enabled, name, type, protocol, wait, user, program, args)
# Add a new service to the main inetd config file
sub create_inet
{
&open_tempfile(INET, ">> $config{inetd_conf_file}");
&print_tempfile(INET,
	 ($_[0] ? "" : "#")."$_[1]\t$_[2]\t$_[3]\t$_[4]\t$_[5]\t$_[6]".
	 ($_[7] ? "\t$_[7]\n" : "\n"));
&close_tempfile(INET);
}

# modify_inet(line, enabled, name, type, protocol,
#	      wait, user, program, args, file)
# Modify an existing inetd service
sub modify_inet
{
local(@inet);
open(INET, "<".$_[9]);
@inet = <INET>;
close(INET);
$inet[$_[0]] = ($_[1] ? "" : "#")."$_[2]\t$_[3]\t$_[4]\t$_[5]\t$_[6]\t$_[7]".
	       ($_[8] ? "\t$_[8]\n" : "\n");
&open_tempfile(INET, ">$_[9]");
&print_tempfile(INET, @inet);
&close_tempfile(INET);
}

# delete_inet(line, file)
# Delete an internet service at some line
sub delete_inet
{
local(@inet);
open(INET, "<".$_[1]);
@inet = <INET>;
close(INET);
splice(@inet, $_[0], 1);
&open_tempfile(INET, ">$_[1]");
&print_tempfile(INET, @inet);
&close_tempfile(INET);
}

%prot_name = ("ip", "Internet Protocol",
              "tcp", "Transmission Control Protocol",
              "udp", "User Datagram Protocol",
              "tcp6", "Transmission Control Protocol IPv6",
              "udp6", "User Datagram Protocol IPv6");

X7ROOT File Manager

Editing: inetd-generic-lib.pl

Upload File

Create Folder