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
CHANGELOG	8.2 KB	-rw-r--r--	2026-07-17 21:17
acl_security.pl	2.55 KB	-rwxr-xr-x	2026-07-17 21:17
backup.pl	4.17 KB	-rwxr-xr-x	2026-07-17 21:22
backup_config.pl	1.01 KB	-rwxr-xr-x	2026-07-17 21:17
backup_db.cgi	8.07 KB	-rwxr-xr-x	2026-07-17 21:22
backup_form.cgi	6.84 KB	-rwxr-xr-x	2026-07-17 21:22
cgi_args.pl	577 B	-rwxr-xr-x	2026-07-17 21:17
config	522 B	-rw-r--r--	2026-07-17 21:17
config-AlmaLinux-7.0-ALL	418 B	-rw-r--r--	2026-07-17 21:17
config-Amazon-Linux-2-ALL	403 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Linux-7.0-ALL	418 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Stream-Linux-8.0-ALL	418 B	-rw-r--r--	2026-07-17 21:17
config-CloudLinux-8.0-ALL	418 B	-rw-r--r--	2026-07-17 21:17
config-Oracle-Linux-8.0-ALL	418 B	-rw-r--r--	2026-07-17 21:17
config-Redhat-Enterprise-Linux-7.0-ALL	418 B	-rw-r--r--	2026-07-17 21:17
config-Rocky-Linux-7.0-ALL	418 B	-rw-r--r--	2026-07-17 21:17
config-Scientific-Linux-7.0-ALL	403 B	-rw-r--r--	2026-07-17 21:17
config-Ubuntu-Linux-16.04-17.99	453 B	-rw-r--r--	2026-07-17 21:17
config-Ubuntu-Linux-18.04-25.99	420 B	-rw-r--r--	2026-07-17 21:17
config-Ubuntu-Linux-26.04-ALL	438 B	-rw-r--r--	2026-07-17 21:17
config-aix	479 B	-rw-r--r--	2026-07-17 21:17
config-alpine-linux	469 B	-rw-r--r--	2026-07-17 21:17
config-cobalt-linux	417 B	-rw-r--r--	2026-07-17 21:17
config-coherent-linux	419 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-12.0	420 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-13.0-ALL	437 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-2.2-9.0	436 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	479 B	-rw-r--r--	2026-07-17 21:17
config-freebsd-8-ALL	516 B	-rw-r--r--	2026-07-17 21:17
config-gentoo-linux	413 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux	399 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux-10.1-ALL	401 B	-rw-r--r--	2026-07-17 21:17
config-msc-linux	421 B	-rw-r--r--	2026-07-17 21:17
config-netbsd	431 B	-rw-r--r--	2026-07-17 21:17
config-open-linux	417 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-ALL	403 B	-rw-r--r--	2026-07-17 21:17
config-openmamba-linux	417 B	-rw-r--r--	2026-07-17 21:17
config-pardus-linux	346 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux	417 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-24.0	421 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-25.0-ALL	418 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-7.0-23.0	419 B	-rw-r--r--	2026-07-17 21:17
config-slackware-linux-8.0-ALL	449 B	-rw-r--r--	2026-07-17 21:17
config-sol-linux	455 B	-rw-r--r--	2026-07-17 21:17
config-solaris-10	440 B	-rw-r--r--	2026-07-17 21:17
config-solaris-11-ALL	490 B	-rw-r--r--	2026-07-17 21:17
config-solaris-9	498 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux	409 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux-7.1-ALL	407 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	528 B	-rwxr-xr-x	2026-07-17 21:17
config-trustix-linux	407 B	-rw-r--r--	2026-07-17 21:17
config-turbo-linux	417 B	-rw-r--r--	2026-07-17 21:17
config-united-linux	407 B	-rw-r--r--	2026-07-17 21:17
config-windows	568 B	-rw-r--r--	2026-07-17 21:17
config.info	1.64 KB	-rw-r--r--	2026-07-17 21:17
config.info.bg	2.74 KB	-rw-r--r--	2026-07-17 21:17
config.info.ca	1.7 KB	-rw-r--r--	2026-07-17 21:17
config.info.cs	1.46 KB	-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	813 B	-rw-r--r--	2026-07-17 21:17
config.info.fi	0 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.hu	1.32 KB	-rw-r--r--	2026-07-17 21:17
config.info.it	1.54 KB	-rw-r--r--	2026-07-17 21:17
config.info.ja	1.7 KB	-rw-r--r--	2026-07-17 21:17
config.info.nl	1.67 KB	-rw-r--r--	2026-07-17 21:17
config.info.no	1.54 KB	-rw-r--r--	2026-07-17 21:17
config.info.pl	808 B	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	1.68 KB	-rw-r--r--	2026-07-17 21:17
config.info.ru	1.27 KB	-rw-r--r--	2026-07-17 21:17
config.info.sv	677 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	1.13 KB	-rw-r--r--	2026-07-17 21:17
config.info.uk	1.31 KB	-rw-r--r--	2026-07-17 21:17
config.info.zh	320 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	891 B	-rw-r--r--	2026-07-17 21:17
config_info.pl	575 B	-rwxr-xr-x	2026-07-17 21:17
cpan_modules.pl	131 B	-rwxr-xr-x	2026-07-17 21:17
create_table.cgi	1.02 KB	-rwxr-xr-x	2026-07-17 21:22
csv.cgi	2.26 KB	-rwxr-xr-x	2026-07-17 21:22
csv_form.cgi	1.67 KB	-rwxr-xr-x	2026-07-17 21:22
defaultacl	85 B	-rw-r--r--	2026-07-17 21:17
delete_cprivs.cgi	1.15 KB	-rwxr-xr-x	2026-07-17 21:22
delete_dbs.cgi	1.04 KB	-rwxr-xr-x	2026-07-17 21:22
delete_fields.cgi	665 B	-rwxr-xr-x	2026-07-17 21:22
delete_hosts.cgi	1018 B	-rwxr-xr-x	2026-07-17 21:22
delete_tprivs.cgi	1.1 KB	-rwxr-xr-x	2026-07-17 21:22
delete_users.cgi	941 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.86 KB	-rwxr-xr-x	2026-07-17 21:22
drop_dbases.cgi	1.39 KB	-rwxr-xr-x	2026-07-17 21:22
drop_table.cgi	1.27 KB	-rwxr-xr-x	2026-07-17 21:22
drop_tables.cgi	1.75 KB	-rwxr-xr-x	2026-07-17 21:22
edit_cnf.cgi	3.77 KB	-rwxr-xr-x	2026-07-17 21:22
edit_cpriv.cgi	2.34 KB	-rwxr-xr-x	2026-07-17 21:22
edit_db.cgi	2.09 KB	-rwxr-xr-x	2026-07-17 21:22
edit_dbase.cgi	6.91 KB	-rwxr-xr-x	2026-07-17 21:22
edit_field.cgi	4.99 KB	-rwxr-xr-x	2026-07-17 21:22
edit_host.cgi	1.48 KB	-rwxr-xr-x	2026-07-17 21:22
edit_index.cgi	1.83 KB	-rwxr-xr-x	2026-07-17 21:22
edit_manual.cgi	952 B	-rwxr-xr-x	2026-07-17 21:22
edit_ssl.cgi	1.66 KB	-rwxr-xr-x	2026-07-17 21:22
edit_table.cgi	2.85 KB	-rwxr-xr-x	2026-07-17 21:22
edit_tpriv.cgi	2.21 KB	-rwxr-xr-x	2026-07-17 21:22
edit_user.cgi	5.28 KB	-rwxr-xr-x	2026-07-17 21:22
edit_view.cgi	2.17 KB	-rwxr-xr-x	2026-07-17 21:22
exec.cgi	7.59 KB	-rwxr-xr-x	2026-07-17 21:22
exec_file.cgi	3.01 KB	-rwxr-xr-x	2026-07-17 21:22
exec_form.cgi	3.88 KB	-rwxr-xr-x	2026-07-17 21:22
import.cgi	2.25 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	11.31 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	549 B	-rwxr-xr-x	2026-07-17 21:17
kill_procs.cgi	385 B	-rwxr-xr-x	2026-07-17 21:22
list_cprivs.cgi	2.21 KB	-rwxr-xr-x	2026-07-17 21:22
list_dbs.cgi	2.15 KB	-rwxr-xr-x	2026-07-17 21:22
list_hosts.cgi	1.76 KB	-rwxr-xr-x	2026-07-17 21:22
list_procs.cgi	1.42 KB	-rwxr-xr-x	2026-07-17 21:22
list_tprivs.cgi	2.03 KB	-rwxr-xr-x	2026-07-17 21:22
list_users.cgi	2.78 KB	-rwxr-xr-x	2026-07-17 21:22
list_vars.cgi	2.12 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	3.32 KB	-rwxr-xr-x	2026-07-17 21:17
login.cgi	819 B	-rwxr-xr-x	2026-07-17 21:22
module.info	190 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	211 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	215 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	127 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	14 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	34 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	103 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	127 B	-rw-r--r--	2026-07-17 21:17
module.info.de	127 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	14 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	226 B	-rw-r--r--	2026-07-17 21:17
module.info.es	40 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	110 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	134 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	198 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	140 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	43 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	138 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	153 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	35 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	113 B	-rw-r--r--	2026-07-17 21:17
module.info.it	33 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	102 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	43 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	128 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	40 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	128 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	142 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	14 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	30 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	98 B	-rw-r--r--	2026-07-17 21:17
module.info.no	29 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	98 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	140 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	103 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	40 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	116 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	166 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	47 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	165 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	141 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	28 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	104 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	35 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	110 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	210 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	33 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	92 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	36 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	98 B	-rw-r--r--	2026-07-17 21:17
mysql-lib.pl	62.1 KB	-rwxr-xr-x	2026-07-17 21:17
newdb.cgi	1.07 KB	-rwxr-xr-x	2026-07-17 21:22
newdb_form.cgi	1.45 KB	-rwxr-xr-x	2026-07-17 21:22
postinstall.pl	211 B	-rw-r--r--	2026-07-17 21:17
prefs.info	69 B	-rw-r--r--	2026-07-17 21:17
restart.cgi	258 B	-rwxr-xr-x	2026-07-17 21:22
root_form.cgi	1.03 KB	-rwxr-xr-x	2026-07-17 21:22
save_cnf.cgi	3.59 KB	-rwxr-xr-x	2026-07-17 21:22
save_cpriv.cgi	2.67 KB	-rwxr-xr-x	2026-07-17 21:22
save_db.cgi	2.68 KB	-rwxr-xr-x	2026-07-17 21:22
save_field.cgi	4.72 KB	-rwxr-xr-x	2026-07-17 21:22
save_host.cgi	2.35 KB	-rwxr-xr-x	2026-07-17 21:22
save_index.cgi	1.39 KB	-rwxr-xr-x	2026-07-17 21:22
save_manual.cgi	526 B	-rwxr-xr-x	2026-07-17 21:22
save_root.cgi	1.04 KB	-rwxr-xr-x	2026-07-17 21:22
save_ssl.cgi	2.1 KB	-rwxr-xr-x	2026-07-17 21:22
save_sync.cgi	454 B	-rwxr-xr-x	2026-07-17 21:22
save_tpriv.cgi	2.6 KB	-rwxr-xr-x	2026-07-17 21:22
save_user.cgi	5.1 KB	-rwxr-xr-x	2026-07-17 21:22
save_vars.cgi	775 B	-rwxr-xr-x	2026-07-17 21:22
save_view.cgi	1.84 KB	-rwxr-xr-x	2026-07-17 21:22
search_form.cgi	1.38 KB	-rwxr-xr-x	2026-07-17 21:22
start.cgi	218 B	-rwxr-xr-x	2026-07-17 21:22
stop.cgi	203 B	-rwxr-xr-x	2026-07-17 21:22
syslog_logs.pl	1.61 KB	-rwxr-xr-x	2026-07-17 21:17
table_form.cgi	1.95 KB	-rwxr-xr-x	2026-07-17 21:22
useradmin_update.pl	2.6 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
# save_field.cgi
# Create, modify or delete a field

