[mdk-re] rsh users

[Sergei]

17 Сентябрь 2001 10:22, Вы написали:

> Увы, этот вариант не проходит, команда должна подаваться _именно_
> от натурального root'а, иначе как же она систему потрошить будет
>
> :-))

Попробуйте так:
#!/usr/bin/perl
if ($pid=open (CHILD, "|-"))
{
	open (STDOUT,">&=CHILD")
	exec ("su","user","-c","rsh IP_of_A command_name");
}
else
{
	die unless defined $pid;
	open (STDIN,">&=CHILD");
	while (<STDIN>) { print; };
}
И использовть стандартный вывод. Или:
#!/usr/bin/perl
pipe (README,WRITEME)
if ($pid=fork)
{
	$SIG{CHLD}=sub { 1 while (waitpid(-1,WNOHANG))>0; };
	close (WRITEME);
}
else
{
	die unless defined $pid;
	open (STDOUT,">&=WRITEME");
	close (README);
	exec ("su","user","-c","rsh IP_of_A command_name");
}

while (<README>) { print; }
с аналогичным результатом.
-- 
С уважением, Епифанов Сергей.