Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
old	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	5.45 KB	-rw-r--r--	2026-07-17 21:17
acl_security.pl	2.82 KB	-rwxr-xr-x	2026-07-17 21:17
backup.cgi	5.2 KB	-rwxr-xr-x	2026-07-17 21:22
backup.pl	1.95 KB	-rwxr-xr-x	2026-07-17 21:22
backup_config.pl	643 B	-rwxr-xr-x	2026-07-17 21:17
backup_form.cgi	4.74 KB	-rwxr-xr-x	2026-07-17 21:22
cgi_args.pl	993 B	-rwxr-xr-x	2026-07-17 21:17
config	501 B	-rw-r--r--	2026-07-17 21:17
config-AlmaLinux-7.0-ALL	530 B	-rw-r--r--	2026-07-17 21:17
config-Amazon-Linux-2-ALL	484 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Linux-7.0-ALL	530 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Stream-Linux-8.0-ALL	530 B	-rw-r--r--	2026-07-17 21:17
config-CloudLinux-8.0-ALL	530 B	-rw-r--r--	2026-07-17 21:17
config-Oracle-Linux-8.0-ALL	530 B	-rw-r--r--	2026-07-17 21:17
config-Redhat-Enterprise-Linux-7.0-ALL	484 B	-rw-r--r--	2026-07-17 21:17
config-Rocky-Linux-7.0-ALL	530 B	-rw-r--r--	2026-07-17 21:17
config-Scientific-Linux-7.0-ALL	484 B	-rw-r--r--	2026-07-17 21:17
config-cobalt-linux	435 B	-rw-r--r--	2026-07-17 21:17
config-coherent-linux	507 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	416 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-10.0-ALL	417 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-4.0-9.0	425 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	588 B	-rw-r--r--	2026-07-17 21:17
config-freebsd-8-ALL	580 B	-rw-r--r--	2026-07-17 21:17
config-gentoo-linux	429 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux	435 B	-rw-r--r--	2026-07-17 21:17
config-msc-linux	441 B	-rw-r--r--	2026-07-17 21:17
config-netbsd	454 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-ALL	453 B	-rw-r--r--	2026-07-17 21:17
config-openmamba-linux	444 B	-rw-r--r--	2026-07-17 21:17
config-pardus-linux	431 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux	444 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-10.0-23.0	772 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-24.0-ALL	500 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-7.0-7.2	493 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-7.3	507 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-7.4-9.0	507 B	-rw-r--r--	2026-07-17 21:17
config-sol-linux	462 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux	448 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux-7.0	457 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux-7.1-9.0	459 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux-9.1-ALL	459 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	454 B	-rw-r--r--	2026-07-17 21:17
config-trustix-linux	619 B	-rw-r--r--	2026-07-17 21:17
config-united-linux	459 B	-rw-r--r--	2026-07-17 21:17
config-windows	510 B	-rw-r--r--	2026-07-17 21:17
config.info	1.68 KB	-rw-r--r--	2026-07-17 21:17
config.info.bg	2.69 KB	-rw-r--r--	2026-07-17 21:17
config.info.ca	1.68 KB	-rw-r--r--	2026-07-17 21:17
config.info.cs	729 B	-rw-r--r--	2026-07-17 21:17
config.info.de	1.62 KB	-rw-r--r--	2026-07-17 21:17
config.info.es	559 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	1.85 KB	-rw-r--r--	2026-07-17 21:17
config.info.ja	1.68 KB	-rw-r--r--	2026-07-17 21:17
config.info.ko	1.42 KB	-rw-r--r--	2026-07-17 21:17
config.info.nl	1.6 KB	-rw-r--r--	2026-07-17 21:17
config.info.no	1.56 KB	-rw-r--r--	2026-07-17 21:17
config.info.pl	521 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	950 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	459 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	1.31 KB	-rw-r--r--	2026-07-17 21:17
config.info.uk	980 B	-rw-r--r--	2026-07-17 21:17
config.info.zh	328 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	426 B	-rw-r--r--	2026-07-17 21:17
cpan_modules.pl	86 B	-rwxr-xr-x	2026-07-17 21:17
create_table.cgi	1.18 KB	-rwxr-xr-x	2026-07-17 21:22
csv.cgi	2 KB	-rwxr-xr-x	2026-07-17 21:22
csv_form.cgi	1.68 KB	-rwxr-xr-x	2026-07-17 21:22
defaultacl	99 B	-rw-r--r--	2026-07-17 21:17
delete_fields.cgi	629 B	-rwxr-xr-x	2026-07-17 21:22
delete_grants.cgi	1.46 KB	-rwxr-xr-x	2026-07-17 21:22
delete_groups.cgi	548 B	-rwxr-xr-x	2026-07-17 21:22
delete_hosts.cgi	478 B	-rwxr-xr-x	2026-07-17 21:22
delete_users.cgi	442 B	-rwxr-xr-x	2026-07-17 21:22
down.cgi	602 B	-rwxr-xr-x	2026-07-17 21:22
download.cgi	1.07 KB	-rwxr-xr-x	2026-07-17 21:22
drop_dbase.cgi	1.19 KB	-rwxr-xr-x	2026-07-17 21:22
drop_dbases.cgi	1.25 KB	-rwxr-xr-x	2026-07-17 21:22
drop_table.cgi	1.1 KB	-rwxr-xr-x	2026-07-17 21:22
drop_tables.cgi	1.72 KB	-rwxr-xr-x	2026-07-17 21:22
edit_dbase.cgi	7.63 KB	-rwxr-xr-x	2026-07-17 21:22
edit_field.cgi	2.42 KB	-rwxr-xr-x	2026-07-17 21:22
edit_grant.cgi	2.72 KB	-rwxr-xr-x	2026-07-17 21:22
edit_group.cgi	1.84 KB	-rwxr-xr-x	2026-07-17 21:22
edit_host.cgi	4.04 KB	-rwxr-xr-x	2026-07-17 21:22
edit_index.cgi	2 KB	-rwxr-xr-x	2026-07-17 21:22
edit_manual.cgi	541 B	-rwxr-xr-x	2026-07-17 21:22
edit_seq.cgi	2.1 KB	-rwxr-xr-x	2026-07-17 21:22
edit_table.cgi	2.71 KB	-rwxr-xr-x	2026-07-17 21:22
edit_user.cgi	2.58 KB	-rwxr-xr-x	2026-07-17 21:22
edit_view.cgi	1.46 KB	-rwxr-xr-x	2026-07-17 21:22
exec.cgi	1.51 KB	-rwxr-xr-x	2026-07-17 21:22
exec_file.cgi	2.05 KB	-rwxr-xr-x	2026-07-17 21:22
exec_form.cgi	3.15 KB	-rwxr-xr-x	2026-07-17 21:22
import.cgi	2.46 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	9.81 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	477 B	-rwxr-xr-x	2026-07-17 21:17
list_grants.cgi	3.41 KB	-rwxr-xr-x	2026-07-17 21:22
list_groups.cgi	1.36 KB	-rwxr-xr-x	2026-07-17 21:22
list_hosts.cgi	2.47 KB	-rwxr-xr-x	2026-07-17 21:22
list_users.cgi	1.96 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	2.41 KB	-rwxr-xr-x	2026-07-17 21:17
login.cgi	829 B	-rwxr-xr-x	2026-07-17 21:22
module.info	269 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	224 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	243 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	135 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	0 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	156 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	143 B	-rw-r--r--	2026-07-17 21:17
module.info.de	131 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	235 B	-rw-r--r--	2026-07-17 21:17
module.info.es	45 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	121 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	161 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	222 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	156 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	48 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	143 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	180 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	41 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	135 B	-rw-r--r--	2026-07-17 21:17
module.info.it	0 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	141 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	48 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	144 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	45 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	141 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	144 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	35 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	105 B	-rw-r--r--	2026-07-17 21:17
module.info.no	34 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	107 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	39 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	119 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	169 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	178 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	52 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	193 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	161 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	33 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	109 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	168 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	228 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	38 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	102 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	40 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	108 B	-rw-r--r--	2026-07-17 21:17
newdb.cgi	1.19 KB	-rwxr-xr-x	2026-07-17 21:22
newdb_form.cgi	1.36 KB	-rwxr-xr-x	2026-07-17 21:22
postgresql-lib.pl	35.88 KB	-rwxr-xr-x	2026-07-17 21:17
prefs.info	69 B	-rw-r--r--	2026-07-17 21:17
restore.cgi	1.99 KB	-rwxr-xr-x	2026-07-17 21:22
restore_form.cgi	1.42 KB	-rwxr-xr-x	2026-07-17 21:22
save_field.cgi	1.05 KB	-rwxr-xr-x	2026-07-17 21:22
save_grant.cgi	1.65 KB	-rwxr-xr-x	2026-07-17 21:22
save_group.cgi	3.54 KB	-rwxr-xr-x	2026-07-17 21:22
save_host.cgi	3.4 KB	-rwxr-xr-x	2026-07-17 21:22
save_index.cgi	1.45 KB	-rwxr-xr-x	2026-07-17 21:22
save_manual.cgi	330 B	-rwxr-xr-x	2026-07-17 21:22
save_seq.cgi	2.57 KB	-rwxr-xr-x	2026-07-17 21:22
save_sync.cgi	335 B	-rwxr-xr-x	2026-07-17 21:22
save_user.cgi	1.83 KB	-rwxr-xr-x	2026-07-17 21:22
save_view.cgi	1.37 KB	-rwxr-xr-x	2026-07-17 21:22
search_form.cgi	1.38 KB	-rwxr-xr-x	2026-07-17 21:22
setup.cgi	292 B	-rwxr-xr-x	2026-07-17 21:22
start.cgi	284 B	-rwxr-xr-x	2026-07-17 21:22
stop.cgi	278 B	-rwxr-xr-x	2026-07-17 21:22
table_form.cgi	1.9 KB	-rwxr-xr-x	2026-07-17 21:22
up.cgi	598 B	-rwxr-xr-x	2026-07-17 21:22
useradmin_update.pl	2.1 KB	-rwxr-xr-x	2026-07-17 21:17
view-lib.pl	3.56 KB	-rwxr-xr-x	2026-07-17 21:17
view_table.cgi	15.16 KB	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# edit_dbase.cgi
# Show database tables