require './mysql-lib.pl';
&ReadParse();
&can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'});
$access{'edonly'} && &error($text{'dbase_ecannot'});
&error_setup($text{'field_err'});

# Build default clause
if ($in{'default_def'} == 0) {
	if ($in{'type'} eq 'timestamp') {
		# Default is already null
		$default = "";
		}
	else {
		$default = "default NULL";
		}
	}
elsif ($in{'default_def'} == 2) {
	$default = "default CURRENT_TIMESTAMP";
	}
elsif ($in{'default_def'} == 3) {
	$default = $in{'new'} ? "" : "default ''";
	}
else {
	$default = "default '$in{'default'}'";
	}

if ($in{'delete'}) {
	# delete this field
	&execute_sql_logged($in{'db'},
		    "alter table ".&quotestr($in{'table'})." drop ".
		    &quotestr($in{'old'}));
	&webmin_log("delete", "field", $in{'old'}, \%in);
	}
elsif ($in{'new'}) {
	# add a new field
	$in{'field'} =~ /^\S+$/ || &error(&text('field_efield', $in{'field'}));
	$in{'null'} && $in{'key'} && &error($text{'field_ekey'});
	$in{'size'} = $size = &validate_size();
	$sql = sprintf "alter table %s add %s %s%s %s %s %s",
		&quotestr($in{'table'}), &quotestr($in{'field'}), $in{'type'},
		$size, $in{'null'} ? 'null' : 'not null',
		$default,
		$in{'ext'};
	&execute_sql_logged($in{'db'}, $sql);
	&webmin_log("create", "field", $in{'field'}, \%in);
	}
