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
# run.cgi
# Run some command with the given parameters

require './custom-lib.pl';
$theme_no_table = 1;
if ($ENV{'CONTENT_TYPE'} =~ /multipart\/form-data/i) {
	&ReadParse(\%getin, "GET");
	&ReadParseMime(undef, \&read_parse_mime_callback, [ $getin{'id'} ]);
	}
else {
	&ReadParse();
	}
$| = 1;
&error_setup($text{'run_err'});
$cmd = &get_command($in{'id'}, $in{'idx'});
&can_run_command($cmd) || &error($text{'run_ecannot'});
if (&supports_users()) {
	$user = $cmd->{'user'} eq '*' ? $remote_user : $cmd->{'user'};
	@user_info = getpwnam($user);
	@user_info || &error(&text('run_ecmduser', $user));
	}
else {
	@user_info = ( "root", undef, 0, 0 );
	}

# substitute parameters into command
($env, $export, $str, $displaystr) = &set_parameter_envs(
					$cmd, $cmd->{'cmd'}, \@user_info);

# work out hosts
@hosts = @{$cmd->{'hosts'}};
@hosts = ( 0 ) if (!@hosts);
@servers = &list_servers();

# Run and display output
if ($cmd->{'format'} ne 'redirect' && $cmd->{'format'} ne 'form') {
	if ($cmd->{'format'}) {
		my ($f, $e) = $cmd->{'cmd'} =~ /([\p{L}\_\-\.0-9]+)\.(tar\..*?|[^.]*)$/;
		my $filename = $f || 'download';
		my $extension = $e || 'unknown';
		my $ctype = 'inline';
		if ($cmd->{'format'} =~ /^application/) {
			$ctype = 'attachment';
			}
		print "Content-Disposition: $ctype; filename=\"$filename.$extension\"\n";
		print "Content-type: ",$cmd->{'format'},"\n";
		print "\n";
		}
	else {
		&ui_print_unbuffered_header(
			&html_escape($cmd->{'desc'}), $text{'run_title'},
			"", -d "help" ? "run" : undef);
		}
	}

&remote_error_setup(\&remote_custom_handler);

foreach $h (@hosts) {
	($server) = grep { $_->{'id'} eq $h } @servers;
	next if (!$server);
	$txt = $cmd->{'noshow'} ? 'run_out2' : 'run_out';
	if (@{$cmd->{'hosts'}}) {
		$txt .= 'on';
		}
	if (!$cmd->{'format'}) {
		print &text($txt, "<tt>".&html_escape($displaystr)."</tt>",
		 $server->{'desc'} || "<tt>$server->{'host'}</tt>"),"\n";
		print "<pre>" if (!$cmd->{'raw'});
		}
	$remote_custom_error = undef;
	if ($h == 0) {
		# Run locally
		($got, $out, $timeout, $ex) = &execute_custom_command(
					$cmd, $env, $export, $str,
					$cmd->{'format'} ne 'redirect' &&
					$cmd->{'format'} ne 'form');
		}
	else {
		# Remote foreign call
		eval {
			$SIG{'ALRM'} = sub { die "timeout" };
			alarm($cmd->{'timeout'} ? $cmd->{'timeout'} + 5 : 60);
			&remote_foreign_require($server->{'host'}, "custom",
						"custom-lib.pl");
			&remote_foreign_call($server->{'host'}, "custom",
				 "set_parameter_envs", $cmd, $cmd->{'cmd'},
				 \@user_info, \%in, 1);
			($got, $out, $timeout, $ex) = &remote_foreign_call(
			 $server->{'host'}, "custom",
			 "execute_custom_command", $cmd, $env, $export, $str);
			};
		if ($@ =~ /timeout/) {
			$timeout = 1;
			}
		alarm(0);
		}
	if ($h == 0) {
		&additional_log('exec', undef, $displaystr);
		}
	if (!$remote_custom_error) {
		print $out if ($h != 0 && $cmd->{'format'} ne 'redirect' &&
					 $cmd->{'format'} ne 'form');
		if (!$got && !$cmd->{'format'}) {
			print "$text{'run_noout'}\n";
			}
		}

if (!$cmd->{'format'}) {
		print "</pre>\n" if (!$cmd->{'raw'});
		if ($remote_custom_error) {
			print "$remote_custom_error\n";
			}
		elsif ($timeout) {
			print "",&text('run_timeout',
					 $cmd->{'timeout'} || 60),"\n";
			}
		elsif ($ex) {
			print "",&text('run_failed', $ex),"\n";
			}
		}

# Only log non-upload inputs
	%cmdin = ( %$cmd );
	foreach $i (keys %in) {
		($arg) = grep { $_->{'name'} eq $i } @{$cmd->{'args'}};
		if ($arg->{'type'} != 10) {
			$cmdin{$i} = $in{$i};
			}
		}
	}
&webmin_log("exec", "command", $cmd->{'id'}, \%cmdin);
unlink(@unlink) if (@unlink);
if (!$cmd->{'format'}) {
	&ui_print_footer("", $text{'index_return'});
	}
elsif ($cmd->{'format'} eq 'redirect') {
	&redirect("");
	}
elsif ($cmd->{'format'} eq 'form') {
	&redirect("form.cgi?id=".$in{'id'}."&idx=".$in{'idx'});
	}

sub remote_custom_handler
{
$remote_custom_error = join("", @_);
}