Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	1.76 KB	-rw-r--r--	2026-07-17 21:17
acl_security.pl	1.19 KB	-rwxr-xr-x	2026-07-17 21:17
cgi_args.pl	838 B	-rwxr-xr-x	2026-07-17 21:17
config	104 B	-rw-r--r--	2026-07-17 21:17
config-windows	104 B	-rw-r--r--	2026-07-17 21:17
config.info	404 B	-rw-r--r--	2026-07-17 21:17
config.info.bg	736 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	464 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	438 B	-rw-r--r--	2026-07-17 21:17
config.info.de	520 B	-rw-r--r--	2026-07-17 21:17
config.info.es	377 B	-rw-r--r--	2026-07-17 21:17
config.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	510 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	378 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	521 B	-rw-r--r--	2026-07-17 21:17
config.info.ko	387 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	0 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	451 B	-rw-r--r--	2026-07-17 21:17
config.info.no	435 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	352 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	169 B	-rw-r--r--	2026-07-17 21:17
defaultacl	32 B	-rw-r--r--	2026-07-17 21:17
delete.cgi	1.17 KB	-rwxr-xr-x	2026-07-17 21:22
edit_dir.cgi	4.02 KB	-rwxr-xr-x	2026-07-17 21:22
edit_group.cgi	1.3 KB	-rwxr-xr-x	2026-07-17 21:22
edit_user.cgi	1.58 KB	-rwxr-xr-x	2026-07-17 21:22
htaccess-lib.pl	3.88 KB	-rwxr-xr-x	2026-07-17 21:17
htpasswd-file-lib.pl	6.27 KB	-rwxr-xr-x	2026-07-17 21:17
index.cgi	4.49 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	475 B	-rwxr-xr-x	2026-07-17 21:17
md5-lib.pl	7.73 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	215 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	197 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	224 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	126 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	24 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	36 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	125 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	142 B	-rw-r--r--	2026-07-17 21:17
module.info.de	146 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	25 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	314 B	-rw-r--r--	2026-07-17 21:17
module.info.es	35 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	127 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	150 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	249 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	33 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	117 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	36 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	135 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	155 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	40 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	140 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	142 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	45 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	161 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	32 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	136 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	119 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	22 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	35 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	122 B	-rw-r--r--	2026-07-17 21:17
module.info.no	33 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	126 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	133 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	149 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	158 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	167 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	208 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	156 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	161 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	160 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	208 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	128 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	30 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	101 B	-rw-r--r--	2026-07-17 21:17
prefs.info	28 B	-rw-r--r--	2026-07-17 21:17
save_dir.cgi	8.16 KB	-rwxr-xr-x	2026-07-17 21:22
save_group.cgi	1.28 KB	-rwxr-xr-x	2026-07-17 21:22
save_user.cgi	1.69 KB	-rwxr-xr-x	2026-07-17 21:22
search.cgi	1.81 KB	-rwxr-xr-x	2026-07-17 21:22
useradmin_update.pl	1.75 KB	-rwxr-xr-x	2026-07-17 21:17

Rename

#!/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'});