Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
backup_config.pl	953 B	-rwxr-xr-x
config-aix	214 B	-rw-r--r--
config-coherent-linux	212 B	-rw-r--r--
config-corel-linux	212 B	-rw-r--r--
config-debian-linux	257 B	-rw-r--r--
config-freebsd	218 B	-rw-r--r--
config-generic-linux	212 B	-rw-r--r--
config-hpux	212 B	-rw-r--r--
config-irix	212 B	-rw-r--r--
config-lfs-linux	212 B	-rw-r--r--
config-macos	212 B	-rw-r--r--
config-mandrake-linux	212 B	-rw-r--r--
config-msc-linux	212 B	-rw-r--r--
config-netbsd	216 B	-rw-r--r--
config-open-linux	212 B	-rw-r--r--
config-openbsd	212 B	-rw-r--r--
config-openserver	200 B	-rw-r--r--
config-osf1	212 B	-rw-r--r--
config-redhat-linux	212 B	-rw-r--r--
config-slackware-linux	212 B	-rw-r--r--
config-solaris	212 B	-rw-r--r--
config-solaris-8-ALL	211 B	-rw-r--r--
config-suse-linux	212 B	-rw-r--r--
config-turbo-linux	237 B	-rw-r--r--
config-united-linux	212 B	-rw-r--r--
config.info	330 B	-rw-r--r--
config.info.ca	394 B	-rw-r--r--
config.info.ca.UTF-8	401 B	-rw-r--r--
config.info.cz	323 B	-rw-r--r--
config.info.cz.UTF-8	336 B	-rw-r--r--
config.info.de	425 B	-rw-r--r--
config.info.de.UTF-8	425 B	-rw-r--r--
config.info.es	393 B	-rw-r--r--
config.info.es.UTF-8	393 B	-rw-r--r--
config.info.fr	292 B	-rw-r--r--
config.info.fr.UTF-8	293 B	-rw-r--r--
config.info.hr	323 B	-rw-r--r--
config.info.hu	308 B	-rw-r--r--
config.info.hu.UTF-8	314 B	-rw-r--r--
config.info.ms_MY	330 B	-rw-r--r--
config.info.ms_MY.UTF-8	330 B	-rw-r--r--
config.info.nl	374 B	-rw-r--r--
config.info.nl.UTF-8	374 B	-rw-r--r--
config.info.no	335 B	-rw-r--r--
config.info.no.UTF-8	335 B	-rw-r--r--
config.info.pl	436 B	-rw-r--r--
config.info.pl.UTF-8	454 B	-rw-r--r--
config.info.ru.UTF-8	430 B	-rw-r--r--
config.info.ru_RU	310 B	-rw-r--r--
config.info.ru_RU.UTF-8	430 B	-rw-r--r--
config.info.ru_SU	310 B	-rw-r--r--
config.info.sv	329 B	-rw-r--r--
config.info.sv.UTF-8	347 B	-rw-r--r--
config.info.tr	284 B	-rw-r--r--
config.info.uk_UA	325 B	-rw-r--r--
config.info.uk_UA.UTF-8	440 B	-rw-r--r--
config.info.zh_CN	224 B	-rw-r--r--
config.info.zh_CN.UTF-8	273 B	-rw-r--r--
config.info.zh_TW.Big5	250 B	-rw-r--r--
config.info.zh_TW.UTF-8	291 B	-rw-r--r--
edit_acl.cgi	8.33 KB	-rwxr-xr-x
edit_alias.cgi	1.23 KB	-rwxr-xr-x
edit_anon.cgi	3.68 KB	-rwxr-xr-x
edit_class.cgi	2.77 KB	-rwxr-xr-x
edit_log.cgi	2.48 KB	-rwxr-xr-x
edit_message.cgi	4.34 KB	-rwxr-xr-x
edit_misc.cgi	2.86 KB	-rwxr-xr-x
edit_net.cgi	2.58 KB	-rwxr-xr-x
edit_perm.cgi	3.19 KB	-rwxr-xr-x
index.cgi	3.68 KB	-rwxr-xr-x
install_check.pl	359 B	-rwxr-xr-x
log_parser.pl	387 B	-rwxr-xr-x
module.info	391 B	-rw-r--r--
module.info.ca	103 B	-rw-r--r--
module.info.ca.UTF-8	117 B	-rw-r--r--
module.info.cz	22 B	-rw-r--r--
module.info.cz.UTF-8	28 B	-rw-r--r--
module.info.de	115 B	-rw-r--r--
module.info.de.UTF-8	127 B	-rw-r--r--
module.info.es	24 B	-rw-r--r--
module.info.es.UTF-8	30 B	-rw-r--r--
module.info.fr	23 B	-rw-r--r--
module.info.fr.UTF-8	29 B	-rw-r--r--
module.info.ja_JP.UTF-8	34 B	-rw-r--r--
module.info.ja_JP.euc	29 B	-rw-r--r--
module.info.ko_KR.UTF-8	31 B	-rw-r--r--
module.info.ko_KR.euc	27 B	-rw-r--r--
module.info.ms_MY	114 B	-rw-r--r--
module.info.ms_MY.UTF-8	126 B	-rw-r--r--
module.info.nl	22 B	-rw-r--r--
module.info.nl.UTF-8	28 B	-rw-r--r--
module.info.no	22 B	-rw-r--r--
module.info.no.UTF-8	28 B	-rw-r--r--
module.info.pl	102 B	-rw-r--r--
module.info.pl.UTF-8	115 B	-rw-r--r--
module.info.pt	24 B	-rw-r--r--
module.info.pt.UTF-8	30 B	-rw-r--r--
module.info.ru.UTF-8	34 B	-rw-r--r--
module.info.ru_RU	25 B	-rw-r--r--
module.info.ru_RU.UTF-8	37 B	-rw-r--r--
module.info.ru_SU	25 B	-rw-r--r--
module.info.sv	22 B	-rw-r--r--
module.info.sv.UTF-8	28 B	-rw-r--r--
module.info.tr	24 B	-rw-r--r--
module.info.zh_CN	25 B	-rw-r--r--
module.info.zh_TW.Big5	27 B	-rw-r--r--
restart.cgi	296 B	-rwxr-xr-x
save_acl.cgi	3.87 KB	-rwxr-xr-x
save_alias.cgi	870 B	-rwxr-xr-x
save_anon.cgi	1.57 KB	-rwxr-xr-x
save_class.cgi	1.7 KB	-rwxr-xr-x
save_log.cgi	1005 B	-rwxr-xr-x
save_message.cgi	2.5 KB	-rwxr-xr-x
save_misc.cgi	1.46 KB	-rwxr-xr-x
save_net.cgi	1.58 KB	-rwxr-xr-x
save_perm.cgi	1.35 KB	-rwxr-xr-x
start.cgi	221 B	-rwxr-xr-x
wuftpd-lib.pl	2.95 KB	-rwxr-xr-x

