Есть проблемма с скидыванием клиентов.
тоесть freenibs c помощью скрипта должен скидывать узеров.

По гуглев нашел скрипт (приведен ниже)но ничего не выходит.
Посмотрел в логах mpd4 пишет что не проходит авторизация.
Проверил  по телнету из консоли все  прекрасно заходит.
Уже весь нет перерыл непойму в чем дело. Люди помогите кто чем может

#!/usr/bin/perl
$hostname="127.0.0.1";
$port="5555";
if( $ARGV[3] eq '' ) { die 'Usage: user nasip userip nasport'; };
$user=$ARGV[0];
$nasip=$ARGV[1];
$userip=$ARGV[2];
$nasport=$ARGV[3];
use Net::Telnet ();
$t = new Net::Telnet ;
$t->open(Host=> $hostname, Port => $port, Timeout => 10);
$t->waitfor('/Username:.*$/');
$t->print("mpd");
$t->waitfor('/Password:.*$/');
$t->print("pptp");
$t->waitfor('/]/');
$t->print("bundle pptp".$nasport);
$t->waitfor('/]/');
$t->print("close");
$t->waitfor('/]/');
$t->print("exit");
exit 0;

• ПРоблема с telnet,shadow_alone, 10:16 , 26-Июл-09
• ПРоблема с telnet,Deac, 10:10 , 28-Июл-09

А зачем тебе перл то, юзай expect

#!/usr/bin/expect -f
spawn /usr/bin/telnet куда_коннектимся
expect  "Username:" { send "логинt\n"}
expect  "Password:" { send "пароль\n"}
expect "]" {send "команда\n"}
expect "]" {send "команда2\n"}
expect "]" {send "exit\n"}

>[оверквотинг удален]
>$t->print("mpd");
>$t->waitfor('/Password:.*$/');
>$t->print("pptp");
>$t->waitfor('/]/');
>$t->print("bundle pptp".$nasport);
>$t->waitfor('/]/');
>$t->print("close");
>$t->waitfor('/]/');
>$t->print("exit");
>exit 0;

binmode для mpd4 поставь в "1"