Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	849 B	-rw-r--r--
acl_form.cgi	3.76 KB	-rwxr-xr-x
acl_save.cgi	2.9 KB	-rwxr-xr-x
acl_security.pl	558 B	-rwxr-xr-x
add.cgi	1.24 KB	-rwxr-xr-x
add_browser.cgi	1.01 KB	-rwxr-xr-x
add_form.cgi	1.98 KB	-rwxr-xr-x
apply.cgi	256 B	-rwxr-xr-x
backup_config.pl	787 B	-rwxr-xr-x
bootup.cgi	640 B	-rwxr-xr-x
cgi_args.pl	349 B	-rwxr-xr-x
config	116 B	-rw-r--r--
config-ALL-linux	230 B	-rw-r--r--
config-Amazon-Linux-2-ALL	255 B	-rw-r--r--
config-CentOS-Linux-7.0-ALL	255 B	-rw-r--r--
config-Redhat-Enterprise-Linux...	261 B	-rw-r--r--
config-Redhat-Enterprise-Linux...	255 B	-rw-r--r--
config-Scientific-Linux-6.0-6....	258 B	-rw-r--r--
config-Scientific-Linux-7.0-AL...	255 B	-rw-r--r--
config-Ubuntu-Linux-8.10-ALL	235 B	-rw-r--r--
config-debian-linux-6.0-ALL	231 B	-rw-r--r--
config-debian-linux-ALL-5.9	234 B	-rw-r--r--
config-freebsd	289 B	-rw-r--r--
config-freebsd-8-ALL	318 B	-rw-r--r--
config-mandrake-linux	250 B	-rw-r--r--
config-pardus-linux	170 B	-rw-r--r--
config-redhat-linux	261 B	-rw-r--r--
config-redhat-linux-24.0-ALL	280 B	-rw-r--r--
config-solaris	214 B	-rw-r--r--
config-suse-linux	253 B	-rw-r--r--
config-syno-linux	230 B	-rw-r--r--
config-turbo-linux	250 B	-rw-r--r--
config.info	989 B	-rw-r--r--
config.info.ca	1.08 KB	-rw-r--r--
config.info.ca.UTF-8	1.09 KB	-rw-r--r--
config.info.de	1.17 KB	-rw-r--r--
config.info.de.UTF-8	1.17 KB	-rw-r--r--
config.info.fr	0 B	-rw-r--r--
config.info.nl	1.02 KB	-rw-r--r--
config.info.nl.UTF-8	1.02 KB	-rw-r--r--
config.info.no	1.06 KB	-rw-r--r--
config.info.no.UTF-8	1.06 KB	-rw-r--r--
config.info.pt_BR	1.15 KB	-rw-r--r--
config.info.pt_BR.UTF-8	1.15 KB	-rw-r--r--
config.info.ru_RU	0 B	-rw-r--r--
create.cgi	2.68 KB	-rwxr-xr-x
defaultacl	65 B	-rw-r--r--
delete_acls.cgi	964 B	-rwxr-xr-x
delete_browser.cgi	1.01 KB	-rwxr-xr-x
down_acl.cgi	1.26 KB	-rwxr-xr-x
down_schema.cgi	649 B	-rwxr-xr-x
edit_acl.cgi	1.75 KB	-rwxr-xr-x
edit_browser.cgi	7.61 KB	-rwxr-xr-x
edit_create.cgi	1.05 KB	-rwxr-xr-x
edit_ldif.cgi	3.25 KB	-rwxr-xr-x
edit_schema.cgi	2.13 KB	-rwxr-xr-x
edit_sfile.cgi	932 B	-rwxr-xr-x
edit_slapd.cgi	3.77 KB	-rwxr-xr-x
gencert.cgi	1.23 KB	-rwxr-xr-x
gencert_form.cgi	1.25 KB	-rwxr-xr-x
gencert_ldif.cgi	1.24 KB	-rwxr-xr-x
index.cgi	3.51 KB	-rwxr-xr-x
install_check.pl	469 B	-rwxr-xr-x
ldap-server-lib.pl	24.01 KB	-rwxr-xr-x
log_parser.pl	1.71 KB	-rwxr-xr-x
module.info	180 B	-rw-r--r--
module.info.ca	105 B	-rw-r--r--
module.info.ca.UTF-8	117 B	-rw-r--r--
module.info.de	95 B	-rw-r--r--
module.info.de.UTF-8	107 B	-rw-r--r--
module.info.ms_MY	102 B	-rw-r--r--
module.info.ms_MY.UTF-8	114 B	-rw-r--r--
module.info.nl	20 B	-rw-r--r--
module.info.nl.UTF-8	26 B	-rw-r--r--
module.info.no	20 B	-rw-r--r--
module.info.no.UTF-8	26 B	-rw-r--r--
module.info.pt_BR	25 B	-rw-r--r--
module.info.pt_BR.UTF-8	31 B	-rw-r--r--
module.info.ru_RU	23 B	-rw-r--r--
module.info.ru_RU.UTF-8	35 B	-rw-r--r--
perms.cgi	432 B	-rwxr-xr-x
rename_browser.cgi	1.04 KB	-rwxr-xr-x
save_browser.cgi	1.04 KB	-rwxr-xr-x
save_ldif.cgi	2.43 KB	-rwxr-xr-x
save_schema.cgi	727 B	-rwxr-xr-x
save_sfile.cgi	607 B	-rwxr-xr-x
save_slapd.cgi	2.78 KB	-rwxr-xr-x
sdelete_browser.cgi	936 B	-rwxr-xr-x
server.key	0 B	-rw-r--r--
start.cgi	251 B	-rwxr-xr-x
stop.cgi	246 B	-rwxr-xr-x
up_acl.cgi	1.26 KB	-rwxr-xr-x
up_schema.cgi	649 B	-rwxr-xr-x
view_sfile.cgi	374 B	-rwxr-xr-x

