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 : index.cgi

#!/usr/bin/perl
# index.cgi
# Display a list of protected directories and their users. The user can
# add more directories, and specify the encryption mode for each.

require './htaccess-lib.pl';
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);

# Check needed Perl modules
if ($config{'md5'}) {
	$missing = &check_md5();
	if ($missing) {
		print &text('index_emd5', "<tt>$missing</tt>"),"\n";
		}
	}
if ($config{'sha1'} && !$missing) {
	$missing = &check_sha1();
	if ($missing) {
		print &text('index_sha1', "<tt>$missing</tt>"),"\n";
		}
	}
if ($missing) {
	if (!$module_info{'usermin'}) {
		print &text('index_cpan', "../cpan/download.cgi?source=3&cpan=$missing&mode=2&return=/$module_name/&returndesc=".&urlize($text{'index_return'}));
		}
	print "\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}

# Check for htdigest command, if we need it
if ($config{'digest'} && !$htdigest_command) {
	eval "use Digest::MD5";
	if ($@) {
		print &text('index_digest2', "<tt>htdigest</tt>",
					 "<tt>Digest::MD5</tt>"),"\n";
		&ui_print_footer("/", $text{'index'});
		exit;
		}
	}

@accessdirs || &error($text{'index_eaccess'});

@links = ( &select_all_link("d"),
	   &select_invert_link("d"),
	   &ui_link("edit_dir.cgi?new=1",$text{'index_add'}) );

@dirs = &list_directories();
@dirs = grep { &can_access_dir($_->[0]) } @dirs;
@gtds = ( "width=25%", "width=25%", "width=25%", "width=25%" );
if (@dirs) {
	@tds = ( "width=30% valign=top", "width=70% valign=top" );
	if ($can_create) {
		print &ui_form_start("delete.cgi", "post");
		@tds = ( "width=5", @tds );
		print &ui_links_row(\@links);
		}
	print &ui_columns_start([ $can_create ? ( "" ) : ( ),
				 $text{'index_dir'},
				 $text{'index_usersgroups'} ], 100, 0, \@tds);
	&switch_user();
	foreach $d (@dirs) {
		local @cols;
		if ($can_create) {
			push(@cols, "<a href='edit_dir.cgi?dir=".
				 &urlize($d->[0])."'>".
				 &html_escape($d->[0])."</a>");
			}
		else {
			push(@cols, &html_escape($d->[0]));
			}

# Show the users
		$users = $d->[2] == 3 ? &list_digest_users($d->[1])
				 : &list_users($d->[1]);
		if ($userconfig{'sort'} == 1 || $config{'sort'} == 1) {
			$users = [ sort { $a->{'user'} cmp $b->{'user'} }
					@$users ];
			}
		@grid = ( );
		for($i=0; $i<@$users; $i++) {
			$u = $users->[$i];
			$link = "<a href='edit_user.cgi?idx=$u->{'index'}&dir=".
				&urlize($d->[0])."'>".
				&html_escape($u->{'user'})."</a>";
			if ($u->{'enabled'}) {
				push(@grid, $link);
				}
			else {
				push(@grid, "$link");
				}
			}
		if (@grid) {
			$utable = &ui_grid_table(\@grid, 4, 100, \@gtds);
			}
		else {
			$utable = "$text{'index_nousers'} \n";
			}

# Show the groups
		if ($d->[4]) {
			@grid = ( );
			$groups = &list_groups($d->[4]);
			if ($userconfig{'sort'} == 1 || $config{'sort'} == 1) {
				$groups = [ sort { $a->{'group'} cmp $b->{'group'} }
						@$groups ];
				}
			for($i=0; $i<@$groups; $i++) {
				$u = $groups->[$i];
				$link= "<a href='edit_group.cgi?idx=$u->{'index'}&dir=".
				 &urlize($d->[0])."'>".
				 &html_escape($u->{'group'})." (".
				 scalar(@{$u->{'members'}}).")</a>";
				if ($u->{'enabled'}) {
					push(@grid, $link);
					}
				else {
					push(@grid, "$link");
					}
				}
			if (@grid) {
				$utable .= &ui_grid_table(\@grid, 4,100,\@gtds);
				}
			else {
				$utable .= "$text{'index_nogroups'} \n";
				}
			}

# User / group adder links
		@ulinks = ( );
		push(@ulinks, "<a href='edit_user.cgi?new=1&dir=".
			 &urlize($d->[0])."'>$text{'index_uadd'}</a>");
		if ($d->[4]) {
			push(@ulinks, "<a href='edit_group.cgi?new=1&dir=".
			 &urlize($d->[0])."'>$text{'index_gadd'}</a>");
			}
		$utable .= &ui_links_row(\@ulinks);
		push(@cols, $utable);
		if ($can_create) {
			print &ui_checked_columns_row(\@cols, \@tds,
						 "d", $d->[0]);
			}
		else {
			print &ui_columns_row(\@cols, \@tds);
			}
		}
	&switch_back();
	print &ui_columns_end();
	if ($can_create) {
		print &ui_links_row(\@links);
		print &ui_form_end([ [ "delete", $text{'index_delete'} ],
				 [ "remove", $text{'index_remove'} ] ]);
		}
	}
else {
	print "$text{'index_none'}\n";
	print &ui_links_row([ $links[2] ]);
	}

# Form to find existing .htaccess files
if ($can_create) {
	print &ui_hr();
	print &ui_form_start("search.cgi");
	print &ui_submit($text{'index_search'}),"\n";
	print &ui_textbox("search", $accessdirs[0] eq "/" ? "" : $accessdirs[0],
			 40)." ".&file_chooser_button("search", 1)." \n";
	print &ui_form_end();
	}

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

${this.title}

Code Editor : index.cgi