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	2.9 KB	-rw-r--r--	2026-07-17 21:17
acl_security.pl	1.03 KB	-rwxr-xr-x	2026-07-17 21:17
backup_config.pl	683 B	-rwxr-xr-x	2026-07-17 21:17
cgi_args.pl	1.14 KB	-rwxr-xr-x	2026-07-17 21:17
config	42 B	-rw-r--r--	2026-07-17 21:17
config-ALL-linux	42 B	-rw-r--r--	2026-07-17 21:17
config.info	490 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	500 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	326 B	-rw-r--r--	2026-07-17 21:17
config.info.de	575 B	-rw-r--r--	2026-07-17 21:17
config.info.es	338 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	669 B	-rw-r--r--	2026-07-17 21:17
config.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
config.info.it	448 B	-rw-r--r--	2026-07-17 21:17
config.info.ko	266 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	534 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	580 B	-rw-r--r--	2026-07-17 21:17
config.info.no	548 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	612 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	158 B	-rw-r--r--	2026-07-17 21:17
config.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	269 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	165 B	-rw-r--r--	2026-07-17 21:17
custom-lib.pl	16.72 KB	-rwxr-xr-x	2026-07-17 21:17
defaultacl	25 B	-rw-r--r--	2026-07-17 21:17
edit_cmd.cgi	3.69 KB	-rwxr-xr-x	2026-07-17 21:22
edit_file.cgi	2.67 KB	-rwxr-xr-x	2026-07-17 21:22
edit_sql.cgi	2.64 KB	-rwxr-xr-x	2026-07-17 21:22
feedback_files.pl	208 B	-rwxr-xr-x	2026-07-17 21:17
form.cgi	1.29 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	4.14 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	553 B	-rwxr-xr-x	2026-07-17 21:17
module.info	165 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	200 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	297 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	130 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	22 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	33 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	145 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	158 B	-rw-r--r--	2026-07-17 21:17
module.info.de	149 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	26 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	299 B	-rw-r--r--	2026-07-17 21:17
module.info.es	32 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	116 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	147 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	223 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	170 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	34 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	142 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	169 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	26 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	151 B	-rw-r--r--	2026-07-17 21:17
module.info.it	31 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	112 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	34 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	163 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	32 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	154 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	136 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	15 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	25 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	123 B	-rw-r--r--	2026-07-17 21:17
module.info.no	33 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	120 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	139 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	16 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	32 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	129 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	170 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	48 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	253 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	33 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	136 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	23 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	119 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	23 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	140 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	285 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	30 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	91 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	27 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	97 B	-rw-r--r--	2026-07-17 21:17
prefs.info	26 B	-rw-r--r--	2026-07-17 21:17
run.cgi	3.89 KB	-rwxr-xr-x	2026-07-17 21:22
safeacl	14 B	-rw-r--r--	2026-07-17 21:17
save.cgi	1.5 KB	-rwxr-xr-x	2026-07-17 21:22
save_cmd.cgi	2.44 KB	-rwxr-xr-x	2026-07-17 21:22
save_file.cgi	1.79 KB	-rwxr-xr-x	2026-07-17 21:22
save_sql.cgi	1.53 KB	-rwxr-xr-x	2026-07-17 21:22
sql.cgi	1.5 KB	-rwxr-xr-x	2026-07-17 21:22
sqlform.cgi	962 B	-rwxr-xr-x	2026-07-17 21:22
view.cgi	1.43 KB	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# index.cgi
# Display commands available for execution

require './custom-lib.pl';
&ui_print_header(undef, $module_info{'desc'}, "", "intro", 1, 1);

@cust = grep { &can_run_command($_) } &list_commands();
@cust = &sort_commands(@cust);

# Build links
@links = ( );
if ($access{'edit'}) {
	push(@links,&ui_link("edit_cmd.cgi?new=1",$text{'index_create'}));
	push(@links,&ui_link("edit_file.cgi?new=1",$text{'index_ecreate'}));
	push(@links,&ui_link("edit_sql.cgi?new=1",$text{'index_screate'}));
	}

if (!@cust) {
	print "<b>$text{'index_none'}</b> <p>\n";
	}
