Исходное сообщение
"Механизмы прерывания активных сессий на NAS. (nas session auth snmp radius isp cisco acl freebsd linux pptp vpn voip)" Отправлено weldpua2008, 25-Фев-09 01:26
madrid.in.ua mpd4/>cat userkill.pl #!/usr/local/bin/perl # #использую для mpd4 # $hostname="127.0.0.1"; $port="5005"; if( $ARGV[3] eq '' ) { die 'Usage:  user nasip userip nasport'; }; $user=$ARGV[0]; $nasip=$ARGV[1]; $userip=$ARGV[2]; $nasport=$ARGV[3]; $nasport=$nasport+1; $hostname="127.0.0.1"; $port="5005"; use Net::Telnet (); $t = new Net::Telnet (Timeout => 2,Port => $port,Binmode => '\015\012',                                Prompt => '/\[\]/'); $t->open("$hostname"); $t->login("mpd-login", "mpd-password"); $t->print("bundle pptp".$nasport); $t->print(""); $t->print("close"); $t->print(""); $t->print("exit"); $t->print(""); $t->close(); exit 0; skm.net.ua mpd5/>cat userkill_nas1.pl #!/usr/local/bin/perl # #Использую для mpd5 # $hostname="192.168.1.3"; $port="5005"; if( $ARGV[3] eq '' ) { die 'Usage:  user nasip userip nasport'; }; $user=$ARGV[0]; $nasip=$ARGV[1]; $userip=$ARGV[2]; $nasport=$ARGV[3]; #$nasport=$nasport+1; #print $nasport; $hostname="192.168.1.3"; $port="5005"; use Net::Telnet (); $t = new Net::Telnet (Timeout => 2,Port => $port,Binmode => '\015\012',                                Prompt => '/\[\]/'); $t->open("$hostname"); $t->login("mpd-login", "mpd-password"); $t->print("bundle B-".$nasport); $t->print(""); $t->print("close"); $t->print(""); $t->print("exit"); $t->print(""); $t->close(); exit 0;

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:
	Введите код, изображенный на картинке: