Доброго времени суток!
У меня сложилась следующая проблема, простенький скриптик не коннектится к одномиу из серваков, вылетаю по тайм-ауту, хотя с другими таких проблем нет. Не знаю в чем проблема, поиск ни ке чему не привел, если подскажите путь решения, буду сильно благодарен!
вот часть скрипта:
#!/usr/bin/perluse Net::Telnet;
my($user, $pass, $su_pass);
$user="user";
$pass="pass";
#$su_pass="pass";
$telnet=new Net::Telnet(Timeout=>10,
Dump_log=>"/tmp/dl_r094.log",);
$telnet->open("10.1.2.3");
$telnet->login($user, $pass);
$telnet->cmd("who");
print @line;
А вот что мне пишет лог:
< 0x00000: ff fb 01 57 65 6c 63 6f 6d 65 20 74 6f 20 53 75 яы.Welcome to Su
< 0x00010: 53 45 20 4c 69 6e 75 78 20 38 2e 30 20 28 69 33 SE Linux 8.0 (i3
< 0x00020: 38 36 29 20 2d 20 4b 65 72 6e 65 6c 20 32 2e 34 86) - Kernel 2.4
< 0x00030: 2e 32 31 2d 32 34 33 2d 64 65 66 61 75 6c 74 20 .21-243-default
< 0x00040: 28 30 29 2e 0d 0a (0)...
> 0x00000: ff fd 01 яэ.
< 0x00000: 0d 0a 66 39 34 30 30 39 30 31 20 6c 6f 67 69 6e ..r094 login
< 0x00010: 3a 20 :
> 0x00000: 6e 70 6f 73 0d 0a user..
< 0x00000: 6e 70 6f 73 0d 0a user..
< 0x00000: 50 61 73 73 77 6f 72 64 3a 20 Password:
> 0x00000: 64 73 74 6f 72 65 0d 0a pass..
< 0x00000: 0d 0a ..
< 0x00000: 48 61 76 65 20 61 20 6c 6f 74 20 6f 66 20 66 75 Have a lot of fu
< 0x00010: 6e 2e 2e 2e 0d 0a 4c 61 73 74 20 6c 6f 67 69 6e n.....Last login
< 0x00020: 3a 20 54 75 65 20 4a 75 6e 20 31 33 20 31 34 3a : Tue Jun 13 14:
< 0x00030: 34 31 3a 33 32 20 2b 30 32 30 30 20 32 30 30 36 41:32 +0200 2006
< 0x00040: 20 6f 6e 20 74 74 79 31 2e 0d 0a 74 73 65 74 3a on tty1...tset:
< 0x00050: 20 75 6e 6b 6e 6f 77 6e 20 74 65 72 6d 69 6e 61 unknown termina
< 0x00060: 6c 20 74 79 70 65 20 6e 65 74 77 6f 72 6b 0d 0a l type network..
< 0x00070: 54 65 72 6d 69 6e 61 6c 20 74 79 70 65 3f 20 Terminal type?
Кто знает, что же он хочет в качестве Terminal type?