Code Editor : edit_browser.cgi

#!/usr/bin/perl
# Show the LDAP server's data tree

require './ldap-server-lib.pl';
&ui_print_header(undef, $text{'browser_title'}, "", "browser");
$access{'browser'} || &error($text{'browser_ecannot'});
&ReadParse();

# Connect to LDAP server, or die trying
$ldap = &connect_ldap_db();
if (!ref($ldap)) {
	print &text('browser_econn', $ldap),"\n";
	&ui_print_footer("", $text{'index_return'});
	exit;
	}

# Work out the base (current navigation level)
if ($in{'goparent'}) {
	$base = $in{'parent'};
	}
elsif (!$in{'base'}) {
	$base = &get_ldap_base();
	}
else {
	$base = $in{'base'};
	}

# Show current base (with option to change), and parent button
$formno = 0;
print &ui_form_start("edit_browser.cgi"),"\n";
print "$text{'browser_base'}\n";
print &ui_textbox("base", $base, 60)," ",&ui_submit($text{'browser_ok'}),"\n";
$parent = $base;
$parent =~ s/^[^,]+,\s*//;
if ($parent =~ /\S/) {
	print &ui_hidden("parent", $parent),"\n";
	print "&nbsp;&nbsp;\n";
	print &ui_submit($text{'browser_parent'}, "goparent"),"\n";
	}
print &ui_form_end();
$formno++;

# Show list of objects under the base, and its attributes
if ($in{'search'}) {
	$filter = '(|'.join('', map { '('.$_.'=*'.$in{'search'}.'*)' }
				 @search_attrs).')';
	}
else {
	$filter = '(objectClass=*)';
	}
$rv = $ldap->search(base => $base,
		 filter => $filter,
		 scope => 'one',
		 sizelimit => int($config{'browse_max'}),
		 );
@subs = sort { lc($a->dn()) cmp lc($b->dn()) } $rv->all_entries;
if ($rv->code && !@subs) {
	# Search failed
	print &text('browser_esearch', $rv->error),"\n";
	}
