Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	173 B	-rw-r--r--	2026-07-17 21:17
backup_config.pl	754 B	-rwxr-xr-x	2026-07-17 21:17
cgi_args.pl	145 B	-rwxr-xr-x	2026-07-17 21:17
config-aix	302 B	-rw-r--r--	2026-07-17 21:17
config-cobalt-linux	331 B	-rw-r--r--	2026-07-17 21:17
config-coherent-linux	362 B	-rw-r--r--	2026-07-17 21:17
config-corel-linux	331 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	331 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	252 B	-rw-r--r--	2026-07-17 21:17
config-freebsd-2.1-2.2	252 B	-rw-r--r--	2026-07-17 21:17
config-freebsd-8-ALL	262 B	-rw-r--r--	2026-07-17 21:17
config-generic-linux	277 B	-rw-r--r--	2026-07-17 21:17
config-hpux	242 B	-rw-r--r--	2026-07-17 21:17
config-irix	252 B	-rw-r--r--	2026-07-17 21:17
config-lfs-linux	331 B	-rw-r--r--	2026-07-17 21:17
config-macos	469 B	-rw-r--r--	2026-07-17 21:17
config-macos-1.5-ALL	352 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux	353 B	-rw-r--r--	2026-07-17 21:17
config-msc-linux	357 B	-rw-r--r--	2026-07-17 21:17
config-netbsd	252 B	-rw-r--r--	2026-07-17 21:17
config-open-linux	331 B	-rw-r--r--	2026-07-17 21:17
config-open-linux-3.1e	353 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-ALL	331 B	-rw-r--r--	2026-07-17 21:17
config-openbsd	235 B	-rw-r--r--	2026-07-17 21:17
config-openmamba-linux	362 B	-rw-r--r--	2026-07-17 21:17
config-openserver	323 B	-rw-r--r--	2026-07-17 21:17
config-osf1	302 B	-rw-r--r--	2026-07-17 21:17
config-pardus-linux	332 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux	362 B	-rw-r--r--	2026-07-17 21:17
config-slackware-linux	282 B	-rw-r--r--	2026-07-17 21:17
config-sol-linux	277 B	-rw-r--r--	2026-07-17 21:17
config-solaris	353 B	-rw-r--r--	2026-07-17 21:17
config-solaris-10-ALL	335 B	-rw-r--r--	2026-07-17 21:17
config-solaris-8-9	353 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux	331 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux-6.3-8.0	331 B	-rw-r--r--	2026-07-17 21:17
config-turbo-linux	331 B	-rw-r--r--	2026-07-17 21:17
config-united-linux	358 B	-rw-r--r--	2026-07-17 21:17
config-unixware	323 B	-rw-r--r--	2026-07-17 21:17
config-windows	145 B	-rw-r--r--	2026-07-17 21:17
config.info	797 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	879 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	874 B	-rw-r--r--	2026-07-17 21:17
config.info.de	944 B	-rw-r--r--	2026-07-17 21:17
config.info.es	759 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	867 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	668 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	818 B	-rw-r--r--	2026-07-17 21:17
config.info.no	852 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	723 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	767 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	691 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	620 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	788 B	-rw-r--r--	2026-07-17 21:17
config.info.zh	545 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	513 B	-rw-r--r--	2026-07-17 21:17
delete_rpc.cgi	568 B	-rwxr-xr-x	2026-07-17 21:22
delete_serv.cgi	610 B	-rwxr-xr-x	2026-07-17 21:22
edit_rpc.cgi	4.19 KB	-rwxr-xr-x	2026-07-17 21:22
edit_serv.cgi	4.63 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	4.03 KB	-rwxr-xr-x	2026-07-17 21:22
inetd-generic-lib.pl	4.43 KB	-rwxr-xr-x	2026-07-17 21:17
inetd-lib.pl	2.02 KB	-rwxr-xr-x	2026-07-17 21:17
inetd-solaris-10-lib.pl	8.45 KB	-rwxr-xr-x	2026-07-17 21:17
install_check.pl	336 B	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	892 B	-rwxr-xr-x	2026-07-17 21:17
module.info	239 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	146 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	158 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	112 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	0 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	111 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	119 B	-rw-r--r--	2026-07-17 21:17
module.info.de	0 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	126 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	190 B	-rw-r--r--	2026-07-17 21:17
module.info.es	0 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	116 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	118 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	136 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	113 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	122 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	111 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	143 B	-rw-r--r--	2026-07-17 21:17
module.info.it	0 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	114 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	140 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	154 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	122 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	0 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	116 B	-rw-r--r--	2026-07-17 21:17
module.info.no	0 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	118 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	124 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	113 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	119 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	161 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	111 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	119 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	119 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	157 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	110 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	116 B	-rw-r--r--	2026-07-17 21:17
prefs.info	29 B	-rw-r--r--	2026-07-17 21:17
restart_inetd.cgi	296 B	-rwxr-xr-x	2026-07-17 21:22
save_rpc.cgi	3.82 KB	-rwxr-xr-x	2026-07-17 21:22
save_serv.cgi	5.31 KB	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# index.cgi
# Display a list of known services, built from those handled by inetd and
# from the services file

require './inetd-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
	&help_search_link("inetd", "man", "doc", "howto"));