elsif ($config{'display_mode'} == 0) {
	# Show command buttons
	print &ui_links_row(\@links);
	@grid = ( );
	$form = 0;
	for($i=0; $i<@cust; $i++) {
		$c = $cust[$i];
		@a = @{$c->{'args'}};
		local $html;
		if ($c->{'edit'}) {
			$html .= &ui_form_start("view.cgi");
			}
		elsif ($c->{'sql'}) {
			$html .= &ui_form_start("sql.cgi");
			}
		else {
			local @up = grep { $_->{'type'} == 10 } @a;
			if (@up) {
				# Has upload fields
				@ufn = map { $_->{'name'} } @up;
				$upid = time().$$;
				$html .= &ui_form_start("run.cgi?id=$upid",
				  "form-data", undef,
				  &read_parse_mime_javascript($upid, \@ufn));
				}
			elsif (@a) {
				$html .= &ui_form_start("run.cgi", "post");
				}
			else {
				$html .= &ui_form_start("run.cgi");
				}
			}
		$html .= &ui_hidden("id", $c->{'id'});
		$html .= &ui_table_start(undef, undef, 2, [ "width=30%" ]);
		($got_submit) = grep { $_->{'type'} == 16 } @a;
		if (!$got_submit) {
			$html .= &ui_table_row(undef,
					&ui_submit($c->{'desc'}), 2, []);
			}
		if ($c->{'html'}) {
			$html .= &ui_table_row(undef,
				&filter_javascript($c->{'html'}), 2, []);
			}
		foreach $a (@a) {
			$html .= &ui_table_row(&html_escape($a->{'desc'}),
					&show_parameter_input($a, $formno));
			}
		if ($access{'edit'}) {
			if ($c->{'edit'}) {
				$link = &ui_link("edit_file.cgi?id=$c->{'id'}",$text{'index_fedit'});
				}
			elsif ($c->{'sql'}) {
				$link = &ui_link("edit_sql.cgi?id=$c->{'id'}",$text{'index_sedit'});
				}
			else {
				$link = &ui_link("edit_cmd.cgi?id=$c->{'id'}",$text{'index_edit'});
				}
			$link = &ui_links_row([ $link ]);
			}
		$html .= &ui_table_row(undef, $link, 2);
		$html .= &ui_table_end();
		$html .= &ui_form_end();
		push(@grid, $html);
		$form++;
		}
	print &ui_grid_table(\@grid, 2, 100, [ "width=50%", "width=50%" ]);
	}
else {
	# Just show table of commands
	print &ui_links_row(\@links);
	@tds = ( "width=30%", "width=60%", "width=10% nowrap" );
	print &ui_columns_start([
		$text{'index_cmd'},
		$text{'index_desc'},
		$text{'index_acts'},
		], 100, 0, \@tds);
	foreach $c (@cust) {
		@cols = ( );
		local @links = ( );
		if ($access{'edit'}) {
			local $e = $c->{'edit'} ? "edit_file.cgi" :
				   $c->{'sql'} ? "edit_sql.cgi" :
						 "edit_cmd.cgi";
			push(@links, "<a href='$e?id=$c->{'id'}'>".
				     "$text{'index_ed'}</a>");
			}
		if ($c->{'edit'} && !@{$c->{'args'}}) {
			# Open file editor directly, as file is known
			push(@cols, &ui_link("view.cgi?id=$c->{'id'}",&html_escape($c->{'desc'})));
			push(@links, &ui_link("view.cgi?id=$c->{'id'}",$text{'index_acted'}));
			}
		elsif ($c->{'sql'} && !@{$c->{'args'}}) {
			# Execute SQL directorly, as no args
			push(@cols, &ui_link("sql.cgi?id=$c->{'id'}",&html_escape($c->{'desc'})));
			push(@links, &ui_link("sql.cgi?id=$c->{'id'}",$text{'index_actrun'}));
			}
		elsif ($c->{'sql'}) {
			# Link to SQL query form
			push(@cols, &ui_link("sqlform.cgi?id=$c->{'id'}",&html_escape($c->{'desc'})));
			push(@links, &ui_link("sqlform.cgi?id=$c->{'id'}",$text{'index_actsql'}));
			}
		elsif (!@{$c->{'args'}}) {
			# Link direct to execute page
			push(@cols, &ui_link("run.cgi?id=$c->{'id'}",&html_escape($c->{'desc'})));
			push(@links, &ui_link("run.cgi?id=$c->{'id'}",$text{'index_actrun'}));
			}
		else {
			# Link to parameters form
			push(@cols, &ui_link("form.cgi?id=$c->{'id'}",&html_escape($c->{'desc'})));
			push(@links, &ui_link("form.cgi?id=$c->{'id'}",$text{'index_actform'}));
			}
		push(@cols, $c->{'html'});
		push(@cols, &ui_links_row(\@links));
		print &ui_columns_row(\@cols, \@tds);
		}
	print &ui_columns_end();
	}
print &ui_links_row(\@links);

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