require './postgresql-lib.pl';
&ReadParse();
&can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'});
@titles = grep { &can_edit_db($_) } &list_databases();
$desc = "<tt>$in{'db'}</tt>";
if (@titles == 1 && $module_info{'usermin'}) {
	# Single-database mode
	&ui_print_header($desc, $text{'dbase_title'}, "", "edit_dbase", 1, 1);
	$single = 1;
	}
else {
	&ui_print_header($desc, $text{'dbase_title'}, "", "edit_dbase");
	}

# Is this database accepting connections?
if (!&accepting_connections($in{'db'})) {
	print "$text{'dbase_noconn'}\n";
	&ui_print_footer("", $text{'index_return'});
	exit;
	}

@titles = &list_tables($in{'db'});
if (&supports_indexes() && $access{'indexes'}) {
	@indexes = &list_indexes($in{'db'});
	}
if (&supports_views() && $access{'views'}) {
	@views = &list_views($in{'db'});
	}
if (&supports_sequences() && $access{'seqs'}) {
	@seqs = &list_sequences($in{'db'});
	}

if ($in{'search'}) {
	# Limit to those matching search
	@titles = grep { /\Q$in{'search'}\E/i } @titles;
	@indexes = grep { /\Q$in{'search'}\E/i } @indexes;
	@views = grep { /\Q$in{'search'}\E/i } @views;
	@seqs = grep { /\Q$in{'search'}\E/i } @seqs;
	print "<table width=100%><tr>\n";
	print "<td> ",&text('dbase_showing',
		"<tt>$in{'search'}</tt>"),"</td>\n";
	print "<td align=right><a href='edit_dbase.cgi?db=$in{'db'}'>",
		"$text{'view_searchreset'}</a></td>\n";
	print "</tr></table>\n";
	}

