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
ulang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	1.42 KB	-rw-r--r--	2026-07-19 16:26
backup_db.cgi	8.07 KB	-rwxr-xr-x	2026-07-19 16:28
backup_form.cgi	6.84 KB	-rwxr-xr-x	2026-07-19 16:28
config	522 B	-rw-r--r--	2026-07-19 16:26
config-AlmaLinux-7.0-ALL	418 B	-rw-r--r--	2026-07-19 16:26
config-Amazon-Linux-2-ALL	403 B	-rw-r--r--	2026-07-19 16:26
config-CentOS-Linux-7.0-ALL	418 B	-rw-r--r--	2026-07-19 16:26
config-CentOS-Stream-Linux-8.0-ALL	418 B	-rw-r--r--	2026-07-19 16:26
config-CloudLinux-8.0-ALL	418 B	-rw-r--r--	2026-07-19 16:26
config-Oracle-Linux-8.0-ALL	418 B	-rw-r--r--	2026-07-19 16:26
config-Redhat-Enterprise-Linux-7.0-ALL	418 B	-rw-r--r--	2026-07-19 16:26
config-Rocky-Linux-7.0-ALL	418 B	-rw-r--r--	2026-07-19 16:26
config-Scientific-Linux-7.0-ALL	403 B	-rw-r--r--	2026-07-19 16:26
config-Ubuntu-Linux-16.04-17.99	453 B	-rw-r--r--	2026-07-19 16:26
config-aix	479 B	-rw-r--r--	2026-07-19 16:26
config-cobalt-linux	417 B	-rw-r--r--	2026-07-19 16:26
config-coherent-linux	419 B	-rw-r--r--	2026-07-19 16:26
config-debian-linux	416 B	-rw-r--r--	2026-07-19 16:26
config-debian-linux-10.0-12.0	420 B	-rw-r--r--	2026-07-19 16:26
config-debian-linux-13.0-ALL	437 B	-rw-r--r--	2026-07-19 16:26
config-debian-linux-2.2-9.0	436 B	-rw-r--r--	2026-07-19 16:26
config-freebsd	479 B	-rw-r--r--	2026-07-19 16:26
config-freebsd-8-ALL	516 B	-rw-r--r--	2026-07-19 16:26
config-gentoo-linux	413 B	-rw-r--r--	2026-07-19 16:26
config-mandrake-linux	399 B	-rw-r--r--	2026-07-19 16:26
config-mandrake-linux-10.1-ALL	401 B	-rw-r--r--	2026-07-19 16:26
config-msc-linux	421 B	-rw-r--r--	2026-07-19 16:26
config-netbsd	431 B	-rw-r--r--	2026-07-19 16:26
config-open-linux	417 B	-rw-r--r--	2026-07-19 16:26
config-openSUSE-Linux-15.0-ALL	403 B	-rw-r--r--	2026-07-19 16:26
config-pardus-linux	346 B	-rw-r--r--	2026-07-19 16:26
config-qnx	333 B	-rw-r--r--	2026-07-19 16:26
config-redhat-linux	417 B	-rw-r--r--	2026-07-19 16:26
config-redhat-linux-24.0	421 B	-rw-r--r--	2026-07-19 16:26
config-redhat-linux-25.0-ALL	418 B	-rw-r--r--	2026-07-19 16:26
config-redhat-linux-7.0-23.0	419 B	-rw-r--r--	2026-07-19 16:26
config-slackware-linux-8.0-ALL	449 B	-rw-r--r--	2026-07-19 16:26
config-sol-linux	455 B	-rw-r--r--	2026-07-19 16:26
config-solaris-10	440 B	-rw-r--r--	2026-07-19 16:26
config-solaris-11-ALL	490 B	-rw-r--r--	2026-07-19 16:26
config-solaris-9	498 B	-rw-r--r--	2026-07-19 16:26
config-suse-linux	409 B	-rw-r--r--	2026-07-19 16:26
config-suse-linux-7.1-ALL	407 B	-rw-r--r--	2026-07-19 16:26
config-syno-linux	528 B	-rwxr-xr-x	2026-07-19 16:26
config-trustix-linux	407 B	-rw-r--r--	2026-07-19 16:26
config-turbo-linux	417 B	-rw-r--r--	2026-07-19 16:26
config-united-linux	407 B	-rw-r--r--	2026-07-19 16:26
config.info	589 B	-rw-r--r--	2026-07-19 16:26
config.info.ca	714 B	-rwxr-xr-x	2026-07-19 16:26
config.info.nl	664 B	-rwxr-xr-x	2026-07-19 16:26
config.info.no	635 B	-rw-r--r--	2026-07-19 16:26
create_table.cgi	1.02 KB	-rwxr-xr-x	2026-07-19 16:28
csv.cgi	2.26 KB	-rwxr-xr-x	2026-07-19 16:28
csv_form.cgi	1.67 KB	-rwxr-xr-x	2026-07-19 16:28
defaultuconfig	53 B	-rw-r--r--	2026-07-19 16:26
delete_fields.cgi	665 B	-rwxr-xr-x	2026-07-19 16:28
download.cgi	1.07 KB	-rwxr-xr-x	2026-07-19 16:28
drop_table.cgi	1.27 KB	-rwxr-xr-x	2026-07-19 16:28
drop_tables.cgi	1.75 KB	-rwxr-xr-x	2026-07-19 16:28
edit_dbase.cgi	6.91 KB	-rwxr-xr-x	2026-07-19 16:28
edit_field.cgi	4.99 KB	-rwxr-xr-x	2026-07-19 16:28
edit_index.cgi	1.83 KB	-rwxr-xr-x	2026-07-19 16:28
edit_table.cgi	2.85 KB	-rwxr-xr-x	2026-07-19 16:28
edit_view.cgi	2.17 KB	-rwxr-xr-x	2026-07-19 16:28
exec.cgi	7.59 KB	-rwxr-xr-x	2026-07-19 16:28
exec_file.cgi	3.01 KB	-rwxr-xr-x	2026-07-19 16:28
exec_form.cgi	3.88 KB	-rwxr-xr-x	2026-07-19 16:28
import.cgi	2.25 KB	-rwxr-xr-x	2026-07-19 16:28
index.cgi	2.85 KB	-rwxr-xr-x	2026-07-19 16:28
login.cgi	514 B	-rwxr-xr-x	2026-07-19 16:28
module.info	192 B	-rw-r--r--	2026-07-19 16:26
module.info.ar	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ar.auto	234 B	-rw-r--r--	2026-07-19 16:26
module.info.bg	0 B	-rw-r--r--	2026-07-19 16:26
module.info.bg.auto	222 B	-rw-r--r--	2026-07-19 16:26
module.info.ca	28 B	-rw-r--r--	2026-07-19 16:26
module.info.ca.auto	147 B	-rw-r--r--	2026-07-19 16:26
module.info.cs	24 B	-rw-r--r--	2026-07-19 16:26
module.info.cs.auto	129 B	-rw-r--r--	2026-07-19 16:26
module.info.da	0 B	-rw-r--r--	2026-07-19 16:26
module.info.da.auto	157 B	-rw-r--r--	2026-07-19 16:26
module.info.de	127 B	-rw-r--r--	2026-07-19 16:26
module.info.el	0 B	-rw-r--r--	2026-07-19 16:26
module.info.el.auto	277 B	-rw-r--r--	2026-07-19 16:26
module.info.es	0 B	-rw-r--r--	2026-07-19 16:26
module.info.es.auto	172 B	-rw-r--r--	2026-07-19 16:26
module.info.eu	0 B	-rw-r--r--	2026-07-19 16:26
module.info.eu.auto	160 B	-rw-r--r--	2026-07-19 16:26
module.info.fa	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fa.auto	200 B	-rw-r--r--	2026-07-19 16:26
module.info.fi	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fi.auto	170 B	-rw-r--r--	2026-07-19 16:26
module.info.fr	43 B	-rw-r--r--	2026-07-19 16:26
module.info.hr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.hr.auto	158 B	-rw-r--r--	2026-07-19 16:26
module.info.hu	35 B	-rw-r--r--	2026-07-19 16:26
module.info.hu.auto	153 B	-rw-r--r--	2026-07-19 16:26
module.info.it	0 B	-rw-r--r--	2026-07-19 16:26
module.info.it.auto	149 B	-rw-r--r--	2026-07-19 16:26
module.info.ja	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ja.auto	210 B	-rw-r--r--	2026-07-19 16:26
module.info.ko	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ko.auto	192 B	-rw-r--r--	2026-07-19 16:26
module.info.ms	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ms.auto	158 B	-rw-r--r--	2026-07-19 16:26
module.info.nl	30 B	-rw-r--r--	2026-07-19 16:26
module.info.no	23 B	-rw-r--r--	2026-07-19 16:26
module.info.no.auto	134 B	-rw-r--r--	2026-07-19 16:26
module.info.pl	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pl.auto	160 B	-rw-r--r--	2026-07-19 16:26
module.info.pt	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pt.auto	166 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR.auto	175 B	-rw-r--r--	2026-07-19 16:26
module.info.ru	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ru.auto	224 B	-rw-r--r--	2026-07-19 16:26
module.info.sk	0 B	-rw-r--r--	2026-07-19 16:26
module.info.sk.auto	155 B	-rw-r--r--	2026-07-19 16:26
module.info.sv	0 B	-rw-r--r--	2026-07-19 16:26
module.info.sv.auto	153 B	-rw-r--r--	2026-07-19 16:26
module.info.tr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.tr.auto	170 B	-rw-r--r--	2026-07-19 16:26
module.info.uk	0 B	-rw-r--r--	2026-07-19 16:26
module.info.uk.auto	228 B	-rw-r--r--	2026-07-19 16:26
module.info.zh	0 B	-rw-r--r--	2026-07-19 16:26
module.info.zh.auto	135 B	-rw-r--r--	2026-07-19 16:26
module.info.zh_TW	0 B	-rw-r--r--	2026-07-19 16:26
module.info.zh_TW.auto	144 B	-rw-r--r--	2026-07-19 16:26
mysql-lib.pl	62.1 KB	-rwxr-xr-x	2026-07-19 16:26
save_field.cgi	4.72 KB	-rwxr-xr-x	2026-07-19 16:28
save_index.cgi	1.39 KB	-rwxr-xr-x	2026-07-19 16:28
save_view.cgi	1.84 KB	-rwxr-xr-x	2026-07-19 16:28
search_form.cgi	1.38 KB	-rwxr-xr-x	2026-07-19 16:28
table_form.cgi	1.95 KB	-rwxr-xr-x	2026-07-19 16:28
uconfig.info	373 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.ca	114 B	-rwxr-xr-x	2026-07-19 16:26
uconfig.info.cs	432 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.de	432 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.nl	413 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.no	388 B	-rw-r--r--	2026-07-19 16:26
view-lib.pl	3.56 KB	-rwxr-xr-x	2026-07-19 16:26
view_table.cgi	15.16 KB	-rwxr-xr-x	2026-07-19 16:28

