| Line 29... |
Line 29... |
| 29 |
# {lastseen} (last time this was active as unix timestamp)
|
29 |
# {lastseen} (last time this was active as unix timestamp)
|
| 30 |
|
30 |
|
| 31 |
# 20190407 RWR
|
31 |
# 20190407 RWR
|
| 32 |
# converted to use external config file in YAML format
|
32 |
# converted to use external config file in YAML format
|
| 33 |
# added the ability to ignore ports on the switches
|
33 |
# added the ability to ignore ports on the switches
|
| - |
|
34 |
# 20190514 RWR
|
| - |
|
35 |
# Added port aliases
|
| 34 |
|
36 |
|
| 35 |
use strict;
|
37 |
use strict;
|
| 36 |
use warnings;
|
38 |
use warnings;
|
| 37 |
use Data::Dumper; # only used for debugging
|
39 |
use Data::Dumper; # only used for debugging
|
| 38 |
use Socket; # for reverse dns entries
|
40 |
use Socket; # for reverse dns entries
|
| 39 |
use YAML::Tiny; # apt-get libyaml-tiny-perl under debian
|
41 |
use YAML::Tiny; # apt-get libyaml-tiny-perl under debian
|
| 40 |
use File::Spec; # find location of script so we can put storage in same directory
|
42 |
use File::Spec; # find location of script so we can put storage in same directory
|
| 41 |
use File::Basename;
|
43 |
use File::Basename;
|
| 42 |
|
44 |
|
| - |
|
45 |
our $VERSION = '1.1';
|
| - |
|
46 |
|
| 43 |
my %config;
|
47 |
my %config;
|
| 44 |
|
48 |
|
| 45 |
# where the script is located
|
49 |
# where the script is located
|
| 46 |
my $scriptDir = dirname( File::Spec->rel2abs( __FILE__ ) );
|
50 |
my $scriptDir = dirname( File::Spec->rel2abs( __FILE__ ) );
|
| 47 |
# put the statefile in there
|
51 |
# put the statefile in there
|
| Line 50... |
Line 54... |
| 50 |
# main hash that holds the data we collect
|
54 |
# main hash that holds the data we collect
|
| 51 |
my %switchports;
|
55 |
my %switchports;
|
| 52 |
# some OIDS we need for the program
|
56 |
# some OIDS we need for the program
|
| 53 |
my $SWITCHPORTMIB = 'iso.3.6.1.2.1.17.4.3.1.2';
|
57 |
my $SWITCHPORTMIB = 'iso.3.6.1.2.1.17.4.3.1.2';
|
| 54 |
my $SWITCHMACMIB = 'iso.3.6.1.2.1.17.4.3.1.1';
|
58 |
my $SWITCHMACMIB = 'iso.3.6.1.2.1.17.4.3.1.1';
|
| - |
|
59 |
my $SWITCHIFNAMEMIB = '1.3.6.1.2.1.31.1.1.1.18';
|
| 55 |
my $ROUTERIPMACMIB = 'iso.3.6.1.2.1.4.22.1.2'; #'iso.3.6.1.2.1.3.1.1.2';
|
60 |
my $ROUTERIPMACMIB = 'iso.3.6.1.2.1.4.22.1.2'; #'iso.3.6.1.2.1.3.1.1.2';
|
| 56 |
my $DEVICENAMEMIB = '1.3.6.1.2.1.1.5';
|
61 |
my $DEVICENAMEMIB = '1.3.6.1.2.1.1.5';
|
| 57 |
my $DEVICELOCMIB = '1.3.6.1.2.1.1.6';
|
62 |
my $DEVICELOCMIB = '1.3.6.1.2.1.1.6';
|
| 58 |
|
63 |
|
| 59 |
sub makeMAC {
|
64 |
sub makeMAC {
|
| Line 94... |
Line 99... |
| 94 |
foreach my $switch ( keys %$switchports ) {
|
99 |
foreach my $switch ( keys %$switchports ) {
|
| 95 |
my $thisSwitch = $switchports->{$switch}->{'ports'};
|
100 |
my $thisSwitch = $switchports->{$switch}->{'ports'};
|
| 96 |
foreach my $port ( keys %$thisSwitch ) {
|
101 |
foreach my $port ( keys %$thisSwitch ) {
|
| 97 |
my $thisPort = $thisSwitch->{$port};
|
102 |
my $thisPort = $thisSwitch->{$port};
|
| 98 |
foreach my $connection ( keys %$thisPort ) {
|
103 |
foreach my $connection ( keys %$thisPort ) {
|
| - |
|
104 |
# skip the alias information on a port
|
| - |
|
105 |
next if $connection eq 'alias';
|
| 99 |
&initialize( $thisPort,$connection,'mac','ip','hostname','lastseen' );
|
106 |
&initialize( $thisPort,$connection,'mac','ip','hostname','lastseen' );
|
| 100 |
if ( $switchports->{$switch}->{'ports'}->{$port}->{$connection}->{'mac'} eq $mac ) {
|
107 |
if ( $switchports->{$switch}->{'ports'}->{$port}->{$connection}->{'mac'} eq $mac ) {
|
| 101 |
my $modified = &updateValue( \$switchports->{$switch}->{'ports'}->{$port}->{$connection}->{'ip'}, $ip );
|
108 |
my $modified = &updateValue( \$switchports->{$switch}->{'ports'}->{$port}->{$connection}->{'ip'}, $ip );
|
| 102 |
$modified |= &updateValue( \$switchports->{$switch}->{'ports'}->{$port}->{$connection}->{'hostname'},gethostbyaddr( inet_aton( $ip ), AF_INET ));
|
109 |
$modified |= &updateValue( \$switchports->{$switch}->{'ports'}->{$port}->{$connection}->{'hostname'},gethostbyaddr( inet_aton( $ip ), AF_INET ));
|
| 103 |
$switchports->{$switch}->{'ports'}->{$port}->{$connection}->{'lastseen'} = time() if $modified;
|
110 |
$switchports->{$switch}->{'ports'}->{$port}->{$connection}->{'lastseen'} = time() if $modified;
|
| Line 106... |
Line 113... |
| 106 |
} # for connection
|
113 |
} # for connection
|
| 107 |
} # for port
|
114 |
} # for port
|
| 108 |
} # for switch
|
115 |
} # for switch
|
| 109 |
} # updateIP
|
116 |
} # updateIP
|
| 110 |
|
117 |
|
| - |
|
118 |
sub getAliases {
|
| - |
|
119 |
my ($ip, $community, $MIB ) = @_;
|
| - |
|
120 |
my %return;
|
| - |
|
121 |
# get the aliases
|
| - |
|
122 |
my $values = `snmpwalk -v1 -c $community $ip $MIB`;
|
| - |
|
123 |
my @aliases = split( "\n", $values );
|
| - |
|
124 |
chomp @aliases;
|
| - |
|
125 |
foreach my $entry ( @aliases ) {
|
| - |
|
126 |
$entry =~ m/\.(\d+) = STRING: "?([^"]*)"?$/;
|
| - |
|
127 |
$return{$1} = $2;
|
| - |
|
128 |
}
|
| - |
|
129 |
return \%return;
|
| - |
|
130 |
}
|
| - |
|
131 |
|
| - |
|
132 |
|
| 111 |
if ( -e $CONFIGFILE ) {
|
133 |
if ( -e $CONFIGFILE ) {
|
| 112 |
my $yaml = YAML::Tiny->read( $CONFIGFILE );
|
134 |
my $yaml = YAML::Tiny->read( $CONFIGFILE );
|
| 113 |
%config = %{ $yaml->[0] };
|
135 |
%config = %{ $yaml->[0] };
|
| 114 |
} else {
|
136 |
} else {
|
| 115 |
die "could not locate config file $CONFIGFILE\n";
|
137 |
die "could not locate config file $CONFIGFILE\n";
|
| Line 131... |
Line 153... |
| 131 |
|
153 |
|
| 132 |
&updateValue(
|
154 |
&updateValue(
|
| 133 |
\$switchports{$switch}{'location'},
|
155 |
\$switchports{$switch}{'location'},
|
| 134 |
&getOneSNMPValue( $DEVICELOCMIB,$config{'switches'}{$switch}{'community'},$switch, '= STRING: "?([^"]*)"?' )
|
156 |
&getOneSNMPValue( $DEVICELOCMIB,$config{'switches'}{$switch}{'community'},$switch, '= STRING: "?([^"]*)"?' )
|
| 135 |
);
|
157 |
);
|
| 136 |
|
- |
|
| - |
|
158 |
# get the MAC addresses
|
| 137 |
my $values = `snmpwalk -v1 -c $config{switches}{$switch}{'community'} $switch $SWITCHPORTMIB`;
|
159 |
my $values = `snmpwalk -v1 -c $config{switches}{$switch}{'community'} $switch $SWITCHPORTMIB`;
|
| 138 |
my @lines = split( "\n", $values );
|
160 |
my @lines = split( "\n", $values );
|
| - |
|
161 |
my $aliases = getAliases ( $switch, $config{switches}{$switch}{'community'}, $SWITCHIFNAMEMIB );
|
| - |
|
162 |
|
| 139 |
foreach my $line ( @lines ) {
|
163 |
foreach my $line ( @lines ) {
|
| 140 |
$line =~ m/$SWITCHPORTMIB\.([0-9.]+)\s=\sINTEGER:\s+(\d+)/;
|
164 |
$line =~ m/$SWITCHPORTMIB\.([0-9.]+)\s=\sINTEGER:\s+(\d+)/;
|
| 141 |
my $uuid = $1; # this is the ID string of this MAC; normally the MAC itself in decimal form
|
165 |
my $uuid = $1; # this is the ID string of this MAC; normally the MAC itself in decimal form
|
| 142 |
my $port = $2; # this is the port number
|
166 |
my $port = $2; # this is the port number
|
| 143 |
next unless $port; # skip port 0, or any port which has nothing
|
167 |
next unless $port; # skip port 0, or any port which has nothing
|
| 144 |
next if $config{'switches'}{$switch}{'portsToIgnore'} && grep( /^$port$/, @{$config{'switches'}{$switch}{'portsToIgnore'}} );
|
168 |
next if $config{'switches'}{$switch}{'portsToIgnore'} && grep( /^$port$/, @{$config{'switches'}{$switch}{'portsToIgnore'}} );
|
| 145 |
$switchports{$switch}{'ports'}{$port}{$uuid}{'mac'} = &makeMAC( $1 );
|
169 |
$switchports{$switch}{'ports'}{$port}{$uuid}{'mac'} = &makeMAC( $1 );
|
| - |
|
170 |
$switchports{$switch}{'ports'}{$port}{'alias'} = $aliases->{$port} ? $aliases->{$port} : '';
|
| 146 |
}
|
171 |
}
|
| 147 |
}
|
172 |
}
|
| 148 |
|
173 |
|
| 149 |
# die Dumper( \%switchports );
|
174 |
# die Dumper( \%switchports );
|
| 150 |
|
175 |
|