Code Editor : edit_acl.cgi

#!/usr/bin/perl
# edit_acl.cgi
# Display access control options

require './wuftpd-lib.pl';
&ui_print_header(undef, $text{'acl_title'}, "", "acl");

$conf = &get_ftpaccess();
@class = &find_value("class", $conf);

print "<form action=save_acl.cgi>\n";
print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'acl_header'}</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

# Display addresses to deny from
@deny = ( &find_value("deny", $conf), [ ] );
print "<tr> <td valign=top><b>$text{'acl_deny'}</b></td>\n";
print "<td colspan=3><table border>\n";
print "<tr $tb> <td><b>$text{'acl_daddrs'}</b></td>\n",
      "<td><b>$text{'acl_dmsg'}</b></td> </tr>\n";
$i = 0;
foreach $d (@deny) {
	print "<tr $cb>\n";
	print "<td><input name=daddrs_$i size=20 value='$d->[0]'></td>\n";
	print "<td><input name=dmsg_$i size=35 value='$d->[1]'></td>\n";
	print "</tr>\n";
	$i++;
	}
print "</table></td> </tr>\n";
print "<tr> <td colspan=4><hr></td> </tr>\n";

# Display concurrent login limits
@limit = ( &find_value("limit", $conf), [ ] );
print "<tr> <td valign=top><b>$text{'acl_limit'}</b></td>\n";
print "<td colspan=3><table border>\n";
print "<tr $tb> <td><b>$text{'acl_class'}</b></td>\n",
      "<td><b>$text{'acl_n'}</b></td>\n",
      "<td><b>$text{'acl_times'}</b></td>\n",
      "<td><b>$text{'acl_lmsg'}</b></td> </tr>\n";
$i = 0;
foreach $l (@limit) {
	print "<tr $cb>\n";
	print "<td><select name=lclass_$i>\n";
	printf "<option value='' %s>&nbsp;</option>\n", $l->[0] ? '' : 'checked';
	foreach $c (@class) {
		printf "<option %s>%s</option>\n",
			$l->[0] eq $c->[0] ? 'selected' : '', $c->[0];
		}
	print "</select></td>\n";

printf "<td><input type=radio name=ln_def_$i value=1 %s> %s\n",
		$l->[1] =~ /^\d+$/ ? '' : 'checked', $text{'acl_unlimited'};
	printf "<input type=radio name=ln_def_$i value=0 %s>\n",
		$l->[1] =~ /^\d+$/ ? 'checked' : '';
	printf "<input name=ln_$i size=8 value='%s'></td>\n",
		$l->[1] =~ /^\d+$/ ? $l->[1] : '';

printf "<td><input type=radio name=ltimes_def_$i value=1 %s> %s\n",
		lc($l->[2]) eq 'any' ? 'checked' : '', $text{'acl_any'};
	printf "<input type=radio name=ltimes_def_$i value=0 %s>\n",
		lc($l->[2]) eq 'any' ? '' : 'checked';
	printf "<input name=ltimes_$i size=10 value='%s'></td>\n",
		lc($l->[2]) eq 'any' ? '' : $l->[2];

print "<td><input name=lmsg_$i size=20 value='$l->[3]'></td>\n";
	print "</tr>\n";
	$i++;
	}
print "</table></td> </tr>\n";
print "<tr> <td colspan=4><hr></td> </tr>\n";

# Display file and byte limits
@fblimit = sort { $a->{'line'} <=> $b->{'line'} }
		( &find("file-limit", $conf), &find("data-limit", $conf) );
push(@fblimit, { });
print "<tr> <td valign=top><b>$text{'acl_file'}</b></td>\n";
print "<td colspan=3><table border>\n";
print "<tr $tb> <td><b>$text{'acl_fblimit'}</b></td>\n",
      "<td><b>$text{'acl_inout'}</b></td>\n",
      "<td><b>$text{'acl_raw'}</b></td>\n",
      "<td><b>$text{'acl_count'}</b></td>\n",
      "<td><b>$text{'acl_class'}</b></td> </tr>\n";
$i = 0;
foreach $l (@fblimit) {
	$f = $l->{'values'};
	splice(@$f, 0, 0, '0') if ($f->[0] ne 'raw');
	print "<tr $cb>\n";
	print "<td><select name=fblimit_$i>\n";
	printf "<option value='' %s>&nbsp;</option>\n",
		$l->{'name'} ? '' : 'selected';
	printf "<option value=file-limit %s>%s</option>\n",
		$l->{'name'} eq 'file-limit' ? 'selected' : '',
		$text{'acl_flimit'};
	printf "<option value=byte-limit %s>%s</option>\n",
		$l->{'name'} eq 'byte-limit' ? 'selected' : '',
		$text{'acl_blimit'};
	print "</select></td>\n";

print "<td><select name=fbinout_$i>\n";
	printf "<option value=total %s>%s</option>\n",
		$f->[1] eq 'total' ? 'selected' : '', $text{'acl_total'};
	printf "<option value=in %s>%s</option>\n",
		$f->[1] eq 'in' ? 'selected' : '', $text{'acl_in'};
	printf "<option value=out %s>%s</option>\n",
		$f->[1] eq 'out' ? 'selected' : '', $text{'acl_out'};
	print "</select></td>\n";

printf "<td><input type=radio name=fbraw_$i value=0 %s> %s\n",
		$f->[0] eq 'raw' ? '' : 'checked', $text{'yes'};
	printf "<input type=radio name=fbraw_$i value=1 %s> %s</td>\n",
		$f->[0] eq 'raw' ? 'checked' : '', $text{'no'};

print "<td><input name=fbcount_$i size=10 value='$f->[2]'></td>\n";

print "<td><select name=fbclass_$i>\n";
	printf "<option value='' %s>%s</option>\n",
		$f->[3] ? '' : 'selected', $text{'acl_all'};
	foreach $c (@class) {
		printf "<option %s>%s</option>\n",
			$f->[3] eq $c->[0] ? 'selected' : '', $c->[0];
		}
	print "</select></td>\n";
	print "</tr>\n";
	$i++;
	}
print "</table></td> </tr>\n";
print "<tr> <td colspan=4><hr></td> </tr>\n";

# File access controls
@noret = ( &find_value("noretrieve", $conf), [ ] );
print "<tr> <td valign=top><b>$text{'acl_noret'}</b></td>\n";
print "<td colspan=3><table border>\n";
print "<tr $tb> <td><b>$text{'acl_nfiles'}</b></td>\n",
      "<td><b>$text{'acl_nrel'}</b></td>\n",
      "<td><b>$text{'acl_nclass'}</b></td> </tr>\n";
