stark писал(а):
max писал(а):
Товарищи помогите пожалуйста победить связку бг-биллинг и 6509 цыску
имеем следующее:
непонятно по чему он выполняет exit не зависимо от того что стоит в RULE....
Если победим готов написать все материалы в викки...
Вы взяли код cisco2, он привязан к vlan, а vlan вы ему не выдали ( к он вам и не нужен) ..Поэтому поменяете код ..У вас правала не срабатываеют из-за вот этой проверки :
Код:
if (vid > 0)
{
for ( String rule : rules )
{
result.append( session.doCommand( rule ) );
}
}
уберите проверку if (vid > 0) и все .. вообще можете убрать вообще все обращения к vlan -они вам не нужны
да, действительно помогло, большое спасибо! Я просто не силён в яво программировании....
но возникла новая напасть! а как в скрипт передать сеть или ip адрес и маску клиента да ещё и в вайлкарде?
например клиент: 192.168.0.0/30
нужный формат ip=192.168.0.0 mask=0.0.0.3
Дело в том что моей цыске в экстенденд листах при передаче сети (не хоста) в привило листа подавай маску в вайлкарде!
Код:
c6509-CORE#conf t
Enter configuration commands, one per line. End with CNTL/Z.
c6509-CORE(config)#ip access
c6509-CORE(config)#ip access-list ex 100
c6509-CORE(config-ext-nacl)#permit ip any 192.168.0.1 ?
A.B.C.D Destination wildcard bits
c6509-CORE(config-ext-nacl)#permit ip any 192.168.0.1 0.0.0.3
Поясню как это работает у меня сейчас:
Есть ядро биллинга.
Если клиент подключается какм то макаром, то биллинг выполянет скрипт ONConnect и передаёт ему следующие параметры:
login - логин
ip - ип адрес вида ххх.ххх.ххх.ххх
netmask - маска вида ххх.ххх.ххх.ххх
cash - баланс
id - уникальный айди
napravlenie - тарифная зона
nas - айпи наса!
вот для примера сам скрипт ONConnect:
Код:
#!/usr/bin/perl
#edit 03.07.2008 11:12 Max
$login=@ARGV[0];
$ip=@ARGV[1];
$netmask=@ARGV[2];
$cash=@ARGV[3];
$id=@ARGV[4];
$napravlenie=@ARGV[5];
$nas=@ARGV[6];
#Превращаем маску в вайлкард
#Wailcard netmask
if($netmask eq '255.255.255.255'){$wnetmask='0.0.0.0';}
elsif($netmask eq '255.255.255.252'){$wnetmask='0.0.0.3';}
elsif($netmask eq '255.255.255.248'){$wnetmask='0.0.0.7';}
elsif($netmask eq '255.255.255.240'){$wnetmask='0.0.0.15';}
elsif($netmask eq '255.255.255.224'){$wnetmask='0.0.0.31';}
elsif($netmask eq '255.255.255.192'){$wnetmask='0.0.0.63';}
elsif($netmask eq '255.255.255.128'){$wnetmask='0.0.0.127';}
elsif($netmask eq '255.255.255.0'){$wnetmask='0.0.0.255';}
elsif($netmask eq '255.255.254.0'){$wnetmask='0.0.1.255';}
elsif($netmask eq '255.255.252.0'){$wnetmask='0.0.3.255';}
elsif($netmask eq '255.255.248.0'){$wnetmask='0.0.7.255';}
elsif($netmask eq '255.255.240.0'){$wnetmask='0.0.15.255';}
elsif($netmask eq '255.255.224.0'){$wnetmask='0.0.31.255';}
else{&error;}
if($nas eq '127.0.0.1'){&unix_127;}
if($nas eq '10.11.0.2'){&cisco_2600;}
if($nas eq '10.11.0.6'){&cisco_2600;}
if($nas eq '10.11.0.10'){&cisco_2600;}
if($nas eq '10.11.0.14'){&cisco_2600;}
if($nas eq '10.11.0.1'){&cisco;}
if($nas eq '10.11.0.3'){&unix;}
if($nas eq '10.11.0.4'){&cisco;}
&error;
#НЕ ОПРЕДЕЛЁН NAS#########################################################################
sub error{
open(ERR,">>/usr/billing/err.connect.log");
print ERR "ERROR: ON_CONNECT login=$login, ip=$ip, netmask=$netmask|$wnetmask, cash=$cash, id=$id, nas=$nas\n";
close ERR;
exit 1;
}
##########################################################################################
sub cisco{
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 30, Prompt => '/#/');
$t->open("$nas") || die("False\n");
$t->login("xxxx", "xxxx");
$t->cmd(String => 'conf t', Cmd_remove_mode => 0);
$t->cmd("ip access-list extended 100");
$t->cmd("deny ip $ip $wnetmask any");
$t->cmd("no permit ip any any");
$t->cmd("permit ip any any");
$t->cmd("$cmd");
$t->cmd("exit");
exit 0;
}
sub cisco_2600{
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 30, Prompt => '/#/');
$t->open("$nas") || die("False\n");
$t->login("xxxx", "xxxx");
$t->cmd(String => 'conf t', Cmd_remove_mode => 0);
$t->cmd("ip access-list extended 100");
$t->cmd("permit ip $ip $wnetmask any");
$t->cmd("no deny ip any any");
$t->cmd("deny ip any any");
$t->cmd("$cmd");
$t->cmd("exit");
exit 0;
}
sub unix{
$ipfw="/sbin/ipfw -q";
system "ssh $nas -p 5896 '$ipfw add `expr $id + 100` skipto 25555 ip from $ip to any'";
system "ssh $nas -p 5896 '$ipfw add `expr $id + 101` skipto 25555 ip from any to $ip'";
#system "$ipfw add `expr $ID '*' 2 + 30000` pipe $PIPE ip from any to $IP";
exit 0;
}
sub unix_127{
$ipfw="/sbin/ipfw -q";
system "$ipfw add `expr $id '*' 10 + 100` skipto 25555 ip from $ip to any";
system "$ipfw add `expr $id '*' 10 + 101` skipto 25555 ip from any to $ip";
#system "$ipfw add `expr $ID '*' 2 + 30000` pipe $PIPE ip from any to $IP";
exit 0;
}
sub unix_sp{
$ipfw="/sbin/ipfw -q";
system "ssh $nas -p 5896 '$ipfw add `expr $id + 100` skipto 25555 ip from $ip to any'";
system "ssh $nas -p 5896 '$ipfw add `expr $id + 101` skipto 25555 ip from any to $ip'";
#system "$ipfw add `expr $ID '*' 2 + 30000` pipe $PIPE ip from any to $IP";
exit 0;
}
И заметьте у меня в скрипте поддержаны много видов насов!
При отключении пользователя выполняется скрипт ONDisconnect в котором описана обратная логика, при этом биллингу монописуарно что тама написано в этих скриптах.... а скрипты могут быть написаны хоть на шеле.
Исходя из вышеописанного у меня два основных вопроса вопроса и подвопрос:
1. как енту логику моей цыски:
ip access-list extended 100
deny ip $ip $wnetmask any
no permit ip any any
permit ip any any
exit
реализовать в этом скрипте на яве???
2. нельзя ли что бы сервер при переходе шлюза из одного состояния (например открыт) в другое состояние (например закрыт) выполнял не долбанный скрипт на яве, а дёргал скрипт на на жёстком диске и передавал ему нужные нам параметры???????????
При этом скрипт может быть написан на том на чём умеет писать админ провайдера!!!!
А вы избавитесь от всяких там логик и классов в клиенте!
2.1 Если реализовать схему в пункте 2 незя, или сильно много времени займёт, то как написать данное действие в скрипте шлюза, что бы он вызывал нужные мне скрипты на диске сервера и передавал им параметры?
Вход
Регистрация
FAQ
Поиск
, и выйти можно только убив billing.client.