Rename

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

require './mysql-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-DB mode
	&ui_print_header($desc, $text{'dbase_title'}, "", "edit_dbase", 1, 1);
	$single = 1;
	}
else {
	&ui_print_header($desc, $text{'dbase_title'}, "", "edit_dbase");
	}
@titles = &list_tables($in{'db'});
if ($access{'indexes'}) {
	@indexes = &list_indexes($in{'db'});
	}
if (&supports_views() && $access{'views'}) {
	@views = &list_views($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;
	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 > $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();
		}
	print "\n";
	}
elsif (@titles || @indexes) {
	@icons = ( ( map { "images/table.gif" } @titles ),
		 ( map { "images/index.gif" } @indexes ),
		 ( map { "images/view.gif" } @views ),
		 );
	@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 ),
		 );
	@descs = ( ( map { "" } @titles ),
		 ( map { " ($text{'dbase_index'})" } @indexes),
		 ( map { " ($text{'dbase_view'})" } @views),
		 );
	#&show_buttons();
	print &ui_form_start("drop_tables.cgi");
	print &ui_hidden("db", $in{'db'});
	@rowlinks = ( &select_all_link("d", $form),
		 &select_invert_link("d", $form) );
	print &ui_links_row(\@rowlinks);
	@checks = ( ( @titles ),
		 ( map { "!".$_ } @indexes ),
		 ( map { "*".$_ } @views ),
		 );
	if ($displayconfig{'style'} == 1) {
		# Show table names, fields and row counts
		my $all_tables_size = &get_all_tables_size($in{'db'});
		foreach $t (@titles) {
			local $c = &execute_sql($in{'db'},
					"show create table ".quotestr($t));
			push(@types, &text('dbase_typetable',
				$c->{'data'}->[0]->[1] =~ /ENGINE=(\S+)/i ?
				 "$1" : "Unknown"));
			local $c = &execute_sql($in{'db'},
					"select count(*) from ".quotestr($t));
			push(@rows, $c->{'data'}->[0]->[0]);
			local @str = &table_structure($in{'db'}, $t);
			push(@fields, scalar(@str));
			my $table_size = &get_table_size($all_tables_size, $t);
			push(@sizes, &nice_size($table_size));
			}
		my $table_index_stats = &get_table_index_stats($in{'db'});
		foreach $t (@indexes) {
			push(@types, $text{'dbase_typeindex'});
			$str = &parse_index_structure($table_index_stats,
						 $in{'db'}, $t);
			push(@rows, "$text{'dbase_index'}");
			push(@fields, scalar(@{$str->{'cols'}}));
			}
		foreach $v (@views) {
			push(@types, $text{'dbase_typeview'});
			push(@rows, undef);
			push(@fields, undef);
			}
		@dtitles = map { &html_escape($_) }
			 ( @titles, @indexes, @views );
		&split_table([ "", $text{'dbase_name'}, $text{'dbase_type'},
			 $text{'dbase_rows'}, $text{'dbase_cols'},
				 $text{'dbase_size'} ],
			 \@checks, \@links, \@dtitles, \@types,
			 \@rows, \@fields, \@sizes) if (@titles);
		}
	elsif ($displayconfig{'style'} == 2) {
		# Just show table names
		@grid = ( );
		@all = ( @titles, @indexes, @views );
		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 table icons
		@checks = map { &ui_checkbox("d", $_) } @checks;
		@titles = map { &html_escape($_) } ( @titles, @indexes, @views);
		&icons_table(\@links, \@titles, \@icons, 5, undef, undef, undef,
			 \@checks);
		}
	print &ui_links_row(\@rowlinks);
	if (!$access{'edonly'}) {
		print &ui_form_end([ [ "delete", @indexes ? $text{'dbase_delete2'} : $text{'dbase_delete'} ] ]);
		}
	else {
		print &ui_form_end();
		}
	}
else {
	if ($in{'search'}) {
		print "$text{'dbase_none2'} \n";
		}
	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'});
	}

sub show_buttons
{
if (!$access{'edonly'}) {
	print &ui_form_start("table_form.cgi");
	print &ui_hidden("db", $in{'db'});

# 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_addview'}, 'addview');
		print "&nbsp;\n";
		}

# Delete this database
	if ($access{'delete'}) {
		print &ui_submit($text{'dbase_drop'}, 'dropdb');
		print "&nbsp;\n";
		}
	elsif (@titles) {
		print &ui_submit($text{'dbase_empty'}, 'dropdb');
		print "&nbsp;\n";
		}

# Open backup form
	if ($access{'buser'}) {
		print &ui_submit($text{'dbase_backup'}, 'backupdb');
		print "&nbsp;\n";
		}

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

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

sub get_table_size
{
my ($tables_data, $table_name) = @_;
foreach my $row (@{$tables_data->{'data'}}) {
	return $row->[3] if $row->[1] eq $table_name;
	}
return undef;
}