Gecko [ www.thearyasamaj.org ]

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	736 B	-rw-r--r--
config.info.ca	464 B	-rw-r--r--
config.info.cs	438 B	-rw-r--r--
config.info.de	520 B	-rw-r--r--
config.info.es	377 B	-rw-r--r--
config.info.fi	0 B	-rw-r--r--
config.info.fr	510 B	-rw-r--r--
config.info.hu	378 B	-rw-r--r--
config.info.ja	521 B	-rw-r--r--
config.info.ko	387 B	-rw-r--r--
config.info.ms	0 B	-rw-r--r--
config.info.nl	451 B	-rw-r--r--
config.info.no	435 B	-rw-r--r--
config.info.tr	352 B	-rw-r--r--
config.info.zh_TW	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.88 KB	-rwxr-xr-x
htpasswd-file-lib.pl	6.25 KB	-rwxr-xr-x
index.cgi	4.49 KB	-rwxr-xr-x
log_parser.pl	475 B	-rwxr-xr-x
md5-lib.pl	7.58 KB	-rwxr-xr-x
module.info	215 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	149 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	197 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	210 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	224 B	-rw-r--r--
module.info.ca	126 B	-rw-r--r--
module.info.ca.auto	24 B	-rw-r--r--
module.info.cs	36 B	-rw-r--r--
module.info.cs.auto	125 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	142 B	-rw-r--r--
module.info.de	146 B	-rw-r--r--
module.info.de.auto	25 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	314 B	-rw-r--r--
module.info.es	35 B	-rw-r--r--
module.info.es.auto	127 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	150 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	249 B	-rw-r--r--
module.info.fi	33 B	-rw-r--r--
module.info.fi.auto	117 B	-rw-r--r--
module.info.fr	36 B	-rw-r--r--
module.info.fr.auto	135 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	197 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	155 B	-rw-r--r--
module.info.hu	40 B	-rw-r--r--
module.info.hu.auto	140 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	142 B	-rw-r--r--
module.info.ja	45 B	-rw-r--r--
module.info.ja.auto	161 B	-rw-r--r--
module.info.ko	32 B	-rw-r--r--
module.info.ko.auto	136 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	178 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	170 B	-rw-r--r--
module.info.ms	119 B	-rw-r--r--
module.info.ms.auto	22 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	152 B	-rw-r--r--
module.info.nl	35 B	-rw-r--r--
module.info.nl.auto	122 B	-rw-r--r--
module.info.no	33 B	-rw-r--r--
module.info.no.auto	126 B	-rw-r--r--
module.info.pl	0 B	-rw-r--r--
module.info.pl.auto	149 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	158 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	167 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	155 B	-rw-r--r--
module.info.ru	0 B	-rw-r--r--
module.info.ru.auto	208 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	156 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	154 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	161 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	274 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	160 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	208 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	220 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	180 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	128 B	-rw-r--r--
module.info.zh_TW	30 B	-rw-r--r--
module.info.zh_TW.auto	101 B	-rw-r--r--
prefs.info	28 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 : htpasswd-file-lib.pl

# htpasswd-file-lib.pl
# Functions for reading and writing a .htpasswd format file
# XXX md5 and old password

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
BEGIN { push(@INC, ".."); };
use WebminCore;
our (%access, $module_name, %config, %gconfig, %list_authusers_cache,
     %list_authgroups_cache, $null_file);
if (!$module_name) {
	&init_config();
	%access = &get_module_acl();
	}
do 'md5-lib.pl';
our $htdigest_command = &has_command("htdigest") || &has_command("htdigest2");

# list_users([file])
# Returns an array of user and password details from the given file
sub list_users
{
my ($file) = @_;
$file ||= $config{'file'};
if (!defined($list_authusers_cache{$file})) {
	$list_authusers_cache{$file} = [ ];
	local $_;
	my $lnum = 0;
	my $count = 0;
	if (open(HTPASSWD, "<".$file)) {
		while(<HTPASSWD>) {
			if (/^(#?)\s*([^:]+):(\S*)/) {
				push(@{$list_authusers_cache{$file}},
					  { 'user' => $2,
					    'pass' => $3,
					    'enabled' => !$1,
					    'file' => $file,
					    'line' => $lnum,
					    'index' => $count++ });
				}
			$lnum++;
			}
		close(HTPASSWD);
		}
	}
return $list_authusers_cache{$file};
}

# list_digest_users([file])
# Returns an array of user, domain and password details from the given file
sub list_digest_users
{
my ($file) = @_;
$file ||= $config{'file'};
if (!defined($list_authusers_cache{$file})) {
	$list_authusers_cache{$file} = [ ];
	local $_;
	my $lnum = 0;
	my $count = 0;
	if (open(HTPASSWD, "<".$file)) {
		while(<HTPASSWD>) {
			if (/^(#?)\s*(\S+):(\S+):(\S*)/) {
				push(@{$list_authusers_cache{$file}},
					  { 'user' => $2,
					    'dom' => $3,
					    'pass' => $4,
					    'enabled' => !$1,
					    'digest' => 1,
					    'file' => $file,
					    'line' => $lnum,
					    'index' => $count++ });
				}
			$lnum++;
			}
		close(HTPASSWD);
		}
	}
return $list_authusers_cache{$file};
}

# modify_user(&user)
sub modify_user
{
my $lref = &read_file_lines($_[0]->{'file'});
if ($_[0]->{'digest'}) {
	$lref->[$_[0]->{'line'}] = ($_[0]->{'enabled'} ? "" : "#").
			   "$_[0]->{'user'}:$_[0]->{'dom'}:$_[0]->{'pass'}";
	}
else {
	$lref->[$_[0]->{'line'}] = ($_[0]->{'enabled'} ? "" : "#").
				   "$_[0]->{'user'}:$_[0]->{'pass'}";
	}
&flush_file_lines($_[0]->{'file'});
}

# create_user(&user, [file])
sub create_user
{
$_[0]->{'file'} = $_[1] || $config{'file'};
my $lref = &read_file_lines($_[0]->{'file'});
$_[0]->{'line'} = @$lref;
if ($_[0]->{'digest'}) {
	push(@$lref, ($_[0]->{'enabled'} ? "" : "#").
		     "$_[0]->{'user'}:$_[0]->{'dom'}:$_[0]->{'pass'}");
	}
else {
	push(@$lref, ($_[0]->{'enabled'} ? "" : "#").
		     "$_[0]->{'user'}:$_[0]->{'pass'}");
	}
&flush_file_lines($_[0]->{'file'});
$list_authusers_cache{$_[0]->{'file'}} ||= [ ];
$_[0]->{'index'} = @{$list_authusers_cache{$_[0]->{'file'}}};
push(@{$list_authusers_cache{$_[0]->{'file'}}}, $_[0]);
}

# delete_user(&user)
sub delete_user
{
my $lref = &read_file_lines($_[0]->{'file'});
splice(@$lref, $_[0]->{'line'}, 1);
&flush_file_lines($_[0]->{'file'});
splice(@{$list_authusers_cache{$_[0]->{'file'}}}, $_[0]->{'index'}, 1);
map { $_->{'line'}-- if ($_->{'line'} > $_[0]->{'line'}) }
    @{$list_authusers_cache{$_[0]->{'file'}}};
}

# encrypt_password(string, [old], md5mode)
sub encrypt_password
{
my ($str, $old, $mode) = @_;
$mode ||= 0;
&seed_random();
if ($mode == 1) {
	# MD5
	return &encrypt_md5($str, $old);
	}
elsif ($mode == 2) {
	# SHA1
	return &encrypt_sha1($str);
	}
elsif ($mode == 3) {
	# Digest
	return &digest_password(undef, undef, $str);
	}
else {
	# Crypt
	if ($gconfig{'os_type'} eq 'windows' && &has_command("htpasswd")) {
		# Call htpasswd program
		my $qp = quotemeta($str);
		my $out = &backquote_command(
			"htpasswd -n -b foo $qp 2>&1 <$null_file");
		if ($out =~ /^foo:(\S+)/) {
			return $1;
			}
		else {
			&error("htpasswd failed : $out");
			}
		}
	else {
		# Use built-in encryption code
		my $salt = $old ||
			   chr(int(rand(26))+65).chr(int(rand(26))+65);
		return &unix_crypt($str, $salt);
		}
	}
}

# digest_password(user, realm, pass)
# Encrypts a password in the format used by htdigest
sub digest_password
{
my ($user, $dom, $pass) = @_;
my $temp = &tempname();
eval "use Digest::MD5";
if (!$@) {
	# Use the digest::MD5 module to do the encryption directly
	return Digest::MD5::md5_hex("$user:$dom:$pass");
	}
else {
	# Shell out to htdigest command
	&foreign_require("proc", "proc-lib.pl");
	my ($fh, $fpid) = &proc::pty_process_exec("$htdigest_command -c $temp ".quotemeta($dom)." ".quotemeta($user));
	&wait_for($fh, "password:");
	&sysprint($fh, "$pass\n");
	&wait_for($fh, "password:");
	&sysprint($fh, "$pass\n");
	&wait_for($fh);
	close($fh);
	my $tempusers = &list_digest_users($temp);
	unlink($temp);
	return $tempusers->[0]->{'pass'};
	}
}

# list_groups(file)
# Returns an array of group details from the given file
sub list_groups
{
my $file = $_[0];
if (!defined($list_authgroups_cache{$file})) {
	$list_authgroups_cache{$file} = [ ];
	local $_;
	my $lnum = 0;
	my $count = 0;
	open(HTPASSWD, "<".$file);
	while(<HTPASSWD>) {
		if (/^(#?)\s*(\S+):\s*(.*)/) {
			push(@{$list_authgroups_cache{$file}},
				  { 'group' => $2,
				    'enabled' => !$1,
				    'members' => [ split(/\s+/, $3) ],
				    'file' => $file,
				    'line' => $lnum,
				    'index' => $count++ });
			}
		$lnum++;
		}
	close(HTPASSWD);
	}
return $list_authgroups_cache{$file};
}

# modify_group(&group)
sub modify_group
{
my $lref = &read_file_lines($_[0]->{'file'});
$lref->[$_[0]->{'line'}] = ($_[0]->{'enabled'} ? "" : "#").
			   "$_[0]->{'group'}: ".
			   join(" ", @{$_[0]->{'members'}});
&flush_file_lines();
}

# create_group(&group, [file])
sub create_group
{
$_[0]->{'file'} = $_[1] || $config{'file'};
my $lref = &read_file_lines($_[0]->{'file'});
$_[0]->{'line'} = @$lref;
push(@$lref, ($_[0]->{'enabled'} ? "" : "#").
	      "$_[0]->{'group'}: ".
	      join(" ", @{$_[0]->{'members'}}));
&flush_file_lines();
$_[0]->{'index'} = @{$list_authgroups_cache{$_[0]->{'file'}}};
push(@{$list_authgroups_cache{$_[0]->{'file'}}}, $_[0]);
}

# delete_group(&group)
sub delete_group
{
my $lref = &read_file_lines($_[0]->{'file'});
splice(@$lref, $_[0]->{'line'}, 1);
&flush_file_lines();
splice(@{$list_authgroups_cache{$_[0]->{'file'}}}, $_[0]->{'index'}, 1);
map { $_->{'line'}-- if ($_->{'line'} > $_[0]->{'line'}) }
    @{$list_authgroups_cache{$_[0]->{'file'}}};
}

${this.title}

Code Editor : htpasswd-file-lib.pl