Новые ответы

Не выполняются комманды в telnet,

worm, 25-Июл-06, 18:55 [смотреть все]

Написал скриптец:
#!/usr/bin/perl -w
use strict;
use Net::Telnet ();
my $username="username";
my $password="passwd";
my $host="IP";
my $port="23";
my $t=Net::Telnet->new(Prompt => '/tcsh\$ $/');
$t->open(Host => $host, Port => $port);
$t->login($username, $password);
my @lines = $t->cmd('ps');
print @lines;
В итоге вижу на удаленном сервере(freebsd6.1), что логинится без проблем, но выполнять комманды в терминале не хочет, отваливается по timeout'у.
Что я не так сделал?

Ответить | Сообщить модератору

Не выполняются комманды в telnet, chip, 21:53 , 25-Июл-06 (1)
>Написал скриптец:
>#!/usr/bin/perl -w
>
>use strict;
>use Net::Telnet ();
>
>my $username="username";
>my $password="passwd";
>my $host="IP";
>my $port="23";
>
>my $t=Net::Telnet->new(Prompt => '/tcsh\$ $/');
>$t->open(Host => $host, Port => $port);
>$t->login($username, $password);
>my @lines = $t->cmd('ps');
>print @lines;
>
>В итоге вижу на удаленном сервере(freebsd6.1), что логинится без проблем, но выполнять
>комманды в терминале не хочет, отваливается по timeout'у.
>
>Что я не так сделал?
В первом приближении все верно, возможно, кто-то заметит ошибки. Однако, со своей стороны, хотел бы посоветовать запустить tcpdump и представить из него выжимки, думаю это на большие мысли подтолкнет.

Ответить | Сообщить модератору
Не выполняются комманды в telnet, NuINu, 10:00 , 27-Июл-06 (2)
>Написал скриптец:
>#!/usr/bin/perl -w
>
>use strict;
>use Net::Telnet ();
>
>my $username="username";
>my $password="passwd";
>my $host="IP";
>my $port="23";
>
>my $t=Net::Telnet->new(Prompt => '/tcsh\$ $/');
>$t->open(Host => $host, Port => $port);
>$t->login($username, $password);
>my @lines = $t->cmd('ps');
>print @lines;
>
>В итоге вижу на удаленном сервере(freebsd6.1), что логинится без проблем, но выполнять
>комманды в терминале не хочет, отваливается по timeout'у.
>
>Что я не так сделал?
Скорее всего у тебя Prompt определен неточно, проверь точно ли такое(tcsh$ ) приглашение выдает сервер зарегистрированному пользователю.
Ответить | Сообщить модератору

Не выполняются комманды в telnet, worm, 10:41 , 27-Июл-06 (3)
>Скорее всего у тебя Prompt определен неточно, проверь точно ли такое(tcsh$ )
>приглашение выдает сервер зарегистрированному пользователю.
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10,
Prompt => '/[%#>] $/');
$t->open($host);
$t->login($username, $passwd);
@lines = $t->cmd("$command");
print "@lines\n";
exit;
так заработало :)
Всем спасибо за помощь.
Ответить | Сообщить модератору

Не выполняются комманды в telnet, NuINu, 17:31 , 27-Июл-06 (4)
>>Скорее всего у тебя Prompt определен неточно, проверь точно ли такое(tcsh$ )
>>приглашение выдает сервер зарегистрированному пользователю.
>
>use Net::Telnet ();
>$t = new Net::Telnet (Timeout => 10,
> Prompt => '/[%#>] $/');
>$t->open($host);
>$t->login($username, $passwd);
>@lines = $t->cmd("$command");
>print "@lines\n";
>exit;
>
>так заработало :)
>Всем спасибо за помощь.
;-))) Тебе хорошо, у меня эта штука все равно умирает, когда даешь команду требующую длинного вывода типа show config, она ждет когда от сервера придет промпт, а приходит что нибудь типа : пресс эни кей. И ни тот ни другой с места не двигаются.
Ответить | Сообщить модератору