Subversion Repositories camp_sysinfo_client_3

Rev

Rev 69 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 69 Rev 251
Line 17... Line 17...
17 
#
 17 
#
18 
# 2018-05-20 RWR
 18 
# 2018-05-20 RWR
19 
# Modified to use ip vs ifconfig, and changed the regex's.
 19 
# Modified to use ip vs ifconfig, and changed the regex's.
20 
# kept the original ifconfig code but commented it out
 20 
# kept the original ifconfig code but commented it out
21 
 
 21 
 
- 
 
 22 
# find our location and use it for searching for libraries
22 
BEGIN {
 23 
BEGIN {
23 
   push @INC, shift;
 24 
   use FindBin;
- 
 
 25 
   use File::Spec;
- 
 
 26 
   use lib File::Spec->catdir($FindBin::Bin);
- 
 
 27 
   eval( 'use library;' ); die "Could not find library.pm in the code directory\n" if $@;
- 
 
 28 
   eval( 'use Data::Dumper;' );
24 
}
 29 
}
25 
 
 30 
 
26 
use library;
 31 
# check for valid OS.
- 
 
 32 
exit 1 unless &checkOS( { 'linux' => undef } );
27 
 
 33 
 
- 
 
 34 
# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist
- 
 
 35 
# script returns a 2
28 
exit 1 unless lc ( &getOperatingSystem() ) eq 'linux';
 36 
foreach my $command ( 'ip' ) {
29 
 
 - 
 
30 
my $command = &validCommandOnSystem('ip');
 37 
   exit 2 unless &validCommandOnSystem( $command );
31 
 
 38 
}
32 
exit 1 unless $command;
 - 
 
33 
 
 39 
 
34 
my $CATEGORY = 'network';
 40 
my $CATEGORY = 'network';
35 
 
 41 
 
36 
# get list of all interfaces except lo
 42 
# get list of all interfaces except lo
37 
my @interfaces = `$command -o a s | cut -d' ' -f2 | sort | uniq | grep -v 'lo'`;
 43 
my @interfaces = `ip -o a s | cut -d' ' -f2 | sort | uniq | grep -v 'lo'`;
38 
chomp @interfaces;
 44 
chomp @interfaces;
39 
 
 45 
 
40 
my $ipv4Regex = '\b(?:[0-9]{1,3}\.){3}[0-9]{1,3}\b';
 46 
my $ipv4Regex = '\b(?:[0-9]{1,3}\.){3}[0-9]{1,3}\b';
41 
my $ipv6Regex = '(([a-f0-9]+):{1,2})+[a-z0-9]+';
 47 
my $ipv6Regex = '(([a-f0-9]+):{1,2})+[a-z0-9]+';
42 
 
 48 
 
43 
foreach my $if ( @interfaces ) {
 49 
foreach my $if ( @interfaces ) {
44 
   foreach my $line ( `$command address show $if` ) {
 50 
   foreach my $line ( `ip address show $if` ) {
45 
      # mtu
 51 
      # mtu
46 
      if ( $line =~ m/mtu\s+(\d+)/i ) {
 52 
      if ( $line =~ m/mtu\s+(\d+)/i ) {
47 
         print "$CATEGORY\t$if\tmtu\t$1\n";
 53 
         print "$CATEGORY\t$if\tmtu\t$1\n";
48 
      # MAC
 54 
      # MAC
49 
      } elsif ( $line =~ m/((([a-f0-9]{2}):){5}[a-f0-9]+)/i ) {
 55 
      } elsif ( $line =~ m/((([a-f0-9]{2}):){5}[a-f0-9]+)/i ) {