Биллинговая система Nodeny

rsh -l <login> <cisco_ip> sh arp

ssh <login>@<unix_ip> arp -an | grep <required_ip>

use IO::Select;
    use IO::Socket;

    $lsn = new IO::Socket::INET(Listen => 1, LocalPort => 8080);
    $sel = new IO::Select( $lsn );

    while(@ready = $sel->can_read) {
        foreach $fh (@ready) {
            if($fh == $lsn) {
                # Create a new socket
                $new = $lsn->accept;
                $sel->add($new);
            }
            else {
                # Process socket

                # Maybe we have finished with the socket
                $sel->remove($fh);
                $fh->close;
            }
        }
    }

# Нам пришел запрос на обновления кеша IP<->MAC
		$ip = &Filtr_out($F{arpupd});
		# Проверяем, ИП ли это?
		$ipcheck = &ARP_checkip($ip);
		if ( $ipcheck == 1 ){
			# Делаем запрос на сервак
			use IO::Socket;
			$|=1; 
			$socket = IO::Socket::INET->new(PeerAddr => $ARP_config{"server"},
                                PeerPort => $ARP_config{"updport"},
                                Proto    => $ARP_config{"proto"},
                                Type     => SOCK_STREAM)
				or die "Content-type: text/html\n\nCouldn't connect to ".$ARP_config{"server"}.":".$ARP_config{"pingport"}." : $@\n";
			$socket->autoflush(1);
			# Шлём в сокет ИП
			$socket->send($ip."\n");
			# Нам пришел ответ
			$socket->recv($answer, 1024);
			close($socket);
			# Закрываем сокет
			# И отправим клиенту всю эту бадягу
			print "Content-type: text/html\n\n".$answer;			
			exit;
		}else{
			# Шлём клиенту
			if($ipcheck == 0){
				$err = "Параметр не похож на IP-адрес\n";
			}else{
				$err = "Не верный ".(-1 * $ipcheck)." октет IP-адреса\n";
			}
			$out = "Не верно указан IP-адрес ".$ip."\n".$err;
			print "Content-type: text/html\n\n".$out;			
			exit;
		}

# Запрашиваем МАС
                                                $query="SELECT d.field_value AS mac FROM users u, dopvalues d, (
                                                                                SELECT u.ip AS ip, MAX(d.revision) AS rev FROM users u, dopvalues d
                                                                                        WHERE u.id=d.parent_id AND d.dopfield_id=".$config{'dopfield_id'}." AND u.ip='".$str."'
                                                                                        GROUP BY ip
                                                                                ) AS tmp
                                                                        WHERE u.id=d.parent_id
                                                                        AND d.dopfield_id=".$config{'dopfield_id'}."
                                                                        AND u.ip=tmp.ip
                                                                        AND d.revision=tmp.rev
                                                                        AND TRIM(d.field_value) != ''";

[root@novour /usr/local/etc/rc.d]# ./arp_refresh.sh start
Starting arp_refresh
[root@novour /usr/local/etc/rc.d]# Use of uninitialized value $err in numeric eq (==) at /usr/local/sbin/arp_refresh.pl line 27.
^C
[root@novour /usr/local/etc/rc.d]#

[root@novour /home/admin/arping/srv/sbin]# uname -a
FreeBSD novour.com 8.0-RELEASE FreeBSD 8.0-RELEASE #0: Wed Mar 17 22:16:55 YEKT 2010     admin@novour.com:/usr/src/sys/i386/compile/NODENY  i386
[root@novour /home/admin/arping/srv/sbin]#

satellite# /usr/local/etc/rc.d/arping_serv.sh start
Starting arping_serv
satellite# Use of uninitialized value in numeric eq (==) at /usr/local/sbin/arping_serv.pl line 113.
Can't bind : IO::Socket::INET: Address already in use

satellite# /usr/local/etc/rc.d/arp_refresh.sh start
Starting arp_refresh
satellite# Use of uninitialized value in numeric eq (==) at /usr/local/sbin/arp_refresh.pl line 27.
Can't bind : IO::Socket::INET: Address already in use

Can't bind : IO::Socket::INET: Address already in use

root     perl5.8.8  2134  3  tcp4   172.16.1.101:14120    *:*
root     perl5.8.8  2131  3  tcp4   172.16.1.101:14121    *:*

/usr/local/etc/rc.d/arp_refresh.sh start
Starting arp_refresh
You have new mail.
satellite# Use of uninitialized value in numeric eq (==) at /usr/local/sbin/arp_refresh.pl line 27.
Can't bind : IO::Socket::INET: Address already in use

/usr/local/etc/rc.d/arping_serv.sh start
Starting arping_serv
satellite# Use of uninitialized value in numeric eq (==) at /usr/local/sbin/arping_serv.pl line 113.

