Subversion Repositories camp_sysinfo_client_3

Rev

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

Rev 69 Rev 251
Line 13... Line 13...
13 
# module to get network interface information for Linux systems
 13 
# module to get network interface information for Linux systems
14 
# assumes ifconfig is on the system and executable by the user
 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
15 
# NOTE: this takes the ifconfig output and parses it, so changes to
16 
#       this output invalidates this module
 16 
#       this output invalidates this module
17 
 
 17 
 
- 
 
 18 
# find our location and use it for searching for libraries
18 
BEGIN {
 19 
BEGIN {
19 
   push @INC, shift;
 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;' );
20 
}
 25 
}
21 
 
 26 
 
22 
use library;
 27 
# check for valid OS.
- 
 
 28 
exit 1 unless &checkOS( { 'freebsd' => undef } );
23 
 
 29 
 
- 
 
 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' ) {
24 
exit 1 unless &getOperatingSystem() =~ m/bsd/i;
 33 
   exit 2 unless &validCommandOnSystem( $command );
25 
 
 34 
}
26 
my $command = &validCommandOnSystem('/sbin/ifconfig');
 - 
 
27 
 
 35 
 
28 
exit 1 unless $command;
 - 
 
29 
 
 36 
 
30 
my $CATEGORY = 'network';
 37 
my $CATEGORY = 'network';
31 
# xn0: flags=8943<UP,BROADCAST,RUNNING,PROMISC,SIMPLEX,MULTICAST> metric 0 mtu 1500
 38 
# xn0: flags=8943<UP,BROADCAST,RUNNING,PROMISC,SIMPLEX,MULTICAST> metric 0 mtu 1500
32 
# ether 00:16:3e:ff:ff:04
 39 
# ether 00:16:3e:ff:ff:04
33 
my $regexHWADDR = 'ether\s+([0-9a-f:]+)';
 40 
my $regexHWADDR = 'ether\s+([0-9a-f:]+)';
Line 35... Line 42...
35 
my $regexINET = 'inet\s*([0-9.]+)[^0-9].*netmask 0x([0-9a-z]+)';
 42 
my $regexINET = 'inet\s*([0-9.]+)[^0-9].*netmask 0x([0-9a-z]+)';
36 
# inet6 addr: fe80::216:3eff:fe1f:ef4f/64 Scope:Link
 43 
# inet6 addr: fe80::216:3eff:fe1f:ef4f/64 Scope:Link
37 
my $regexINET6 = 'inet6\s*([0-9a-f:]+).*prefixlen\s*(\d+)';
 44 
my $regexINET6 = 'inet6\s*([0-9a-f:]+).*prefixlen\s*(\d+)';
38 
# UP LOOPBACK RUNNING  MTU:16436  Metric:1
 45 
# UP LOOPBACK RUNNING  MTU:16436  Metric:1
39 
my $regexMTU = 'mtu\s([0-9]+)';
 46 
my $regexMTU = 'mtu\s([0-9]+)';
40 
my $temp = qx/$command/;
 47 
my $temp = qx( /sbin/ifconfig );
41 
my @temp = split( "\n", $temp );
 48 
my @temp = split( "\n", $temp );
42 
my $currentIF;
 49 
my $currentIF;
43 
while ( @temp ) {
 50 
while ( @temp ) {
44 
   my $line = shift @temp;
 51 
   my $line = shift @temp;
45 
   next unless $line;
 52 
   next unless $line;