FM / commands

/usr/share/usermin/commands

Name	Size	Mode	Actions
images/	-	0755	rm
lang/	-	0755	rm
ulang/	-	0755	rm
CHANGELOG	451	0644	edit dl rm
config	97	0644	edit dl rm
config-ALL-linux	97	0644	edit dl rm
config.info	732	0644	edit dl rm
config.info.ca	914	0755	edit dl rm
config.info.de	386	0644	edit dl rm
config.info.nl	536	0755	edit dl rm
custom-lib.pl	17112	0755	edit dl rm
form.cgi	1318	0755	edit dl rm
index.cgi	4363	0755	edit dl rm
module.info	192	0644	edit dl rm
module.info.ar	0	0644	edit dl rm
module.info.ar.auto	217	0644	edit dl rm
module.info.bg	0	0644	edit dl rm
module.info.bg.auto	284	0644	edit dl rm
module.info.ca	31	0644	edit dl rm
module.info.ca.auto	150	0644	edit dl rm
module.info.cs	32	0644	edit dl rm
module.info.cs.auto	144	0644	edit dl rm
module.info.da	0	0644	edit dl rm
module.info.da.auto	175	0644	edit dl rm
module.info.de	102	0644	edit dl rm
module.info.de.auto	26	0644	edit dl rm
module.info.el	0	0644	edit dl rm
module.info.el.auto	309	0644	edit dl rm
module.info.es	28	0644	edit dl rm
module.info.es.auto	149	0644	edit dl rm
module.info.eu	0	0644	edit dl rm
module.info.eu.auto	180	0644	edit dl rm
module.info.fa	0	0644	edit dl rm
module.info.fa.auto	235	0644	edit dl rm
module.info.fi	0	0644	edit dl rm
module.info.fi.auto	164	0644	edit dl rm
module.info.fr	34	0644	edit dl rm
module.info.fr.auto	155	0644	edit dl rm
module.info.hr	0	0644	edit dl rm
module.info.hr.auto	164	0644	edit dl rm
module.info.hu	25	0644	edit dl rm
module.info.hu.auto	151	0644	edit dl rm
module.info.it	0	0644	edit dl rm
module.info.it.auto	171	0644	edit dl rm
module.info.ja	34	0644	edit dl rm
module.info.ja.auto	155	0644	edit dl rm
module.info.ko	32	0644	edit dl rm
module.info.ko.auto	136	0644	edit dl rm
module.info.ms	0	0644	edit dl rm
module.info.ms.auto	165	0644	edit dl rm
module.info.nl	25	0644	edit dl rm
module.info.nl.auto	155	0644	edit dl rm
module.info.no	33	0644	edit dl rm
module.info.no.auto	133	0644	edit dl rm
module.info.pl	150	0644	edit dl rm
module.info.pl.auto	139	0644	edit dl rm
module.info.pt	32	0644	edit dl rm
module.info.pt.auto	146	0644	edit dl rm
module.info.pt_BR	0	0644	edit dl rm
module.info.pt_BR.auto	187	0644	edit dl rm
module.info.ru	48	0644	edit dl rm
module.info.ru.auto	263	0644	edit dl rm
module.info.sk	0	0644	edit dl rm
module.info.sk.auto	173	0644	edit dl rm
module.info.sv	23	0644	edit dl rm
module.info.sv.auto	142	0644	edit dl rm
module.info.tr	23	0644	edit dl rm
module.info.tr.auto	145	0644	edit dl rm
module.info.uk	0	0644	edit dl rm
module.info.uk.auto	260	0644	edit dl rm
module.info.zh	30	0644	edit dl rm
module.info.zh.auto	116	0644	edit dl rm
module.info.zh_TW	27	0644	edit dl rm
module.info.zh_TW.auto	122	0644	edit dl rm
run.cgi	3980	0755	edit dl rm
save.cgi	1534	0755	edit dl rm
sql.cgi	1536	0755	edit dl rm
uconfig.info.no	820	0644	edit dl rm
view.cgi	1469	0755	edit dl rm

Edit: /usr/share/usermin/commands/run.cgi (3980B)

#!/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("", @_);
}

#!/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, "".&html_escape($displaystr)."", $server->{'desc'} || "$server->{'host'}"),"\n"; print "

" 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 "

\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("", @_); }