Gecko [ 122.154.134.11 ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	1.76 KB	-rw-r--r--
acl_security.pl	1.19 KB	-rwxr-xr-x
cgi_args.pl	838 B	-rwxr-xr-x
config	104 B	-rw-r--r--
config-windows	104 B	-rw-r--r--
config.info	404 B	-rw-r--r--
config.info.bg	469 B	-rw-r--r--
config.info.bg.UTF-8	736 B	-rw-r--r--
config.info.ca	458 B	-rw-r--r--
config.info.ca.UTF-8	464 B	-rw-r--r--
config.info.cz	414 B	-rw-r--r--
config.info.cz.UTF-8	438 B	-rw-r--r--
config.info.de	540 B	-rw-r--r--
config.info.de.UTF-8	540 B	-rw-r--r--
config.info.es	458 B	-rw-r--r--
config.info.es.UTF-8	458 B	-rw-r--r--
config.info.fi	0 B	-rw-r--r--
config.info.fr	193 B	-rw-r--r--
config.info.fr.UTF-8	193 B	-rw-r--r--
config.info.hu	403 B	-rw-r--r--
config.info.hu.UTF-8	425 B	-rw-r--r--
config.info.ja_JP.UTF-8	521 B	-rw-r--r--
config.info.ja_JP.euc	397 B	-rw-r--r--
config.info.ko_KR.UTF-8	387 B	-rw-r--r--
config.info.ko_KR.euc	312 B	-rw-r--r--
config.info.ms	0 B	-rw-r--r--
config.info.nl	451 B	-rw-r--r--
config.info.nl.UTF-8	451 B	-rw-r--r--
config.info.no	435 B	-rw-r--r--
config.info.no.UTF-8	435 B	-rw-r--r--
config.info.tr	352 B	-rw-r--r--
config.info.zh_TW.Big5	133 B	-rw-r--r--
config.info.zh_TW.UTF-8	169 B	-rw-r--r--
defaultacl	32 B	-rw-r--r--
delete.cgi	1.17 KB	-rwxr-xr-x
edit_dir.cgi	4.02 KB	-rwxr-xr-x
edit_group.cgi	1.3 KB	-rwxr-xr-x
edit_user.cgi	1.58 KB	-rwxr-xr-x
htaccess-lib.pl	3.83 KB	-rwxr-xr-x
htpasswd-file-lib.pl	6.18 KB	-rwxr-xr-x
index.cgi	4.49 KB	-rwxr-xr-x
log_parser.pl	475 B	-rwxr-xr-x
md5-lib.pl	6.47 KB	-rwxr-xr-x
module.info	214 B	-rw-r--r--
module.info.ca	126 B	-rw-r--r--
module.info.ca.UTF-8	138 B	-rw-r--r--
module.info.cz	31 B	-rw-r--r--
module.info.cz.UTF-8	42 B	-rw-r--r--
module.info.de	149 B	-rw-r--r--
module.info.de.UTF-8	161 B	-rw-r--r--
module.info.es	35 B	-rw-r--r--
module.info.es.UTF-8	41 B	-rw-r--r--
module.info.fi	33 B	-rw-r--r--
module.info.fi.UTF-8	39 B	-rw-r--r--
module.info.fr	48 B	-rw-r--r--
module.info.fr.UTF-8	54 B	-rw-r--r--
module.info.hu	37 B	-rw-r--r--
module.info.hu.UTF-8	46 B	-rw-r--r--
module.info.ja_JP.UTF-8	54 B	-rw-r--r--
module.info.ja_JP.euc	41 B	-rw-r--r--
module.info.ko_KR.UTF-8	41 B	-rw-r--r--
module.info.ko_KR.euc	32 B	-rw-r--r--
module.info.ms	33 B	-rw-r--r--
module.info.ms.UTF-8	39 B	-rw-r--r--
module.info.ms_MY	125 B	-rw-r--r--
module.info.ms_MY.UTF-8	137 B	-rw-r--r--
module.info.nl	35 B	-rw-r--r--
module.info.nl.UTF-8	41 B	-rw-r--r--
module.info.no	33 B	-rw-r--r--
module.info.no.UTF-8	39 B	-rw-r--r--
module.info.zh_TW.Big5	29 B	-rw-r--r--
save_dir.cgi	8.16 KB	-rwxr-xr-x
save_group.cgi	1.28 KB	-rwxr-xr-x
save_user.cgi	1.69 KB	-rwxr-xr-x
search.cgi	1.81 KB	-rwxr-xr-x
useradmin_update.pl	1.75 KB	-rwxr-xr-x

Code Editor : edit_dir.cgi

#!/usr/bin/perl
# edit_dir.cgi
# Display information about a protected directory

require './htaccess-lib.pl';
&foreign_require($apachemod, "apache-lib.pl");
&ReadParse();
$can_create || &error($text{'dir_ecannotcreate'});
if ($in{'new'}) {
	&ui_print_header(undef, $text{'dir_title1'}, "");
	}
else {
	&ui_print_header(undef, $text{'dir_title2'}, "");
	@dirs = &list_directories();
	($dir) = grep { $_->[0] eq $in{'dir'} } @dirs;
	&can_access_dir($dir->[0]) || &error($text{'dir_ecannot'});
	}

print &ui_form_start("save_dir.cgi");
print &ui_hidden("new", $in{'new'});
print &ui_hidden_table_start($text{'dir_header'}, "width=100%", 2, "main", 1, [ "width=30%" ]);

# Directory to protect
if ($in{'new'}) {
	print &ui_table_row($text{'dir_dir'},
		&ui_textbox("dir", $dir->[0], 50)." ".
		&file_chooser_button("dir", 1));
	}
else {
	print &ui_table_row($text{'dir_dir'},
		"<tt>".&html_escape($dir->[0])."</tt>");
	print &ui_hidden("dir", $in{'dir'});
	}

# File containing users
if ($can_htpasswd) {
	# Allow choice of users file
	if ($in{'new'}) {
		$ufile = &ui_radio("auto", 1, [ [ 1, $text{'dir_auto'}." " ],
						[ 0, $text{'dir_sel'} ] ]);
		}
	$ufile .= &ui_textbox("file", $dir->[1], 50)." ".
		 &file_chooser_button("file", 0);
	}
else {
	# Always automatic
	if ($in{'new'}) {
		$ufile = $text{'dir_auto'};
		}
	else {
		$ufile = "<tt>".&html_escape($dir->[1])."</tt>";
		}
	}
print &ui_table_row($text{'dir_file'}, $ufile);

# File containing groups
if ($can_htgroups) {
	@opts = ( [ 2, "$text{'dir_none'} " ] );
	if ($in{'new'}) {
		push(@opts, [ 1, "$text{'dir_auto'} " ]);
		}
	push(@opts, [ 0, $text{'dir_sel'}." ".
		 &ui_textbox("gfile", $dir->[4], 50)." ".
			 &file_chooser_button("gfile", 0) ]);
	print &ui_table_row($text{'dir_gfile'},
		&ui_radio("gauto", $dir->[4] ? 0 : 2, \@opts));
	}

# If MD5 encryption is available, show option for it
@crypts = ( 0 );
push(@crypts, 1) if ($config{'md5'});
push(@crypts, 2) if ($config{'sha1'});
push(@crypts, 3) if ($config{'digest'});
if (@crypts > 1) {
	print &ui_table_row($text{'dir_crypt'},
		&ui_radio("crypt", int($dir->[2]),
		  [ map { [ $_, $text{'dir_crypt'.$_} ] } @crypts ]));
	}
else {
	print &ui_hidden("crypt", $crypts[0]);
	}

# Authentication realm
if (!$in{'new'}) {
	&switch_user();
	$conf = &foreign_call($apachemod, "get_htaccess_config",
			      "$dir->[0]/$config{'htaccess'}");
	&switch_back();
	$realm = &foreign_call($apachemod, "find_directive",
			       "AuthName", $conf, 1);
	}
print &ui_table_row($text{'dir_realm'},
	&ui_textbox("realm", $realm, 50));

# Users and groups to allow
if (!$in{'new'}) {
	$require = &foreign_call($apachemod, "find_directive_struct",
				 "require", $conf);
	($rmode, @rwho) = @{$require->{'words'}} if ($require);
	}
else {
	$rmode = "valid-user";
	}
print &ui_table_row($text{'dir_require'},
 &ui_radio("require_mode", $rmode,
	[ [ "valid-user", $text{'dir_requirev'}." " ],
	 [ "user", $text{'dir_requireu'}." ".
	 &ui_textbox("require_user",
		$rmode eq "user" ? join(" ", @rwho) : "", 40)." " ],
	 [ "group", $text{'dir_requireg'}." ".
	 &ui_textbox("require_group",
		$rmode eq "group" ? join(" ", @rwho) : "", 40)." " ] ]));

print &ui_hidden_table_end();

# Webmin synchronization mode
if ($can_sync) {
	print &ui_hidden_table_start($text{'dir_header2'}, "width=100%", 2, "sync", 0, [ "width=30%" ]);

%sync = map { $_, 1 } split(/,/, $dir->[3]);
	foreach $s ('create', 'update', 'delete') {
		print &ui_table_row($text{'dir_sync_'.$s},
			&ui_yesno_radio("sync_$s", $sync{$s} ? 1 : 0));
		}

print &ui_hidden_table_end();
	}

if ($in{'new'}) {
	print &ui_form_end([ [ undef, $text{'create'} ] ]);
	}
else {
	if (&foreign_available("apache")) {
		%aaccess = &get_module_acl(undef, "apache");
		if ($aaccess{'global'}) {
			@abutton = ( undef, [ 'apache', $text{'dir_apache'} ] );
			}
		}
	print &ui_form_end([ [ undef, $text{'save'} ],
			     [ 'delete', $text{'dir_delete'} ],
			     [ 'remove', $dir->[4] ? $text{'dir_delete2'}
						   : $text{'dir_delete3'} ],
			     @abutton ]);
	}

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

${this.title}

Code Editor : edit_dir.cgi