ps aux | grep arp
root    3190  0.0  0.2  5456  5088  p0  S     2:43PM   0:00.14 /usr/bin/perl -w /usr/local/sbin/arp_refresh.pl (perl5.8.8)
root    4192  0.0  0.2  4752  4408  p0  S     3:06PM   0:00.06 /usr/bin/perl -w /usr/local/sbin/arping_serv.pl (perl5.8.8)

Can't exec "/usr/local/sbin/arping": No such file or directory at /usr/local/sbin/arping_serv.pl line 75.

Wrong second octet **.0.**.**
Operation Completed!

my %config = (
                        "pid" => "/var/run/arp_refresh.pid",
                        "arp" => "/usr/sbin/arp",
                        "count" => 5,
                        "ip"    => "172.16.1.101", # IP Шлюза клиентов который смотрит в локалку, тут менять под себя.
                        "port"  => "14121",
                        "proto" => "tcp",
                        "MySQL" => {
                                    "sqlfirst" => "DBI:mysql:bill;192.0.1.1",
                                        "sqllogin" => "flflflflfl",
                                        "sqlpasswd" => "55555555",
                        },
                        "dopfield_id" => 4,
);

# Тут тоже все менять под себя. Я думаю все понятно...что тут. Пример ниже на сеть 172.16.0.0/20

if($first eq 172 ){   
                                if($second eq 16){
                                        if($net eq 0 ||
                                                $net eq 1 ||
                                                $net eq 2 ||
                                                $net eq 3 ||
                                                $net eq 4 ||
                                                $net eq 5 ||
                                                $net eq 6 ||
                                                $net eq 7 ||
                                                $net eq 8 ||
                                                $net eq 9 ||
                                                $net eq 10 ||
                                                $net eq 11 ||
                                                $net eq 12 ||
                                                $net eq 13 ||
                                                $net eq 14 ||
                                                $net eq 15) {

my %config = (
                        "pid" => "/var/run/arping_serv.pid",
                        "arping" => "/usr/local/sbin/arping",
                        "count" => 5,
                        "ip"    => "172.16.1.101", # IP Шлюза клиентов который смотрит в локалку, тут менять под себя.
                        "port"  => "14120",
                        "proto" => "tcp",
                        "cards" => {
                                    "0" => "xl2",  # И тут я думаю все понятно, подсети на сетевухе. Пример ниже на сеть 172.16.0.0/20
                                    "1" => "xl2",
                                    "2" => "xl2",
                                    "3" => "xl2",
                                    "4" => "xl2",
                                    "5" => "xl2",
                                    "6" => "xl2",
                                    "7" => "xl2",
                                    "8" => "xl2",
                                    "9" => "xl2",
                                    "10" => "xl2",
                                    "11" => "xl2",
                                    "12" => "xl2",
                                    "13" => "xl2",
                                    "14" => "xl2",
                                    "15" => "xl2",
#                                       "31" => "em1",
#                                       "32" => "em2",
#                                       "33" => "em3",
#                                       "34" => "em4",
#                                       "24" => "vlan24",
#                                       "25" => "vlan25",
#                                       "26" => "vlan26",
#                                       "28" => "vlan28"

# И 41-42 строка изменить под свою сеть. Пример ниже на сеть 172.16.0.0/20

if($first eq 172 ){
                                if($second eq 16){

my %ARP_config = (
                        "server" => "172.16.1.101", # IP Шлюза клиентов который смотрит в локалку, тут менять под себя.
                        "pingport" => "14120",
                        "updport" => "14121",
                        "proto" => "tcp",
        );

[root@novour /usr/local/sbin]# ps aux | grep arp
root     1628  0.0  0.3  7128  5320  v0- S    Sun11PM   0:07.28 /usr/bin/perl -w /usr/local/sbin/arp_refresh.pl (perl5.10.1)
root     1631  0.0  0.2  7016  4560  v0- S    Sun11PM   0:07.24 /usr/bin/perl -w /usr/local/sbin/arping_serv.pl (perl5.10.1)
root    19111  0.0  0.3 10340  6876   1- S    Mon11AM   0:20.22 perl nomake.pl arp.txt (perl5.10.1)
root    35934  0.0  0.1  3492  1212   3  S+   11:11AM   0:00.00 grep arp
[root@novour /usr/local/sbin]#

[root@novour /usr/local/etc/rc.d]# uname -a
FreeBSD novour.com 8.0-RELEASE FreeBSD 8.0-RELEASE #0: Wed Mar 17 22:16:55 YEKT 2010     admin@novour.com:/usr/src/sys/i386/compile/NODENY  i386
[root@novour /usr/local/etc/rc.d]#

                        $first  = $1;
                        $second = $2;
                        $net    = $3;
                        if($first eq 192 or 172){
                                if($second eq 168 or 16){
                                        if(exists($config{"cards"}{$net})) {