else {
	# modify an existing field
	$in{'field'} =~ /^\S+$/ || &error(&text('field_efield', $in{'field'}));
	$in{'null'} && $in{'key'} && &error($text{'field_ekey'});
	$in{'size'} = $size = &validate_size();
	$sql = sprintf "alter table %s modify %s %s%s %s %s %s",
			&quotestr($in{'table'}), &quotestr($in{'old'}),
			$in{'type'}, $size, $in{'null'} ? 'null' : 'not null',
			$default,
			$in{'ext'};
	&execute_sql_logged($in{'db'}, $sql);
	if ($in{'old'} ne $in{'field'} ||
	    $in{'type'} ne $in{'newtype'} ||
	    $in{'oldopts'} ne $in{'opts'}) {
		# Rename or retype field as well
		if ($in{'type'} ne $in{'newtype'} ||
		    $in{'oldopts'} ne $in{'opts'}) {
			# Type has changed .. fix size
			if ($in{'newtype'} eq 'enum' ||
			    $in{'newtype'} eq 'set') {
				# Convert old size to enum values
				if ($in{'type'} ne 'enum' &&
				    $in{'type'} ne 'set') {
					$size = $size =~ /^$(.*)$/ ?
					    '('.join(",", map { "'$_'" }
						 split(/\n/, $1)).')' : "('')";
					}
				}
			elsif ($in{'newtype'} eq 'float' ||
			       $in{'newtype'} eq 'double' ||
			       $in{'newtype'} eq 'decimal') {
				# Use old sizes or size and opts
				$size = $size =~ /^$(\d+),(\d+)$/ ? $size :
				  $size =~ /^$(\d+)$(.*)/ ? "($1,$1)$2" : "";
				}
			elsif ($in{'newtype'} eq 'date' ||
			       $in{'newtype'} eq 'datetime' ||
			       $in{'newtype'} eq 'time' ||
			       $in{'newtype'} =~ /(blob|text)$/) {
				# New type has no size or opts
				$size = "";
				}
			else {
				# Use old size and opts
				$size = $size =~ /^\((\d+)/ ?
					"($1) $in{'opts'}" :
					$in{'newtype'} =~ /char$/ ?
					    "(255) $in{'opts'}" : $in{'opts'};
				}
			}
		$sql = sprintf "alter table %s change %s %s %s%s %s",
				&quotestr($in{'table'}), &quotestr($in{'old'}),
				&quotestr($in{'field'}), $in{'newtype'}, $size,
				$in{'null'} ? '' : 'not null';
		&execute_sql_logged($in{'db'}, $sql);
		}
	&webmin_log("modify", "field", $in{'field'}, \%in);
	}

if ($in{'key'} != $in{'oldkey'}) {
	# Adding or removing a primary key to the table
	foreach $d (&table_structure($in{'db'}, $in{'table'})) {
		push(@pri, $d->{'field'}) if ($d->{'key'} eq 'PRI');
		}
	if ($in{'key'}) {
		@npri = ( @pri, $in{'field'} );
		}
	else {
		@npri = grep { $_ ne $in{'field'} } @pri;
		}
	&execute_sql_logged($in{'db'},
		    "alter table ".&quotestr($in{'table'})." drop primary key")
		if (@pri);
	&execute_sql_logged($in{'db'},
		    "alter table ".&quotestr($in{'table'})." add primary key (".
		    join(",", map { &quotestr($_) } @npri).")") if (@npri);
	}
&redirect("edit_table.cgi?db=$in{'db'}&table=".&urlize($in{'table'}));

sub validate_size
{
if ($in{'type'} eq 'enum' || $in{'type'} eq 'set') {
	$in{'size'} || &error($text{'field_eenum'});
	$in{'size'} =~ s/\r//g;
	return '('.join(",", map { "'$_'" } split(/\n/, $in{'size'})).')';
	}
elsif ($in{'type'} eq 'float' || $in{'type'} eq 'double' ||
       $in{'type'} eq 'decimal') {
	$in{'size1'} =~ /^\d+$/ || &error(&text('field_esize', $in{'size1'}));
	$in{'size2'} =~ /^\d+$/ || &error(&text('field_esize', $in{'size2'}));
	return "($in{'size1'},$in{'size2'}) $in{'opts'}";
	}
elsif ($in{'type'} eq 'date' || $in{'type'} eq 'datetime' ||
       $in{'type'} eq 'time' || $in{'type'} eq 'timestamp' ||
       $in{'type'} =~ /(blob|text)$/) {
	return "";
	}
elsif ($in{'size_def'}) {
	return "";
	}
else {
	$in{'size'} =~ /^\d+$/ || &error(&text('field_esize', $in{'size'}));
	return "($in{'size'}) $in{'opts'}";
	}
}