Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	404 B	-rw-r--r--
LICENSE	34.32 KB	-rw-r--r--
add.cgi	3.14 KB	-rwxr-xr-x
add_form.cgi	1.52 KB	-rwxr-xr-x
cgi_args.pl	279 B	-rwxr-xr-x
create-protected-directory.pl	4.78 KB	-rwxr-xr-x
create-protected-user.pl	3.63 KB	-rwxr-xr-x
delete-protected-directory.pl	3.35 KB	-rwxr-xr-x
delete-protected-user.pl	2.64 KB	-rwxr-xr-x
delete.cgi	1.82 KB	-rwxr-xr-x
find.cgi	1.79 KB	-rwxr-xr-x
index.cgi	2.42 KB	-rwxr-xr-x
install-type	4 B	-rw-r--r--
list-protected-directories.pl	3.01 KB	-rwxr-xr-x
list-protected-users.pl	2.99 KB	-rwxr-xr-x
module.info	147 B	-rw-r--r--
module.info.af.auto	34 B	-rw-r--r--
module.info.ar.auto	49 B	-rw-r--r--
module.info.be.auto	41 B	-rw-r--r--
module.info.bg.auto	65 B	-rw-r--r--
module.info.ca.auto	44 B	-rw-r--r--
module.info.cs.auto	42 B	-rw-r--r--
module.info.da.auto	40 B	-rw-r--r--
module.info.de.auto	45 B	-rw-r--r--
module.info.el.auto	79 B	-rw-r--r--
module.info.es.auto	45 B	-rw-r--r--
module.info.eu.auto	43 B	-rw-r--r--
module.info.fa.auto	58 B	-rw-r--r--
module.info.fi	40 B	-rw-r--r--
module.info.fr.auto	47 B	-rw-r--r--
module.info.he.auto	45 B	-rw-r--r--
module.info.hr.auto	41 B	-rw-r--r--
module.info.hu.auto	40 B	-rw-r--r--
module.info.it.auto	41 B	-rw-r--r--
module.info.ja.auto	43 B	-rw-r--r--
module.info.ko.auto	39 B	-rw-r--r--
module.info.lt.auto	45 B	-rw-r--r--
module.info.lv.auto	41 B	-rw-r--r--
module.info.ms.auto	40 B	-rw-r--r--
module.info.mt.auto	43 B	-rw-r--r--
module.info.nl	42 B	-rw-r--r--
module.info.no	40 B	-rw-r--r--
module.info.pl.auto	39 B	-rw-r--r--
module.info.pt.auto	45 B	-rw-r--r--
module.info.pt_BR.auto	48 B	-rw-r--r--
module.info.ro.auto	40 B	-rw-r--r--
module.info.ru.auto	57 B	-rw-r--r--
module.info.sk.auto	40 B	-rw-r--r--
module.info.sl.auto	41 B	-rw-r--r--
module.info.sv.auto	38 B	-rw-r--r--
module.info.th.auto	111 B	-rw-r--r--
module.info.tr.auto	38 B	-rw-r--r--
module.info.uk.auto	63 B	-rw-r--r--
module.info.ur.auto	72 B	-rw-r--r--
module.info.vi.auto	41 B	-rw-r--r--
module.info.zh.auto	37 B	-rw-r--r--
module.info.zh_TW.auto	40 B	-rw-r--r--
virtual_feature.pl	7.38 KB	-rwxr-xr-x
virtualmin-htpasswd-lib.pl	2.03 KB	-rwxr-xr-x

Code Editor : add.cgi

#!/usr/bin/perl
# Add protection
use strict;
use warnings;
our (%text, %in);

require './virtualmin-htpasswd-lib.pl';
&ReadParse();
&error_setup($text{'add_err'});

