Про Net::Telnet и аутентификацию...
Добавлено: 2008-11-28 9:41:44
Есть задача. Аутентификация на телнет сервере. Необходимо автоматизировать его прохождение в зависимость от результата. При входе выдается приглашение:
Что еще надо добавить, чтобы по результату логина (чтобы был не logout successful) скрипт прекращал работу. Типа если результат "Authentication Successful" то все ОК. Дело в том, что каждый раз сеанс телнета прерывается вне зависимости от результата прохождения логина. Вот код:
А вот результат его выполнения... что бы это значило...
Как сделать, чтобы если Логоут, то еще раз login($user,$password) сделать. Подскажите плиииз или ткните носом на ссылочку примеров...
Если второй раз коннектишься - выдает:# telnet 127.0.0.1
Trying 127.0.0.1...
Connected to telnet.localhost.ru.
Escape character is '^]'.
LOGIN Authentication
Username: user
Password: ********
Authentication Successful
Connection closed by foreign host.
Вот скрипт который в примерах, но в моем случае от затыкается после логина.Trying 127.0.0.1...
Connected to telnet.localhost.ru.
Escape character is '^]'.
LOGIN Authentication
Username: user
Password: ********
Logout Successful
Connection closed by foreign host.
Что еще надо добавить, чтобы по результату логина (чтобы был не logout successful) скрипт прекращал работу. Типа если результат "Authentication Successful" то все ОК. Дело в том, что каждый раз сеанс телнета прерывается вне зависимости от результата прохождения логина. Вот код:
Код: Выделить всё
#!/usr/bin/perl -w
my $host="127.0.0.1";
my $login="user";
my $password="password";
use Net::Telnet;
$ses=Net::Telnet->new( Host => $host,
Timeout => 20);
$ses->login($user,$password);
exit;
результат выдается по переменке или "Authentication Successful at ./auth.pl line 10" или "Logout Successful at ./auth.pl line 10".eof read waiting for command prompt: Authentication Successful at ./auth.pl line 10
Как сделать, чтобы если Логоут, то еще раз login($user,$password) сделать. Подскажите плиииз или ткните носом на ссылочку примеров...