else {
	# Start tabs for layout
	$in{'mode'} ||= @subs || $in{'search'} ? "subs" : "attrs";
	@tabs = ( [ 'subs', $text{'browser_subs'} ],
		 [ 'attrs', $text{'browser_attrs'} ] );
	print &ui_tabs_start(\@tabs, "browser", $in{'mode'}, 1);

# Show sub-objects, if any
	print &ui_tabs_start_tab("browser", "subs");
	@crlinks = ( "<a href='add_form.cgi?base=".
		 &urlize($base)."'>$text{'browser_sadd'}</a>" );
	if ($rv->code || ($in{'search'} && !@subs)) {
		# Too many to show
		if (@subs && $in{'search'}) {
			# Too many results
			print &text('browser_toomany2', "$in{'search'}",
				 $config{'browse_max'}),"\n";
			}
		elsif (@subs) {
			# No search, many sub-objects
			print &text('browser_toomany',
				 $config{'browse_max'}),"\n";
			}
		else {
			# No matches
			print &text('browser_nomatch',
				 "$in{'search'}"),"\n";
			}
		&show_search_form($text{'browser_search'});
		print &ui_links_row(\@crlinks);
		}
	elsif (@subs) {
		# Search result, so show form
		if ($in{'search'}) {
			&show_search_form($text{'browser_search2'});
			}

# Can show some
		@tds = ( "width=90%", "width=10%" );
		if ($in{'rename'}) {
			# Rename form
			print &ui_form_start("rename_browser.cgi", "post");
			print &ui_hidden("old", $in{'rename'});
			}
		else {
			# Delete sub-objects form
			print &ui_form_start("sdelete_browser.cgi", "post");
			@tds = ( "width=5", @tds );
			@links = ( &select_all_link("d", $formno),
				 &select_invert_link("d", $formno),
				 @crlinks,
				 );
			}
		print &ui_hidden("base", $base);
		print &ui_links_row(\@links);
		print &ui_columns_start([ $in{'rename'} ? ( ) : ( "" ),
					 $text{'browser_sub'},
					 $text{'browser_acts'},
					], 100, 0, \@tds);
		foreach $dn (@subs) {
			$link = "<a href='edit_browser.cgi?base=".
				&urlize($dn->dn())."'>".
				&html_escape($dn->dn())."</a>";
			@alinks = ( "<a href='edit_browser.cgi?base=".
				 &urlize($base)."&mode=subs".
				 "&rename=".&urlize($dn->dn()).
				 "'>$text{'browser_rename'}</a>" );
			if ($in{'rename'} eq $dn->dn()) {
				# Renaming this one
				@alinks = ( "<a href='edit_browser.cgi?base=".
					 &urlize($base)."&mode=subs".
					 "'>$text{'browser_cancel'}</a>" );
				print &ui_columns_row([
					&ui_textbox("rename", $dn->dn(), 70),
					&ui_links_row(\@alinks) ], \@tds);
				}
			elsif ($in{'rename'}) {
				# Display, no delete
				print &ui_columns_row([
					$link,&ui_links_row(\@alinks) ], \@tds);
				}
			else {
				# Rename or select for delete
				print &ui_checked_columns_row([
					$link, &ui_links_row(\@alinks) ],
					\@tds, "d", $dn->dn());
				}
			}
		print &ui_columns_end();
		print &ui_links_row(\@links);
		print &ui_form_end([ [ undef,
			$in{'rename'} ? $text{'browser_rsave'}
				 : $text{'browser_sdelete'} ] ]);
		$formno++;
		}
	else {
		# Nothing to show
		print "$text{'browser_subnone'}\n";
		print &ui_links_row(\@crlinks);
		}
	print &ui_tabs_end_tab();
	
	# Show attributes
	print &ui_tabs_start_tab("browser", "attrs");
	$rv2 = $ldap->search(base => $base,
			 filter => '(objectClass=*)',
			 scope => 'base');
	($bo) = $rv2->all_entries;
	@attrs = sort { lc($a) cmp lc($b) } $bo->attributes();
	if (@attrs) {
		# Show all attributes
		@tds = ( "valign=top width=45%", "valign=top width=45%",
			 "width=5% valign=top" );
		if ($in{'edit'}) {
			# Editing form
			print &ui_form_start("save_browser.cgi", "post");
			print &ui_hidden("edit", $in{'edit'});
			}
		elsif ($in{'add'}) {
			# Add form
			print &ui_form_start("add_browser.cgi", "post");
			}
		else {
			# Deleting form
			print &ui_form_start("delete_browser.cgi", "post");
			@links = ( &select_all_link("d", $formno),
				 &select_invert_link("d", $formno),
			 "<a href='edit_browser.cgi?base=".
				 &urlize($bo->dn())."&add=1&mode=attrs'>".
				 "$text{'browser_add'}</a>",
			 "<a href='add_form.cgi?base=".
				 &urlize($base)."&clone=1'>".
				 "$text{'browser_clone'}</a>" );
			@tds = ( "width=5", @tds );
			}
		print &ui_hidden("base", $bo->dn());
		print &ui_hidden("mode", "attrs");
		print &ui_links_row(\@links);
		print &ui_columns_start([
			$in{'edit'} || $in{'add'} ? ( ) : ( "" ),
			$text{'browser_name'},
			$text{'browser_value'},
			$text{'browser_acts'} ], 100, 0, \@tds);
		foreach $a (@attrs) {
			@v = $bo->get_value($a);
			@alinks = ( "<a href='edit_browser.cgi?base=".
				 &urlize($bo->dn())."&mode=attrs".
				 "&edit=$a'>$text{'browser_edit'}</a>" );
			@cols = ( $a, join(", ", @v),
				 &ui_links_row(\@alinks),
				);
			if ($in{'edit'} eq $a) {
				# Edit this one
				@alinks = ( "<a href='edit_browser.cgi?base=".
					 &urlize($bo->dn())."&mode=attrs".
					 "'>$text{'browser_cancel'}</a>" );
				print &ui_columns_row([
				 $a, &ui_textarea("value", join("\n", @v),
						 scalar(@v)+1, 60),
				 &ui_links_row(\@alinks),
				 ], \@tds);
				}
			elsif ($in{'edit'} || $in{'add'}) {
				# Display, no delete
				print &ui_columns_row(\@cols, \@tds);
				}
			else {
				# Edit or select for delete
				print &ui_checked_columns_row(
					\@cols, \@tds, "d", $a);
				}
			}
		if ($in{'add'}) {
			# Show row to add an attribute
			@alinks = ( "<a href='edit_browser.cgi?base=".
				 &urlize($bo->dn())."&mode=attrs".
				 "'>$text{'browser_cancel'}</a>" );
			print &ui_columns_row([
				&ui_textbox("add", undef, 20),
				&ui_textbox("value", undef, 60),
				&ui_links_row(\@alinks),
				], \@tds);
			}
		print &ui_columns_end();
		print &ui_links_row(\@links);
		print &ui_form_end([ [ undef, $in{'edit'} ? $text{'save'} :
					 $in{'add'} ? $text{'create'} :
						$text{'browser_delete'} ] ]);
		$formno++;
		}
	else {
		print "$text{'browser_attrnone'}\n";
		print &ui_links_row(\@links);
		}
	print &ui_tabs_end_tab();

print &ui_tabs_end(1);
	}

$ldap->disconnect();
&ui_print_footer("", $text{'index_return'});

sub show_search_form
{
local ($msg) = @_;
print &ui_form_start("edit_browser.cgi");
print &ui_hidden("base", $base);
print "$msg\n";
print &ui_textbox("search", $in{'search'}, 40),"\n";
print &ui_submit($text{'browser_sok'}),"\n";
print &ui_form_end();
$formno++;
}

${this.title}

Code Editor : edit_browser.cgi