Модуль получения МАС-адреса (OLD: получение МАС адреса)

Цитата: Ivan от 12 Апреля 2010, 21:35:37

Там все нормально... Ты только под свою сеть в коде поменяй все... ps aux | grep arp проверь после запуска...
Вы установили arping с портов?
Я сначала тоже протупил, внимательно почитал доку исправил под свою сеть ( arp_refresh.pl arping_serv.pl )
Вот тут основные настройки: Пример на сети 172.16.0.0/20

arp_refresh

Код:

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) {

arping_serv

Код:

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){

Вроде ничего не забыл, кажется...
И осталось только поменять в Sarping.pl

Код:

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]#

arping ставил из портов

Код:

[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]#

сеть у меня 192.168.0.0/16
везде проверил, везде всё стоит правильно... Поэтому и написал сюда

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