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 : htaccess-lib.pl

# htaccess-lib.pl
# Common functions for the htaccess and htpasswd file management module

use strict;
use warnings;
our (%config, %module_info, @remote_user_info, $user_module_config_directory,
     $remote_user, $module_config_directory);
BEGIN { push(@INC, ".."); };
use WebminCore;
&init_config();
do 'htpasswd-file-lib.pl';

our ($default_dir, @accessdirs, $directories_file, $apachemod,
     $can_htpasswd, $can_htgroups, $can_create, $can_sync, %access);
our ($old_uid, $old_gid);
if ($module_info{'usermin'}) {
	# Allowed directories are in module configuration
	&switch_to_remote_user();
	&create_user_config_dirs();
	$default_dir = &resolve_links($remote_user_info[7]);
	push(@accessdirs, $default_dir) if ($config{'home'});
	foreach my $d (split(/\t+/, $config{'dirs'})) {
		push(@accessdirs, $d =~ /^\// ? $d : "$default_dir/$d");
		}
	@accessdirs = &expand_root_variables(@accessdirs);
	$directories_file = "$user_module_config_directory/directories";
	$apachemod = "htaccess";
	$can_htpasswd = $config{'can_htpasswd'};
	$can_htgroups = $config{'can_htgroups'};
	$can_create = !$config{'nocreate'};
	}
else {
	# Allowed directories come from ACL
	%access = &get_module_acl();
	my @uinfo;
	if (&supports_users() && $access{'home'} && $remote_user) {
		# Include user home
		@uinfo = getpwnam($remote_user);
		if (scalar(@uinfo)) {
			push(@accessdirs, &resolve_links($uinfo[7]));
			}
		}
	foreach my $d (split(/\t+/, $access{'dirs'})) {
		push(@accessdirs, $d =~ /^\// || !@uinfo ?
			$d : &resolve_links("$uinfo[7]/$d"));
		}
	$directories_file = "$module_config_directory/directories";
	$directories_file .= ".".$remote_user if ($access{'userdirs'});
	$apachemod = "apache";
	$can_htpasswd = 1;
	$can_htgroups = 1;
	$default_dir = $accessdirs[0];
	$can_sync = $access{'sync'};
	$can_create = !$access{'uonly'};
	}

# list_directories([even-if-missing])
# Returns a list of protected directories known to this module, and the
# users file, encryption mode, sync mode and groups file for each
sub list_directories
{
my @rv;
my $fh;
open($fh, $directories_file) || return ();
while(<$fh>) {
	s/\r|\n//g;
	my @dir = split(/\t+/, $_);
	next if (!@dir);
	if ($_[0] || -d $dir[0] && -r "$dir[0]/$config{'htaccess'}") {
		push(@rv, \@dir);
		}
	}
close($fh);
return @rv;
}

# save_directories(&dirs)
# Save the list of known directories, which must be in the same format as
# returned by list_directories
sub save_directories
{
my $d;
my $fh = "DIRS";
&open_tempfile($fh, ">$directories_file");
foreach $d (@{$_[0]}) {
	my @safed = map { defined($_) ? $_ : "" } @$d;
	&print_tempfile($fh, join("\t", @safed),"\n");
	}
&close_tempfile($fh);
}

# can_access_dir(dir)
# Returns 1 if files can be created under some directory, 0 if not
sub can_access_dir
{
return 1 if (!$ENV{'GATEWAY_INTERFACE'});
my $d;
foreach $d (@accessdirs) {
	return 1 if (&is_under_directory(&resolve_links($d),
					 &resolve_links($_[0])));
	}
return 0;
}

# switch_user()
# Switch to the Unix user that files are accessed as.
# No need to do anything for Usermin, because the switch was done above.
sub switch_user
{
if (!$module_info{'usermin'} &&
    $access{'user'} ne 'root' && !defined($old_uid) && &supports_users()) {
	my @uinfo = getpwnam($access{'user'} eq "*" ? $remote_user
						       : $access{'user'});
	$old_uid = $>;
	$old_gid = $);
	$) = "$uinfo[3] $uinfo[3]";
	$> = $uinfo[2];
	}
}

sub switch_back
{
if (defined($old_uid)) {
	$> = $old_uid;
	$) = $old_gid;
	$old_uid = $old_gid = undef;
	}
}

# expand_root_variables(dir, ...)
# Replaces $USER and $HOME in a list of dirs
sub expand_root_variables
{
my @rv;
my %hash = ( 'user' => $remote_user_info[0],
		'home' => $remote_user_info[7],
		'uid' => $remote_user_info[2],
		'gid' => $remote_user_info[3] );
my @ginfo = getgrgid($remote_user_info[3]);
$hash{'group'} = $ginfo[0];
foreach my $dir (@_) {
	push(@rv, &substitute_template($dir, \%hash));
	}
return @rv;
}

${this.title}

Code Editor : htaccess-lib.pl