Рабочая связка - freeradius+freenibs+mpd3.18, FreeBSD5.4. Eсть рабочий срипт для сброса юзеров
Код:
#!/usr/bin/perl -w #====== CONFIG ==========#
$nastelnetport = 7777;
$logfile = "/var/log/nibs/killed.log";
#====== CONFIG ==========#
$user = 'name';
$nasip = '10.0.0.1';
$userip = '127.0.0.1';
$nasport = 1;
$nastelnetport = 7777;
#print "\nUser:".$user;
#print "\nNAS IP:".$nasip;
#print "\nUser IP:".$userip;
#print "\nNAS port:".$nasport;
#print "\nNAS mpd port:".$nastelnetport;
use IO::Socket;
$sock = IO::Socket::INET->new(PeerAddr => $nasip, PeerPort => $nastelnetport, Proto => 'tcp')
or die "Can not connect to mpd!\n$!";
$sock->autoflush(1);
print $sock "pptp link",$nasport,"\n";
print $sock "close\n";
close $sock;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year = $year + 1900;
open LOG,'>>',$logfile;
print LOG $year."-".$mon."-".$mday." ".$hour."-".$min."-".$sec." :";
print LOG " killed USER: ".$user." NASIP: ".$nasip." NASPORT: ".$nasport." USERIP: ".$userip."\n";
close LOG;
exit 0;
$nasport поставил 1 - номер сессии pptp. (pptp1)
Перешел на freebsd8.2, radius 1.1.8 freenibs 2.2.3, mpd4 - связка работает с mysql, все запускается, ведется статистика НО!!! При описанном выше скрипте не сбрасывает с линии, причем файл выполняется без ошибок. Подскажите с простейшим скриптиком drop_user под mpd4.
Когда захожу через telnet на mpd и
link pptp01
close - сброс работает.
Вариант для распечатки
(ok) on 07-Май-11, 13:34 
