VPF::IPC::Run Expect SU passwd - Форум программистов

gcc

Дата 23.9.2010, 22:29 (ссылка)

(нет голосов)

Загрузка ...

Агент алкомафии

Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17

хотел напистаь не большой скрипт, чтобы просто в консоле перейти в ROOT и чтобы не вводить пароль в su, но не тут то было
...что-то не работает:

Код


use IPC::Run qw(run timeout start harness);

my @cmd;

push @cmd, "/usr/bin/su";

my $in = "passwd"; 
 my  $out="";
my   $err="";

 #  my $h = run3 \@cmd,\$in,\$out,\$err; #timeout('30'); #timeout($self->{_timeout});
      start \@cmd, '<pty<', \$in, '>pty>', \$out, '2>', \$err;

     printf STDERR "\n\n> output: %s \n> result: %s\n\n",$out,$?; 

print $err;

в auth.log ошибка:
если так:

Код

 #  my $h = run3 \@cmd,\$in,\$out,\$err; #timeout('30'); #timeout($self->{_timeout});

Цитата

Sep 23 21:11:48 the su: in prompt_echo_off(): tcgetattr(): Inappropriate ioctl for device
Sep 23 21:11:48 the su: BAD SU ddd to root on tty

если так:

Код

       start \@cmd, '<pty<', \$in, '>pty>', \$out, '2>', \$err;

Цитата

Sep 23 22:27:56 the su: in prompt_echo_off(): tcgetattr(): Device not configured
Sep 23 22:27:56 the su: BAD SU ddd to root on tty

OS: FreeBSD
вообщем, решение не нашел и не понял, почему так... вродебы все правильно..

Это сообщение отредактировал(а) gcc - 23.9.2010, 22:46

--------------------

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »