|
ru.unix.bsd
- RU.UNIX.BSD ------------------------------------------------------------------
From : Kir 2:5020/400 10 May 2007 17:44:55
To : Slava Trofimov
Subject : Re: mpd & telnet console
--------------------------------------------------------------------------------
On Thu, 10 May 2007, Slava Trofimov wrote:
> Доброго здравия тебе All!
>
> Кто нибудь решал задачу дисконнекта пользователя, посредством подключения
> к консоли демона и выдаче команд: link(bundle) pptpX close exit
#!/usr/local/bin/perl -w
use strict;
use Net::Telnet ();
my $t = new Net::Telnet ( Telnetmode => 0, Prompt => '/\[.*\]$/' );
$t->open(Port => 5005);
my $link = "pptp".$r->[0];
$t->print("link $link");
$t->print("close iface");
$t->print("exit");
У меня кусок программы работает на перле без сбоев
Что поправить и добавить думаю разберетесь
mpd 3.18
--
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5.3
* Origin: Talk.Mail.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
