Gecko [ 167.86.127.34 ]

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-openSUSE-Linux-15.0-ALL	331 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	879 B	-rw-r--r--
config.info.cs	874 B	-rw-r--r--
config.info.de	944 B	-rw-r--r--
config.info.es	759 B	-rw-r--r--
config.info.fr	867 B	-rw-r--r--
config.info.hu	668 B	-rw-r--r--
config.info.nl	818 B	-rw-r--r--
config.info.no	852 B	-rw-r--r--
config.info.pl	723 B	-rw-r--r--
config.info.ru	767 B	-rw-r--r--
config.info.sv	691 B	-rw-r--r--
config.info.tr	620 B	-rw-r--r--
config.info.uk	788 B	-rw-r--r--
config.info.zh	545 B	-rw-r--r--
config.info.zh_TW	513 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.43 KB	-rwxr-xr-x
inetd-lib.pl	2.02 KB	-rwxr-xr-x
inetd-solaris-10-lib.pl	8.45 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.af	0 B	-rw-r--r--
module.info.af.auto	111 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	146 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	159 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	158 B	-rw-r--r--
module.info.ca	0 B	-rw-r--r--
module.info.ca.auto	112 B	-rw-r--r--
module.info.cs	0 B	-rw-r--r--
module.info.cs.auto	111 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	119 B	-rw-r--r--
module.info.de	0 B	-rw-r--r--
module.info.de.auto	126 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	190 B	-rw-r--r--
module.info.es	0 B	-rw-r--r--
module.info.es.auto	116 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	118 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	136 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	113 B	-rw-r--r--
module.info.fr	0 B	-rw-r--r--
module.info.fr.auto	122 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	136 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	111 B	-rw-r--r--
module.info.hu	0 B	-rw-r--r--
module.info.hu.auto	143 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	114 B	-rw-r--r--
module.info.ja	0 B	-rw-r--r--
module.info.ja.auto	140 B	-rw-r--r--
module.info.ko	0 B	-rw-r--r--
module.info.ko.auto	154 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	115 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	122 B	-rw-r--r--
module.info.ms	0 B	-rw-r--r--
module.info.ms.auto	122 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	119 B	-rw-r--r--
module.info.nl	0 B	-rw-r--r--
module.info.nl.auto	116 B	-rw-r--r--
module.info.no	0 B	-rw-r--r--
module.info.no.auto	118 B	-rw-r--r--
module.info.pl	0 B	-rw-r--r--
module.info.pl.auto	124 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	113 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	119 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	123 B	-rw-r--r--
module.info.ru	0 B	-rw-r--r--
module.info.ru.auto	161 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	111 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	115 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	119 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	190 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	119 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	157 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	191 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	137 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	110 B	-rw-r--r--
module.info.zh_TW	0 B	-rw-r--r--
module.info.zh_TW.auto	116 B	-rw-r--r--
prefs.info	29 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 : inetd-solaris-10-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) ]);
			# add udp/tcp6only options for s10
			if (($3 eq "tcp") | ($3 eq "udp")) {
				push(@rv, [ $l, $1, $2, $3.'6only',
					$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, $p);
$p = $_[3];
$p =~ s/6.*$//;
open(SERVICES, "<".$config{services_file});
@serv = <SERVICES>;
close(SERVICES);
$serv[$_[0]] = "$_[1]\t$_[2]/$p".($_[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', 'tcp6only'); }
		elsif ($1 eq 'udp') { push(@rv, 'udp6', 'udp6only'); }
		}
	}
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
{
local ($cmd, @inetadm_output, $l, $fmri, $state, @rv);
# for smf, we need to build a list of service instances/states
# using inetadm, then gather relevant properties of each instance
$cmd = "/usr/sbin/inetadm";
@inetadm_output = &backquote_logged($cmd);
for ($l = 1; $l < scalar @inetadm_output; $l++) {
	# retrieve fmri, state from inetadm output
	$inetadm_output[$l] =~ /(\S+)\s+(\S+)\s+(\S+)/;
	$fmri = $3;
	$state = ($2 eq "online");
	# get instance props for fmri
	$cmd = "/usr/sbin/inetadm -l $fmri";
	$instance_props = &backquote_logged($cmd);
	$instance_props=~/(isrpc=)(\w+)/;
	$isrpc = ($2 eq "TRUE");
	if ($isrpc) {
		# for rpc svc, we need version range to
		# append to name
		$rpc = "rpc\/";
		$instance_props=~/(rpc_low_version=)(\w+)/;
		$rpc_lo = $2;
		$instance_props=~/(rpc_high_version=)(\w+)/;
		$rpc_hi = $2;
		if ($rpc_hi eq $rpc_lo) {
			$rpc_range = "\/$rpc_lo";
		} else {
			$rpc_range = "\/$rpc_lo-$rpc_hi";
		}
	} else {
		$rpc = "";
		$rpc_range = "";
	}
	$instance_props=~/(name=\")([^\"]*)/;
	$name = "$2$rpc_range";
	$instance_props=~/(endpoint_type=\")([^\"]*)/;
	$endpoint_type = $2;
	$instance_props=~/(proto=\")([^\"]*)/;
	$proto = "$rpc$2";
	$instance_props=~/(wait=)(\w+)/;
	$wait = ($2 eq "TRUE") ? "wait" : "nowait";
	$instance_props=~/(user=\")([^\"]*)/;
	$user = $2;
	$instance_props=~/(exec=\")([^\"]*)/;
	$exec = $2;
	# split exec into path to command, and command with args
	$exec =~/(\S+)[\s]*(.*)/;
	$cmdpath = $1;
	$args = $2;
	@cmdfields = split(/\//,$cmdpath);
	$cmd = "$cmdfields[-1] $args";
	push(@rv, [ $l, $state , $isrpc, $name, $endpoint_type, $proto,
	    $wait, $user, $exec, $cmd, $fmri]); 
	}
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
{
local ($proto, $name, $cmd, $retcode, $inetadm_output, $fmri);
# we need an ugly hack to support v6only protocols. inetconv won't
# accept v6only so we convert to v6, then inetadm -m proto=v6only.
$name = $_[1];
$proto = $_[3];
if ($_[3] =~ /.*6only/) {
	$proto =~ s/6.*$/6/;
	}
&open_tempfile(INET, ">$config{inetd_conf_file}");
&print_tempfile(INET, "$_[1]\t$_[2]\t$proto\t$_[4]\t$_[5]\t$_[6]". 
	   ($_[7] ? "\t$_[7]\n" : "\n"));
&close_tempfile(INET);
$name =~ s/\//_/;
$proto =~ s/\//_/;
$retcode = &execute_smf_cmd("/usr/sbin/inetconv -i $config{inetd_conf_file}");
if ($retcode) { return undef; }
# we need to determine fmri of just-created svc...
$inetadm_output = &backquote_logged("/usr/sbin/inetadm");
if ($inetadm_output =~ /(.*)(svc\:\/(.)*\/$name\/$proto:default)(.*)/) {
	$fmri = $2;
	if ($_[3] =~ /.*6only/) {
		# now change proto to correct v6only value. from inetconv
		# operation we know fmri will be of form "svcname/proto"
		$retcode =
		    &execute_smf_cmd("/usr/sbin/inetadm -m $fmri proto=$_[3]");
		if ($retcode) { return undef; }
		}
	if (!$_[0]) {
		# disable svc
		$retcode = &execute_smf_cmd("/usr/sbin/inetadm -d $fmri");
		}
	}
return undef;
}

# modify_inet(line, enabled, name, type, protocol,
#	      wait, user, program, args, fmri)
# Modify an existing inetd service
sub modify_inet
{
local ($fmri, $wait, $protocol, $isrpc, $name, $rpc_lo,
	$rpc_hi, $rpc_mods, $cmd, $args, @cmdfields, @argfields,
	$firstarg, $argstr, $start_method, $retcode);
$fmri = $_[9];
$name = $_[2];
$wait = ($_[5] eq "wait") ? "TRUE" : "FALSE";
$protocol = $_[4];
$cmd = $_[7];
$args = $_[8];
# for smf, cmd name must match first arg
@cmdfields = split(/\//, $cmd);
@argfields = split(/\s+/, $args);
$firstarg = shift(@argfields);
if ($firstarg eq $cmdfields[-1]) {
	$argstr = join(" ", @argfields);
	$start_method = "$cmd $argstr";
} else {
	&error(&text('error_smf_cmdfield', $cmd, $cmdfields[-1]));
	return undef;
}
if ($name =~ /(^[^\/]*)\/([1-9]*)[\-]*([1-9]*)$/) {
	$rpc_lo = $2;
	$rpc_hi = $3;
	$name = $1;
	if (!$rpc_hi) { $rpc_hi = $rpc_lo; }
	$isrpc = 1;
	$protocol =~ s/^(rpc\/)*//;
	$rpc_mods = "rpc_low_version=$rpc_lo rpc_high_version=$rpc_hi";
} else {
	$rpc_mods = "";
	}
$retcode = &execute_smf_cmd("/usr/sbin/inetadm -m $fmri name=$name endpoint_type=$_[3] proto=$protocol wait=$wait user=$_[6] exec=$start_method $rpc_mods");
if ($retcode) { return undef; }
if ($_[1]) {
	# may need to clear maintenance state
	&backquote_logged("/usr/sbin/svcadm clear $fmri");
	$retcode = &execute_smf_cmd("/usr/sbin/inetadm -e $fmri");
} else {
	$retcode = &execute_smf_cmd("/usr/sbin/inetadm -d $fmri");
	}
return undef;
}

# delete_inet(line, fmri)
# Delete an internet service
sub delete_inet
{
local ($fmri, @fields, $svc, $retcode, $out);
$fmri = $_[1];
# before we delete, check if this is only instance for service.
# if so we svccfg delete the whole service, otherwise just the
# instance. this is to avoid leaving unwanted detritus lying
# around in the smf repository...
@fields = split(/:/,$fmri);
$svc = "svc:/$fields[1]";
$out = &backquote_logged("/usr/sbin/inetadm | /usr/bin/grep $svc | wc -l");
if ($?) { return undef; }
if ($out =~ /\s*1\s*/) {
	# XXX need to remove manifest too?
	&webmin_log("running svccfg delete on $svc");
	$fmri = $svc;
	}
$retcode = &execute_smf_cmd("/usr/sbin/svccfg delete -f $fmri");
return undef;
}

sub execute_smf_cmd
{
local ($cmd, $out, $retcode);
$cmd = $_[0];
$out = &backquote_logged($cmd);
$retcode = $?;
if ($retcode) {
	&error(&text('error_smfservice', $cmd, $retcode));
	}
return $retcode;
}

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

${this.title}

Code Editor : inetd-solaris-10-lib.pl