|
ru.unix.bsd
- RU.UNIX.BSD ------------------------------------------------------------------
From : Boris Kovalenko 2:5020/175.2 02 Mar 2008 07:57:35
To : All
Subject : Убить пользователя в mpd
--------------------------------------------------------------------------------
Hi All,
Хочу написать скрипт для прибивания пользователя в mpd, но то ли Net::Telnet
дурит, то ли я недопонимаю. Вот скрипт:
#!/usr/bin/perl
use Net::Telnet;
my $t = new Net::Telnet (Timeout => 10, Port => 5005, Prompt => '/\[\].*$/');
my $fi = $t->input_log("x.log");
my $fo = $t->output_log("y.log");
my $fd = $t->dump_log("z.log");
$t->open("127.0.0.1");
$t->waitfor('/Username:.*$/');
$t->print("admin");
$t->waitfor('/Password:.*$/');
$t->print("12345");
@lines = $t->cmd("show summary");
print @lines;
Обламывается на 14й строчке по таймауту pattern match. При этом dump_log вот
такой:
< 0x00000: 4d 75 6c 74 69 2d 6c 69 6e 6b 20 50 50 50 20 64 Multi-link PPP
d
< 0x00010: 61 65 6d 6f 6e 20 66 6f 72 20 46 72 65 65 42 53 aemon for
FreeBS
< 0x00020: 44 0d 0a 0d 0a D....
< 0x00000: ff fb 03 ff fd 03 ff fb 01 ff fd 01 55 73 65 72
<FF><FB>.<FF><FDr
< 0x00010: 6e 61 6d 65 3a 20 name:
> 0x00000: ff fd 03 ff fc 03 ff fd 01 ff fc 01
<FF><FD>.<FF><FC.
> 0x00000: 61 64 6d 69 6e 0d 0a admin..
< 0x00000: 61 a
< 0x00000: 64 6d 69 6e 0d 0a 50 61 73 73 77 6f 72 64 3a 20 dmin..Password:
< 0x00010: 0d 0a 4c 6f 67 69 6e 20 66 61 69 6c 65 64 0d 0a ..Login
failed..
< 0x00020: 55 73 65 72 6e 61 6d 65 3a 20 Username:
Пароль правильный! :) Ручками обычным телнетом заходит без проблем.
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