# Validate inputs
my $d = &virtual_server::get_domain($in{'dom'});
$d && &virtual_server::can_edit_domain($d) || &error($text{'index_ecannot'});
my $pub = &virtual_server::public_html_dir($d);
my $cgi = &virtual_server::cgi_bin_dir($d);
my $dir;
my $tdir_escaped = $in{'dir_def'} == 1 ? "<em>".&html_escape($text{'add_all'})."</em>" :
           $in{'cgi'} ? "<tt>".&html_escape("$d->{'cgi_bin_dir'}/$in{'cgi'}")."</tt>" : 
           $in{'dir'} ? "<tt>".&html_escape("$d->{'public_html_dir'}/$in{'dir'}")."</tt>" : "";

if ($in{'dir_def'} == 1) {
	# Whole website
	$dir = $pub;
	}
else {
	my $dirname = $in{'dir_def'} == 2 ? $in{'cgi'} : $in{'dir'};
	$dirname =~ /\S/ || &error($text{'add_edir'});
	$dirname !~ /\.\./ && $dirname !~ /\0/ ||
		&error($text{'add_edir2'});
	$dirname !~ /^\// || &error($text{'add_edir3'});
	if ($in{'dir_def'} == 2) {
		# Under cgi-bin
		$dir = $cgi."/".$in{'cgi'};
		}
	else {
		# Under public_html
		$dir = $pub."/".$in{'dir'};
		}
	-d $dir || &error($text{'add_edir4'});
	}
$in{'desc'} =~ /\S/ && $in{'desc'} !~ /["\0\r\n]/ || &error($text{'add_edesc'});

# Check for existing files
my $file = "$dir/$htaccess_htpasswd::config{'htaccess'}";
my $conf = &apache::get_htaccess_config($file);
my $htusers = $htaccess_htpasswd::config{'htpasswd'} || "htusers";
my $usersfile = "$dir/$htusers";
foreach my $clash ("AuthUserFile", "AuthType", "AuthName") {
	my $dirclash = &apache::find_directive($clash, $conf);
	if ($dirclash) {
		&error(&text('add_eclash3', $file, $clash));
		}
	}
-r $usersfile && &error(&text('add_eclash2', $usersfile));
-l $file && &error(&text('add_esymlink', $file));

# Create .htaccess (as domain owner)
&lock_file($file);
&apache::save_directive("AuthUserFile", [ "\"$usersfile\"" ], $conf, $conf);
&apache::save_directive("AuthType", [ "Basic" ], $conf, $conf);
&apache::save_directive("AuthName", [ "\"$in{'desc'}\"" ], $conf, $conf);
&apache::save_directive("require", [ "valid-user" ], $conf, $conf);
&apache::save_directive_struct(undef, { 'name' => 'Files',
					'value' => $htusers,
					'type' => 1,
					'members' => [
					  { 'name' => 'deny',
					    'value' => 'from all' },
					],
				      }, $conf, $conf);
&virtual_server::write_as_domain_user($d,
	sub { &flush_file_lines($file) });
&unlock_file($file);
&virtual_server::set_permissions_as_domain_user($d, 0755, $file);

# Create users file
&lock_file($usersfile);
no strict "subs"; # XXX Lexical?
&virtual_server::open_tempfile_as_domain_user($d, USERS, ">$usersfile");
&virtual_server::close_tempfile_as_domain_user($d, USERS);
use strict "subs";
my $perms = &virtual_server::apache_in_domain_group($d) ? 0750 : 0755;
&virtual_server::set_permissions_as_domain_user($d, $perms, $usersfile);
&unlock_file($usersfile);

# Add to protected dirs list
my @dirs = &htaccess_htpasswd::list_directories();
my $dirstr = [ $dir, $usersfile, 0, 0, undef ];
push(@dirs, $dirstr);
&htaccess_htpasswd::save_directories(\@dirs);

&redirect("index.cgi?dom=$in{'dom'}&added=1&site=".&urlize($in{'dir_def'})."&type=".&urlize($tdir_escaped));

${this.title}

Code Editor : add.cgi