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 : save_serv.cgi

#!/usr/bin/perl
# save_serv.cgi
# Save or create an internet service. This can be called N ways
#  - create a new services file entry
#  - create a new inetd.conf entry (and maybe update or add to services file)
#  - update inetd.conf (and maybe services)
#  - remove an entry from inetd.conf (and maybe change services)

require './inetd-lib.pl';
&error_setup($text{'error_saveservice'});
&ReadParse();

# Delete button clicked, redirect to correct CGI
if ($in{'delete'}) {
	&redirect("delete_serv.cgi?spos=$in{'spos'}&ipos=$in{'ipos'}");
	return;
	}

# Check inputs
$in{'name'} =~ /^[A-z][A-z0-9\_\-]+$/ ||
	&error(&text('error_invalidservice' ,$in{'name'}));
$in{'port'} =~ /^[0-9]*$/ || &error(&text('error_invalidport', $in{'port'}));
if ($in{'port'} <= 0 || $in{'port'} > 65535) {
	&error(&text('error_portnum', $in{'port'}));
	}
if ($in{'act'} && $in{'serv'} == 2) {
	$in{'program'} =~ /^\/\S+$/ ||
		&error(&text('error_invalidprg', $in{program}));
	if ($in{'act'} == 2) {
		if (!$in{'qm'}) {
			-r $in{'program'} ||
				&error(&text('error_notexist', $in{'program'}));
			-x $in{'program'} ||
				&error(&text('error_notexecutable', $in{'program'}));
			}
		}
	$in{'args'} =~ /^\S+/ ||&error(&text('error_invalidarg', $in{'args'}));
	}
elsif ($in{'act'} && $in{serv} == 3) {
	$in{tcpd} =~ /^\S+$/ ||
		&error(&text('error_invalidwrapper', $in{tcpd}));
	}
if ($in{'act'}) {
	$in{'user'} || &error($text{'error_nouser'});
	defined(getpwnam($in{'user'})) || &error($text{'error_user'});
	if ($config{'extended_inetd'} == 1) {
		$in{'group_def'} || defined(getgrnam($in{'group'})) ||
			&error($text{'error_group'});
		}
	}
if ($config{'extended_inetd'} && !$in{'permin_def'} && $in{'permin'}!~/^\d+$/) {
	&error(&text('error_invalidpermin', $in{'permin'}));
	}
if ($config{'extended_inetd'} == 2 &&
    !$in{'child_def'} && $in{'child'} !~ /^\d+$/) {
	&error(&text('error_invalidchildnum', $in{'child'}));
	}

# Build argument list
@sargs = ($in{'name'}, $in{'port'}, $in{'protocol'},
	  join(' ', split(/\s+/, $in{'aliases'})) );
@iargs = ($in{'act'} == 2, $in{'name'},
	  $in{'protocol'} =~ /^tcp/ ? "stream" : "dgram", $in{'protocol'});
$wait = $in{'wait'};
$user = $in{'user'};
if ($config{'extended_inetd'} == 1) {
	if (!$in{'permin_def'}) { $wait .= ".$in{'permin'}"; }
	if (!$in{'group_def'}) { $user .= ".$in{'group'}"; }
	}
elsif ($config{'extended_inetd'} == 2) {
	if (!$in{'child_def'}) { $wait .= "/$in{'child'}"; }
	if (!$in{'permin_def'} && $in{'child_def'}) {
		&error($text{'error_childnum'});
		}
	if (!$in{'permin_def'}) { $wait .= "/$in{'permin'}"; }
	if ($in{'group'}) { $user .= ":$in{'group'}"; }
	if ($in{'class'}) { $user .= "/$in{'class'}"; }
	}
push(@iargs, $wait);
push(@iargs, $user);
if (($in{'serv'} == 1) & (!$config{'no_internal'})) {
	push(@iargs, "internal", undef);
	}
elsif (($in{'serv'} == 1) & ($config{'no_internal'})) {
	&error(&text('error_invalidcmd', $in{args}));
	}
elsif ($in{serv} == 2) {
	push(@iargs, ($in{'qm'} ? "?" : "").$in{'program'});
	push(@iargs, $in{'args'});
	}
elsif ($in{serv} == 3) {
	push(@iargs, $config{'tcpd_path'});
	push(@iargs, $in{'tcpd'});
	$iargs[$#iargs] .= " $in{'args2'}" if ($in{'args2'});
	}

&lock_inetd_files();
@servs = &list_services();
@inets = &list_inets();
foreach $s (@servs) {
	if ($s->[1] eq $sargs[0] && $s->[3] eq $sargs[2]) { $same_name = $s; }
	if ($s->[2] == $sargs[1] && $s->[3] eq $sargs[2]) { $same_port = $s; }
	}

if ($in{'spos'} =~ /\d/) {
	# Changing a service..
	@old_serv = @{$servs[$in{'spos'}]};
	if ($in{'ipos'} =~ /\d/) {
		@old_inet = @{$inets[$in{'ipos'}]};
		}
	if ($old_serv[1] ne $sargs[0] || $old_serv[2] != $sargs[1] ||
	    $old_serv[3] ne $sargs[2]) {
		if ($same_name && $same_name->[2] != $old_serv[2]) {
			&error(&text('error_nameexist', $sargs[0], $sargs[2]));
			}
		if ($same_port && $same_port->[1] ne $old_serv[1]) {
			&error(&text('error_serviceexist', $sargs[1], $sargs[2]));
			}
		}
	&modify_service($old_serv[0], @sargs);
	if ($in{'act'} && @old_inet) {
		# modify inetd
		&modify_inet($old_inet[0], @iargs, $old_inet[10]);
		}
	elsif ($in{'act'} && !@old_inet) {
		# add to inetd
		&create_inet(@iargs);
		}
	elsif (!$in{'act'} && @old_inet) {
		# remove from inetd
		&delete_inet($old_inet[0], $old_inet[10]);
		@iargs = ();
		}
	&unlock_inetd_files();
	&webmin_log("modify", "serv", $sargs[0],
		    { 'name' => $sargs[0], 'port' => $sargs[1],
		      'proto' => $sargs[2], 'active' => $iargs[0],
		      'user' => $iargs[5], 'wait' => $iargs[4],
		      'prog' => $in{'act'} ? join(" ", @iargs[6..@iargs-1])
					   : undef } );
	}
else {
	# Creating a new service...
	# Check for a service with the same name or port and protocol
	if ($same_name) {
		&error(&text('error_nameexist', $sargs[0], $sargs[2]));
		}
	if ($same_port) {
		&error(&text('error_serviceexist', $sargs[1], $sargs[2]));
		}
	# Check for an existing internet service
	if ($in{'act'}) {
		foreach $i (@inets) {
			if ($i->[3] eq $iargs[1] && $i->[5] eq $iargs[3]) {
				&error(&text('error_inetservice', $i->[3], $i->[5]));
				}
			}
		}
	&create_service(@sargs);
	if ($in{'act'}) { &create_inet(@iargs); }
	&unlock_inetd_files();
	&webmin_log("create", "serv", $sargs[0],
		    { 'name' => $sargs[0], 'port' => $sargs[1],
		      'proto' => $sargs[2], 'active' => $iargs[0],
		      'user' => $iargs[5], 'wait' => $iargs[4],
		      'prog' => $in{'act'} ? join(" ", @iargs[6..@iargs-1])
					   : undef } );
	}
&redirect("");

${this.title}

Code Editor : save_serv.cgi