mirror of
https://github.com/librenms/librenms.git
synced 2024-10-07 16:52:45 +00:00
mac accounting updates
git-svn-id: http://www.observium.org/svn/observer/trunk@425 61d68cd4-352d-0410-923a-c4978735b2b8
This commit is contained in:
Adam Amstrong
@@ -1,36 +0,0 @@
|
|||||||
#!/usr/bin/php
|
|
||||||
<?
|
|
||||||
|
|
||||||
ini_set('display_errors', 1);
|
|
||||||
ini_set('display_startup_errors', 1);
|
|
||||||
ini_set('log_errors', 1);
|
|
||||||
ini_set('error_reporting', E_ALL);
|
|
||||||
|
|
||||||
|
|
||||||
include("config.php");
|
|
||||||
include("includes/functions.php");
|
|
||||||
include("includes/cdp.inc.php");
|
|
||||||
|
|
||||||
$start = utime();
|
|
||||||
|
|
||||||
### Observer Device Discovery
|
|
||||||
|
|
||||||
echo("Observer v".$config['version']." MAC Accounting Discovery\n\n");
|
|
||||||
|
|
||||||
mysql_query("DELETE FROM mac_accounting WHERE 1");
|
|
||||||
|
|
||||||
$data = trim(`cat mac-accounting.txt`);
|
|
||||||
|
|
||||||
foreach( explode("\n", $data) as $peer_entry) {
|
|
||||||
list($interface_ip, $peer_ip, $peer_desc, $peer_asn, $peer_mac, $in_oid, $out_oid) = explode(",", $peer_entry);
|
|
||||||
$interface_id = mysql_result(mysql_query("SELECT interface_id FROM ipv4_addresses WHERE ipv4_address = '$interface_ip'"),0);
|
|
||||||
$device_id = mysql_result(mysql_query("SELECT device_id FROM interfaces WHERE interface_id = '$interface_id'"),0);
|
|
||||||
|
|
||||||
echo("PEER : $peer_ip AS$peer_asn ($peer_mac) int: $interface_id host: $device_id \n");
|
|
||||||
|
|
||||||
mysql_query("INSERT INTO `mac_accounting` (interface_id, peer_ip, peer_desc, peer_asn, peer_mac, in_oid, out_oid) VALUES ('$interface_id','$peer_ip','$peer_desc','$peer_asn','$peer_mac','$in_oid','$out_oid')");
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
?>
|
|
||||||
@@ -1,163 +0,0 @@
|
|||||||
#! /usr/bin/perl
|
|
||||||
# $Id: bgp-peers.pl,v 1.5 2001/08/06 14:45:55 lwa Exp $
|
|
||||||
|
|
||||||
# $Log: bgp-peers.pl,v $
|
|
||||||
# Revision 1.5 2001/08/06 14:45:55 lwa
|
|
||||||
# add help
|
|
||||||
#
|
|
||||||
# Revision 1.4 2001/08/03 19:03:22 lwa
|
|
||||||
# display hardware mac address (in Cisco format)
|
|
||||||
#
|
|
||||||
#
|
|
||||||
|
|
||||||
=pod
|
|
||||||
|
|
||||||
=head1 NAME
|
|
||||||
|
|
||||||
bgp-peers.pl - generate MRTG configuration for BGP peering point
|
|
||||||
|
|
||||||
=head1 SYNOPSIS
|
|
||||||
|
|
||||||
./bgp-peers.pl <your IP on the exchange point> <its snmp comunity>
|
|
||||||
|
|
||||||
=head1 DESCRIPTION
|
|
||||||
|
|
||||||
This program generates a MRTG configuration file for graphing traffic
|
|
||||||
to and from all peers present on a Cisco NAP, using
|
|
||||||
mac-accounting. Tested with Cisco 720x and Cisco 750x.
|
|
||||||
|
|
||||||
You can then use indexmaker (from mrtg distribution) to generate a cool index
|
|
||||||
and run the whole stuff from a cronjob.
|
|
||||||
|
|
||||||
|
|
||||||
=head2 CISCO CONFIGURATION
|
|
||||||
|
|
||||||
Enable mac-accounting on NAP interface (see the example below)
|
|
||||||
|
|
||||||
=over 4
|
|
||||||
|
|
||||||
Router# conf t
|
|
||||||
Router(config)# interface FastEthernet2/0
|
|
||||||
Router(config-if)# ip accounting mac-address input
|
|
||||||
Router(config-if)# ip accounting mac-address output
|
|
||||||
Router(config-if)#exit
|
|
||||||
Router(config)#exit
|
|
||||||
|
|
||||||
=back
|
|
||||||
|
|
||||||
=head1 BUGS
|
|
||||||
|
|
||||||
The only problem I have noticed is when your are not getting any data
|
|
||||||
from a peer (IN or OUT) the variable wont be in the SNMP tree and
|
|
||||||
MRTG will complain. If its occurs during long time, this probably mean
|
|
||||||
you have a problem with your peer because you are expected to make
|
|
||||||
some traffic with it (at least, BGP traffic).
|
|
||||||
|
|
||||||
If the peer change its hardware address, you have to re-run
|
|
||||||
this program to take the modification.
|
|
||||||
|
|
||||||
=head1 THANKS
|
|
||||||
|
|
||||||
Thanks to groups.google.com for the tricks : http://groups.google.com/groups?q=this_mac&hl=en&safe=off&rnum=1&ic=1&selm=91750329.28451%40news.Colorado.EDU
|
|
||||||
|
|
||||||
Thanks to Robert Kiessling from Easynet Germany to have irritated us.
|
|
||||||
|
|
||||||
=head1 AUTHORS
|
|
||||||
|
|
||||||
Erwan Lerale <erwan@de.clara.net>
|
|
||||||
Arnaud le Taillanter <alt@fr.clara.net>
|
|
||||||
Laurent Wacrenier <lwa@teaser.fr>
|
|
||||||
|
|
||||||
=cut
|
|
||||||
|
|
||||||
use SNMP_Session;
|
|
||||||
use SNMP_util;
|
|
||||||
use BER;
|
|
||||||
use Socket;
|
|
||||||
|
|
||||||
my $hostname = shift;
|
|
||||||
my $community = shift;
|
|
||||||
my %interface;
|
|
||||||
$interface{ip} = shift;
|
|
||||||
|
|
||||||
if ($hostname !~ /^\d+\.\d+\.\d+\.\d+$/) {
|
|
||||||
print STDERR
|
|
||||||
"usage: $0 router community interface_ip \n";
|
|
||||||
exit 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
$community = "public" unless defined $community;
|
|
||||||
|
|
||||||
my %OIDS = (
|
|
||||||
ipNetToMediaPhysAddress => "1.3.6.1.2.1.4.22.1.2",
|
|
||||||
bgpPeerState => "1.3.6.1.2.1.15.3.1.2",
|
|
||||||
bgpPeerRemoteAs => "1.3.6.1.2.1.15.3.1.9",
|
|
||||||
bgpPeerRemoteAddr => "1.3.6.1.2.1.15.3.1.7",
|
|
||||||
bgpPeerLocalAddr => "1.3.6.1.2.1.15.3.1.5",
|
|
||||||
cipMacSwitchedBytes => "1.3.6.1.4.1.9.9.84.1.2.1.1.4",
|
|
||||||
);
|
|
||||||
|
|
||||||
my %peers;
|
|
||||||
|
|
||||||
($interface{index}) = snmpget("$community\@$hostname",
|
|
||||||
"ipAdEntIfIndex.$interface{ip}");
|
|
||||||
|
|
||||||
($interface{speed}) = snmpget("$community\@$hostname",
|
|
||||||
"ifSpeed.$interface{index}");
|
|
||||||
$interface{speed}/=8;
|
|
||||||
|
|
||||||
|
|
||||||
my $session = SNMP_Session->open ($hostname, $community, 161)
|
|
||||||
or die "Couldn't open SNMP session to $hostname";
|
|
||||||
|
|
||||||
$session->map_table([ [split /\./, $OIDS{bgpPeerRemoteAddr}],
|
|
||||||
[split /\./, $OIDS{bgpPeerRemoteAs}],
|
|
||||||
[split /\./, $OIDS{bgpPeerState}],
|
|
||||||
[split /\./, $OIDS{bgpPeerLocalAddr}],
|
|
||||||
], \&getpeers);
|
|
||||||
|
|
||||||
sub getpeers {
|
|
||||||
my ($index, $RemoteAddr, $RemoteAs, $State, $LocalAddr) = @_;
|
|
||||||
my $pLocalAddr = pretty_print($LocalAddr);
|
|
||||||
return if $pLocalAddr ne $interface{ip};
|
|
||||||
|
|
||||||
my ($PhysAddress) = snmpget("$community\@$hostname",
|
|
||||||
"ipNetToMediaPhysAddress.$interface{index}.$index");
|
|
||||||
|
|
||||||
$peer{$index} = {
|
|
||||||
RemoteAs => pretty_print($RemoteAs),
|
|
||||||
PhysAddress => join(".", unpack("C*", $PhysAddress)),
|
|
||||||
};
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
for my $peer (sort keys %peer) {
|
|
||||||
my $name = gethostbyaddr(inet_aton($peer), AF_INET) || $peer;
|
|
||||||
my $mac = sprintf "%02x%02x.%02x%02x.%02x%02x",
|
|
||||||
split(/\./, $peer{$peer}->{PhysAddress});
|
|
||||||
|
|
||||||
# print <<EOF;
|
|
||||||
#Target[$peer]: $OIDS{cipMacSwitchedBytes}.$interface{index}.1.$peer{$peer}->{PhysAddress}\&$OIDS{cipMacSwitchedBytes}.$interface{index}.2.$peer{$peer}->{PhysAddress}:$community\@$interface{ip}
|
|
||||||
#MaxBytes[$peer]: $interface{speed}
|
|
||||||
#Options[$peer]: bits, growright
|
|
||||||
#ShortLegend[$peer]: bps
|
|
||||||
#Title[$peer]: MAC traffic for <tt>$name</tt> (AS$peer{$peer}->{RemoteAs})
|
|
||||||
#PageTop[$peer]: <H1>MAC traffic for <tt>$name</tt> (AS$peer{$peer}->{RemoteAs})
|
|
||||||
# </H1>
|
|
||||||
# <TABLE>
|
|
||||||
# <TR><TD>Peer Name:</TD><TD><tt>$name</tt></TD></TR>
|
|
||||||
# <TR><TD>IP address:</TD><TD><tt>$peer</tt></TD></TR>
|
|
||||||
# <TR><TD>Mac address:</TD><TD><tt>$mac</tt></TD></TR>
|
|
||||||
# <TR><TD>Peer AS:</TD><TD><tt>$peer{$peer}->{RemoteAs}</tt></TD></TR>
|
|
||||||
# </TABLE>
|
|
||||||
#
|
|
||||||
#EOF
|
|
||||||
|
|
||||||
print <<EOF;
|
|
||||||
$interface{ip},$peer,$name,$peer{$peer}->{RemoteAs},$mac,$OIDS{cipMacSwitchedBytes}.$interface{index}.1.$peer{$peer}->{PhysAddress},$OIDS{cipMacSwitchedBytes}.$interface{index}.2.$peer{$peer}->{PhysAddress},$community
|
|
||||||
EOF
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
@@ -1,2 +0,0 @@
|
|||||||
./mac-accounting.pl <router> planning <interface-ip> > mac-accounting.txt
|
|
||||||
./mac-accounting.pl <router> planning <interface-ip> >> mac-accounting.txt
|
|
||||||
@@ -11,9 +11,6 @@ mysql_query("DELETE FROM `syslog` WHERE `processed` = '0' AND `msg` LIKE '%PM-3-
|
|||||||
mysql_query("DELETE FROM `syslog` WHERE `processed` = '0' AND `msg` LIKE '%RHWatchdog%'");
|
mysql_query("DELETE FROM `syslog` WHERE `processed` = '0' AND `msg` LIKE '%RHWatchdog%'");
|
||||||
mysql_query("DELETE FROM `syslog` WHERE `processed` = '0' AND `msg` LIKE '%Hardware Monitoring%'");
|
mysql_query("DELETE FROM `syslog` WHERE `processed` = '0' AND `msg` LIKE '%Hardware Monitoring%'");
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
if(!$config['enable_syslog']) {
|
if(!$config['enable_syslog']) {
|
||||||
echo("Syslog support disabled.\n");
|
echo("Syslog support disabled.\n");
|
||||||
exit();
|
exit();
|
||||||
|
|||||||
Reference in New Issue
Block a user