| 48 |
rodolico |
1 |
#!/usr/bin/env perl
|
|
|
2 |
use warnings;
|
|
|
3 |
use strict;
|
|
|
4 |
|
|
|
5 |
# Description: Networking for Unix systems
|
|
|
6 |
|
|
|
7 |
our $VERSION = '1.2';
|
|
|
8 |
|
|
|
9 |
# Linux network module for sysinfo client
|
|
|
10 |
# Author: R. W. Rodolico
|
|
|
11 |
# Date: 2016-04-08
|
|
|
12 |
|
|
|
13 |
# module to get network interface information for Linux systems
|
|
|
14 |
# assumes ifconfig is on the system and executable by the user
|
|
|
15 |
# NOTE: this takes the ifconfig output and parses it, so changes to
|
|
|
16 |
# this output invalidates this module
|
|
|
17 |
|
| 251 |
rodolico |
18 |
# find our location and use it for searching for libraries
|
| 48 |
rodolico |
19 |
BEGIN {
|
| 251 |
rodolico |
20 |
use FindBin;
|
|
|
21 |
use File::Spec;
|
|
|
22 |
use lib File::Spec->catdir($FindBin::Bin);
|
|
|
23 |
eval( 'use library;' ); die "Could not find library.pm in the code directory\n" if $@;
|
|
|
24 |
eval( 'use Data::Dumper;' );
|
| 48 |
rodolico |
25 |
}
|
|
|
26 |
|
| 251 |
rodolico |
27 |
# check for valid OS.
|
|
|
28 |
exit 1 unless &checkOS( { 'freebsd' => undef } );
|
| 48 |
rodolico |
29 |
|
| 251 |
rodolico |
30 |
# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist
|
|
|
31 |
# script returns a 2
|
|
|
32 |
foreach my $command ( '/sbin/ifconfig' ) {
|
|
|
33 |
exit 2 unless &validCommandOnSystem( $command );
|
|
|
34 |
}
|
| 48 |
rodolico |
35 |
|
|
|
36 |
|
|
|
37 |
my $CATEGORY = 'network';
|
|
|
38 |
# xn0: flags=8943<UP,BROADCAST,RUNNING,PROMISC,SIMPLEX,MULTICAST> metric 0 mtu 1500
|
|
|
39 |
# ether 00:16:3e:ff:ff:04
|
|
|
40 |
my $regexHWADDR = 'ether\s+([0-9a-f:]+)';
|
|
|
41 |
# inet 74.113.60.189 netmask 0xffffffc0 broadcast 74.113.60.191
|
|
|
42 |
my $regexINET = 'inet\s*([0-9.]+)[^0-9].*netmask 0x([0-9a-z]+)';
|
|
|
43 |
# inet6 addr: fe80::216:3eff:fe1f:ef4f/64 Scope:Link
|
|
|
44 |
my $regexINET6 = 'inet6\s*([0-9a-f:]+).*prefixlen\s*(\d+)';
|
|
|
45 |
# UP LOOPBACK RUNNING MTU:16436 Metric:1
|
|
|
46 |
my $regexMTU = 'mtu\s([0-9]+)';
|
| 251 |
rodolico |
47 |
my $temp = qx( /sbin/ifconfig );
|
| 48 |
rodolico |
48 |
my @temp = split( "\n", $temp );
|
|
|
49 |
my $currentIF;
|
|
|
50 |
while ( @temp ) {
|
|
|
51 |
my $line = shift @temp;
|
|
|
52 |
next unless $line;
|
|
|
53 |
if ( $line =~ m/^([^ ]+):/) { # if the first character is not a space, starting new entry
|
|
|
54 |
$currentIF = $1;
|
|
|
55 |
if ( $line =~ m/$regexMTU/i ) {
|
|
|
56 |
print "$CATEGORY\t$currentIF\tmtu\t$1\n";
|
|
|
57 |
}
|
|
|
58 |
} elsif ( $line =~ m/$regexHWADDR/i ) {
|
|
|
59 |
print "$CATEGORY\t$currentIF\tmac\t$1\n";
|
|
|
60 |
} elsif ( $line =~ m/$regexINET/i ) {
|
|
|
61 |
print "$CATEGORY\t$currentIF\taddress\t$1\n";
|
|
|
62 |
print "$CATEGORY\t$currentIF\tnetmask\t$2\n";
|
|
|
63 |
} elsif ( $line =~ m/$regexINET6/i ) {
|
|
|
64 |
print "$CATEGORY\t$currentIF\tip6address\t$1\n";
|
|
|
65 |
print "$CATEGORY\t$currentIF\tip6networkbits\t$2\n";
|
|
|
66 |
} elsif ( $line =~ m/$regexMTU/i ) {
|
|
|
67 |
print "$CATEGORY\t$currentIF\tmtu\t$1\n";
|
|
|
68 |
}
|
|
|
69 |
}
|