# Break down into rpc and internet services
$j = 0;
foreach $i (&list_inets()) {
	if ($i->[2]) {
		# rpc service
		$i->[3] =~ /^(\S+)\//;
		if ($i->[1]) { $rpc_active{$1} = $j; }
		else { $rpc_disabled{$1} = $j; }
		}
	else {
		# internet service
		if ($i->[1]) { $int_active{$i->[3],$i->[5]} = $j; }
		else { $int_disabled{$i->[3],$i->[5]} = $j; }
		}
	$j++;
	}

# Get and sort entries from /etc/services
@links = ( "<a href=\"edit_serv.cgi?new=1\">$text{'index_newservice'}</a>" );
$i = 0;
@slist = &list_services();
if ($config{'sort_mode'} == 1) {
	@slist = sort { uc($a->[1]) cmp uc($b->[1]) } @slist;
	}
elsif ($config{'sort_mode'} == 2) {
	@slist = sort { (defined($int_active{$b->[1],$b->[3]}) ? 2 :
			 defined($int_disabled{$b->[1],$b->[3]}) ? 1 : 0) <=>
			(defined($int_active{$a->[1],$a->[3]}) ? 2 :
			 defined($int_disabled{$a->[1],$a->[3]}) ? 1 : 0) }
		 @slist;
	}

# Show search form if too many
if (@slist > $config{'display_max'}) {
	print &ui_form_start("index.cgi");
	print "$text{'index_search'} ",
	 &ui_textbox("search", $in{'search'}, 30)," ",
	 &ui_submit($text{'index_sok'}),"\n";
	print &ui_form_end();
	}

# Apply search
if ($in{'search'}) {
	@slist = grep { $_->[1] =~ /\Q$in{'search'}\E/i } @slist;
	}

if (!@slist) {
	# Nothing found!
	print "$text{'index_none'}\n";
	}
elsif (@slist <= $config{'display_max'} || $in{'search'}) {
	# Show services
	@grid = ( );
	foreach $s (@slist) {
		$ia = $int_active{$s->[1],$s->[3]};
		$id = $int_disabled{$s->[1],$s->[3]};
		if ($ia =~ /\d/) { $op = ""; $cl = ""; $ip = $ia; }
		elsif ($id =~ /\d/) { $op = ""; $cl = ""; $ip = $id; }
		elsif (!$config{'show_empty'}) { next; }
		else { $op = $cl = $ip = ""; }
		push(@grid, $op.
		 "<a href=\"edit_serv.cgi?spos=$s->[5]&ipos=$ip\">".
		 &html_escape($s->[1])."</a> (".&html_escape($s->[3]).")".
		 $cl);
		}
	print &ui_links_row(\@links);
	print &ui_grid_table(\@grid, 4, 100, undef, undef,
			 $text{'index_service'});
	}
else {
	# Too many to show
	print "$text{'index_toomany'}\n";
	}
print &ui_links_row(\@links);

if (!$config{'show_empty'}) {
	# If only services with commands are shown, use this form to jump
	# to editing a named service
	print &ui_form_start("edit_serv.cgi");
	print &ui_submit($text{'index_edit'})," ",
	      &ui_textbox("name", undef, 20)," ",
	      &ui_select("proto", "tcp", [ &list_protocols() ]),"\n";
	print &ui_form_end();
	}

print &ui_hr();

# Get and sort RPC services
@links = ( "<a href=\"edit_rpc.cgi?new=1\">$text{'index_newrpc'}</a>" );
$i = 0;
@rlist = &list_rpcs();
if ($config{'sort_mode'} == 1) {
	@rlist = sort { uc($a->[1]) cmp uc($b->[1]) } @rlist;
	}
elsif ($config{'sort_mode'} == 2) {
	@rlist = sort { ($rpc_active{$b->[1]} ? 2 :
			 $rpc_disabled{$b->[1]} ? 1 : 0) <=>
			($rpc_active{$a->[1]} ? 2 :
			 $rpc_disabled{$a->[1]} ? 1 : 0) } @rlist;
	}
@grid = ( );
foreach $r (@rlist) {
	$ra = $rpc_active{$r->[1]};
	$rd = $rpc_disabled{$r->[1]};
	$ranum = $rpc_active{$r->[2]};
	$rdnum = $rpc_disabled{$r->[2]};
	if ($ra =~ /\d/) { $op = ""; $cl = ""; $rp = $ra; }
	elsif ($ranum =~ /\d/) { $op = ""; $cl = ""; $rp = $ranum; }
	elsif ($rd =~ /\d/) { $op = ""; $cl = ""; $rp = $rd; }
	elsif ($rdnum =~ /\d/) { $op = ""; $cl = ""; $rp = $rdnum; }
	else { $op = $cl = $rp = ""; }
	push(@grid, $op.
		 "<a href=\"edit_rpc.cgi?rpos=$r->[4]&ipos=$rp\">".
		 &html_escape($r->[1])."</a>".$cl);
	}
print &ui_links_row(\@links);
print &ui_grid_table(\@grid, 4, 100, undef, undef,
		 $text{'index_rpc'});
print &ui_links_row(\@links);

print &ui_hr();
print &ui_buttons_start();

print &ui_buttons_row("restart_inetd.cgi",
	$text{'index_apply'}, $text{'index_applymsg'});

print &ui_buttons_end();

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