if (@titles+@indexes+@views+@seqs > $max_dbs && !$in{'search'}) {
	# Too many tables to show .. display search and jump forms
	print &ui_form_start("edit_dbase.cgi");
	print &ui_hidden("db", $in{'db'}),"\n";
	print $text{'dbase_toomany'},"\n";
	print &ui_textbox("search", undef, 20),"\n";
	print &ui_submit($text{'index_search'})," \n";
	print &ui_form_end();

# Table selector
	print &ui_form_start("edit_table.cgi");
	print $text{'dbase_jump'},"\n";
	print &ui_hidden("db", $in{'db'}),"\n";
	print &ui_select("table", undef, [ map { [ $_ ] } @titles ],
			 1, 0, 0, 0, "onChange='form.submit()'"),"\n";
	print &ui_submit($text{'index_jumpok'})," \n";
	print &ui_form_end();

# View selector (if any)
	if (@views) {
		print &ui_form_start("edit_view.cgi");
		print $text{'dbase_vjump'},"\n";
		print &ui_hidden("db", $in{'db'}),"\n";
		print &ui_select("view", undef, [ map { [ $_ ] } @views ],
				 1, 0, 0, 0, "onChange='form.submit()'"),"\n";
		print &ui_submit($text{'index_jumpok'})," \n";
		print &ui_form_end();
		}

# Index selector (if any)
	if (@indexes) {
		print &ui_form_start("edit_index.cgi");
		print $text{'dbase_ijump'},"\n";
		print &ui_hidden("db", $in{'db'}),"\n";
		print &ui_select("index", undef, [ map { [ $_ ] } @indexes ],
				 1, 0, 0, 0, "onChange='form.submit()'"),"\n";
		print &ui_submit($text{'index_jumpok'})," \n";
		print &ui_form_end();
		}

# Sequence selector (if any)
	if (@seqs) {
		print &ui_form_start("edit_seq.cgi");
		print $text{'dbase_sjump'},"\n";
		print &ui_hidden("db", $in{'db'}),"\n";
		print &ui_select("seq", undef, [ map { [ $_ ] } @seqs ],
				 1, 0, 0, 0, "onChange='form.submit()'"),"\n";
		print &ui_submit($text{'index_jumpok'})," \n";
		print &ui_form_end();
		}
	print "\n";
	}
elsif (@titles || @indexes || @views || @seqs) {
	@icons = ( ( map { "images/table.gif" } @titles ),
		 ( map { "images/index.gif" } @indexes ),
		 ( map { "images/view.gif" } @views ),
		 ( map { "images/seq.gif" } @seqs ),
		 );
	@links = ( ( map { "edit_table.cgi?db=$in{'db'}&table=".&urlize($_) }
		 	 @titles ),
		 ( map { "edit_index.cgi?db=$in{'db'}&index=".&urlize($_) }
 @indexes ),
		 ( map { "edit_view.cgi?db=$in{'db'}&view=".&urlize($_) }
 @views ),
		 ( map { "edit_seq.cgi?db=$in{'db'}&seq=".&urlize($_) }
 @seqs ),
		 );
 @descs = ( ( map { "" } @titles ),
 ( map { " ($text{'dbase_index'})" } @indexes),
 ( map { " ($text{'dbase_view'})" } @views),
 ( map { " ($text{'dbase_seq'})" } @seqs),
 );
	#&show_buttons();
	@rowlinks = ( );
	if ($access{'tables'}) {
		print &ui_form_start("drop_tables.cgi");
		print &ui_hidden("db", $in{'db'});
		push(@rowlinks, &select_all_link("d", $form),
				&select_invert_link("d", $form) );
		@checks = ( ( @titles ),
			 ( map { "!".$_ } @indexes ),
			 ( map { "*".$_ } @views ),
			 ( map { "/".$_ } @seqs ),
			 );
		}
	print &ui_links_row(\@rowlinks);
	@dtitles = map { &html_escape($_) } ( @titles, @indexes, @views,@seqs );
	if ($displayconfig{'style'} == 1) {
		# Show as table
		foreach $t (@titles) {
			local $c;
			eval {
				local $main::error_must_die = 1;
				$c = &execute_sql($in{'db'},
				 "select count(*) from ".quote_table($t));
				};
			$c ||= { 'data' => [ [ "-" ] ] };
			push(@rows, $c->{'data'}->[0]->[0]);
			local @str = &table_structure($in{'db'}, $t);
			push(@fields, scalar(@str));
			}
		foreach $t (@indexes) {
			$str = &index_structure($in{'db'}, $t);
			push(@rows, "$text{'dbase_index'}");
			push(@fields, scalar(@{$str->{'cols'}}));
			}
		foreach $t (@views) {
			push(@rows, "$text{'dbase_view'}");
			push(@fields, undef);
			}
		foreach $t (@seqs) {
			$str = &sequence_structure($in{'db'}, $t);
			push(@rows, "$text{'dbase_seq'}");
			push(@fields, $str->{'last_value'});
			}
		&split_table([ "", $text{'dbase_table'}, $text{'dbase_rows'},
			 $text{'dbase_cols'} ],
			 \@checks, \@links, \@dtitles,
			 \@rows, \@fields) if (@titles);
		}
 elsif ($displayconfig{'style'} == 2) {
 # Just show table names
 @grid = ( );
 @all = ( @titles, @indexes, @views, @seqs );
 for(my $i=0; $i<@links; $i++) {
 push(@grid, &ui_checkbox("d", $checks[$i]).
 " <a href='$links[$i]'>".
 &html_escape($all[$i])." ".$descs[$i]."</a>");
 }
 print &ui_grid_table(\@grid, 4, 100, undef, undef,
				 $text{'dbase_header'});
 }
	else {
		# Show as icons
		@checks = map { &ui_checkbox("d", $_) } @checks;
		&icons_table(\@links, \@dtitles, \@icons, 5, undef, undef,undef,
			 @checks ? \@checks : undef);
		}
	print &ui_links_row(\@rowlinks);
	if ($access{'tables'}) {
		print &ui_form_end([ [ "delete", $text{'dbase_delete'} ] ]);
		}
	}
else {
	print "$text{'dbase_none'} \n";
	}
&show_buttons();

if ($single) {
	&ui_print_footer("/", $text{'index'});
	}
else {
	&ui_print_footer(&get_databases_return_link($in{'db'}), $text{'index_return'});
	}

# Display buttons for adding tables, views and so on
sub show_buttons
{
print &ui_form_start("table_form.cgi");
print &ui_hidden("db", $in{'db'});

if ($access{'tables'}) {
	# Add a new table
	print &ui_submit($text{'dbase_add'})." ".$text{'dbase_fields'}.
		         " ".&ui_textbox("fields", 4, 4);
	print "&nbsp;\n";

# Add a new view
	if (&supports_views() && $access{'views'}) {
		print &ui_submit($text{'dbase_vadd'}, 'addview');
		print "&nbsp;\n";
		}

# Add a new sequence
	if (&supports_sequences() && $access{'seqs'}) {
		print &ui_submit($text{'dbase_sadd'}, 'addseq');
		print "&nbsp;\n";
		}
	}

# Drop database button
if ($access{'delete'}) {
	print &ui_submit($text{'dbase_drop'}, 'dropdb');
	print "&nbsp;\n";
	}

# Backup and restore buttons
if (&get_postgresql_version() >= 7.2) {
	if ($access{'backup'}) {
		print &ui_submit($text{'dbase_bkup'}, 'backupdb');
		print "&nbsp;\n";
		}
	if ($access{'restore'}) {
		print &ui_submit($text{'dbase_rstr'}, 'restoredb');
		print "&nbsp;\n";
		}
	}

# Execute SQL form
print &ui_submit($text{'dbase_exec'}, 'exec');
print "&nbsp;\n";

print &ui_form_end();
$form++;
}