$i = 0;
foreach $n (@noret) {
	local (@f, %c);
	foreach $nn (@$n) {
		if ($nn =~ /^class=(\S+)/) { $c{$1}++; }
		elsif ($nn !~ /^(absolute|relative)$/) { push(@f, $nn); }
		}
	print "<tr $cb>\n";
	printf "<td><input name=nfiles_$i size=30 value='%s'></td>\n",
		join(" ", @f);
	printf "<td><input type=radio name=nrel_$i value=1 %s> %s\n",
		$n->[0] eq 'relative' ? 'checked' : '', $text{'yes'};
	printf "<input type=radio name=nrel_$i value=0 %s> %s</td>\n",
		$n->[0] eq 'relative' ? '' : 'checked', $text{'no'};
	print "<td>\n";
	foreach $c (@class) {
		printf "<input type=checkbox name=nclass_$i value=%s %s> %s\n",
			$c->[0], !%c || $c{$c->[0]} ? 'checked' : '', $c->[0];
		}
	print "</tr>\n";
	$i++;
	}
print "</table></td> </tr>\n";

@allowret = ( &find_value("allow-retrieve", $conf), [ ] );
print "<tr> <td valign=top><b>$text{'acl_allowret'}</b></td>\n";
print "<td colspan=3><table border>\n";
print "<tr $tb> <td><b>$text{'acl_afiles'}</b></td>\n",
      "<td><b>$text{'acl_arel'}</b></td>\n",
      "<td><b>$text{'acl_aclass'}</b></td> </tr>\n";
$i = 0;
foreach $n (@allowret) {
	local (@f, %c);
	foreach $nn (@$n) {
		if ($nn =~ /^class=(\S+)/) { $c{$1}++; }
		elsif ($nn !~ /^(absolute|relative)$/) { push(@f, $nn); }
		}
	print "<tr $cb>\n";
	printf "<td><input name=afiles_$i size=30 value='%s'></td>\n",
		join(" ", @f);
	printf "<td><input type=radio name=arel_$i value=1 %s> %s\n",
		$n->[0] eq 'relative' ? 'checked' : '', $text{'yes'};
	printf "<input type=radio name=arel_$i value=0 %s> %s</td>\n",
		$n->[0] eq 'relative' ? '' : 'checked', $text{'no'};
	print "<td>\n";
	foreach $c (@class) {
		printf "<input type=checkbox name=aclass_$i value=%s %s> %s\n",
			$c->[0], !%c || $c{$c->[0]} ? 'checked' : '', $c->[0];
		}
	print "</tr>\n";
	$i++;
	}
print "</table></td> </tr>\n";
print "<tr> <td colspan=4><hr></td> </tr>\n";

# Display time-limit options
foreach $l (&find_value("limit-time", $conf)) {
	if ($l->[0] eq '*') {
		$limit{'anonymous'} = $limit{'guest'} = $l->[1];
		}
	else {
		$limit{$l->[0]} = $l->[1];
		}
	}
print "<tr> <td><b>$text{'acl_alimit'}</b></td>\n";
printf "<td><input type=radio name=alimit_def value=1 %s> %s\n",
	$limit{'anonymous'} ? '' : 'checked', $text{'acl_unlimited'};
printf "<input type=radio name=alimit_def value=0 %s>\n",
	$limit{'anonymous'} ? 'checked' : '';
printf "<input name=alimit size=6 value='%s'> %s</td>\n",
	$limit{'anonymous'}, $text{'acl_mins'};
print "<td><b>$text{'acl_glimit'}</b></td>\n";
printf "<td><input type=radio name=glimit_def value=1 %s> %s\n",
	$limit{'guest'} ? '' : 'checked', $text{'acl_unlimited'};
printf "<input type=radio name=glimit_def value=0 %s>\n",
	$limit{'guest'} ? 'checked' : '';
printf "<input name=glimit size=6 value='%s'> %s</td> </tr>\n",
	$limit{'guest'}, $text{'acl_mins'};

# Other security options
$lf = &find_value('loginfails', $conf);
print "<tr> <td><b>$text{'acl_fails'}</b></td>\n";
printf "<td><input type=radio name=fails_def value=1 %s> %s\n",
	$lf ? '' : 'checked', $text{'default'};
printf "<input type=radio name=fails_def value=0 %s>\n",
	$lf ? 'checked' : '';
print "<input name=fails size=6 value='$lf->[0]'></td>\n";

$pr = &find_value('private', $conf); 
print "<td><b>$text{'acl_private'}</b></td>\n";
printf "<td><input type=radio name=private value=yes %s> %s\n",
	$pr->[0] eq 'yes' ? 'checked' : '', $text{'yes'};
printf "<input type=radio name=private value=no %s> %s</td> </tr>\n",
	$pr->[0] eq 'yes' ? '' : 'checked',  $text{'no'};

print "</table></td></tr></table>\n";
print "<input type=submit value=\"$text{'save'}\"></form>\n";

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

${this.title}

Code Editor : edit_acl.cgi