--- /dev/null
+package Ocsinventory::Agent::Backend::OS::Linux::Network::Networks;
+
+use strict;
+use warnings;
+use Data::Dumper;
+use File::stat;
+use Time::Local;
+
+sub check {
+ my $params = shift;
+ my $common = $params->{common};
+ return unless ($common->can_run("ifconfig") || $common->can_run("ip")) && $common->can_run("route") && $common->can_load("Net::IP qw(:PROC)");
+ 1;
+}
+
+sub getLeaseFile {
+
+ my $if = @_;
+ my @directories = qw(
+ /var/db
+ /var/lib/dhclient
+ /var/lib/dhcp3
+ /var/lib/dhcp
+ /var/lib/NetworkManager
+ );
+ my @patterns = ("*$if*.lease", "*.lease", "dhclient.leases.$if");
+ my @files;
+
+ foreach my $directory (@directories) {
+ next unless -d $directory;
+ foreach my $pattern (@patterns) {
+ push @files,
+ grep { -s $_ }
+ glob("$directory/$pattern");
+ }
+ }
+ return unless @files;
+ @files =
+ map {$_->[0]}
+ sort {$a->[1]->ctime()<=>$b->[1]->ctime()}
+ map {[$_,stat($_)]}
+ @files;
+ return $files[-1];
+
+}
+
+sub _ipdhcp {
+
+ my $if = shift;
+ my $path;
+ my $dhcp;
+ my $ipdhcp;
+ my $leasepath;
+
+ if( $leasepath = getLeaseFile($if) ) {
+ if (open DHCP, $leasepath) {
+ my $lease;
+ while(<DHCP>){
+ $lease = 1 if(/lease\s*{/i);
+ $lease = 0 if(/^\s*}\s*$/);
+ #Interface name
+ if ($lease) { #inside a lease section
+ if (/interface\s+"(.+?)"\s*/){
+ $dhcp = ($1 =~ /^$if$/);
+ }
+ #Server IP
+ if (/option\s+dhcp-server-identifier\s+(\d{1,3}(?:\.\d{1,3}){3})\s*;/ and $dhcp){
+ $ipdhcp = $1;
+ }
+ }
+ }
+ close DHCP or warn;
+ } else {
+ warn "Can't open $leasepath\n";
+ }
+ }
+ return $ipdhcp;
+}
+
+# Initialise the distro entry
+sub run {
+
+ my $params = shift;
+ my $common = $params->{common};
+ my $logger = $params->{logger};
+
+ my $description;
+ my $driver;
+ my $ipaddress;
+ my $ipgateway;
+ my $ipmask;
+ my $ipsubnet;
+ my $macaddr;
+ my $pcislot;
+ my $status;
+ my $type;
+ my $virtualdev;
+ my $settings;
+ my $speed;
+ my $current_speed;
+ my $duplex;
+ my $ssid;
+ my $bssid;
+ my $mode;
+ my $version;
+ my $bitrate;
+ my $address;
+ my $mask4;
+ my $mask6;
+ my $binip;
+ my $binmask;
+ my $binsubnet;
+ my $mtu;
+
+ my %gateway;
+
+ if ($common->can_run("ip")){
+ my @ipLink = `ip -o link`;
+ foreach my $line (`ip -o addr`) {
+ $ipsubnet = $ipaddress = $ipmask = $ipgateway = $macaddr = $status = $type = $speed = $duplex = $driver = $pcislot = $virtualdev = $mtu = undef;
+ $description = "";
+ if ($line =~ /lo.*(127\.0\.0\.1\/8)/) { # ignore default loopback interface
+ next;
+ }
+ if ($line =~ /lo.*(::1\/128)/) { # ignore default loopback interface
+ next;
+ }
+
+ $description = $1 if ($line =~ /\d:\s+([\w\d]+)\s+/i);
+
+ if ($line =~ /inet (\S+)\/(\d{2})/i){
+ $ipaddress = $1;
+ $mask4 = $2;
+ } elsif ($line =~ /inet6 (\S+)\/(\d{2})/i){
+ $ipaddress = $1;
+ $mask6 = $2;
+ }
+
+ if (ip_is_ipv4($ipaddress)){
+ foreach (`route -n`) {
+ if (/^(\d+\.\d+\.\d+\.\d+)\s+(\d+\.\d+\.\d+\.\d+)/) {
+ $gateway{$1} = $2;
+ }
+ }
+
+ if (defined ($gateway{'0.0.0.0'})) {
+ $common->setHardware({
+ DEFAULTGATEWAY => $gateway{'0.0.0.0'}
+ });
+ }
+
+
+ $ipmask = ip_bintoip(ip_get_mask($mask4,4),4) if $mask4;
+ $binip = ip_iptobin($ipaddress,4) if $ipaddress;
+ $binmask = ip_iptobin($ipmask,4) if $ipmask;
+ $binsubnet = $binip & $binmask if ($binip && $binmask);
+ $ipsubnet = ip_bintoip($binsubnet,4) if $binsubnet;
+ } elsif (ip_is_ipv6($ipaddress)) {
+
+ foreach (`route -nA inet6`) {
+ if(/^(\S+)\/\d{1,3}\s+(\S+)/) {
+ next if ($1 eq $2);
+ $gateway{$1} = $2;
+ }
+ }
+
+ $ipmask = ip_bintoip(ip_get_mask($mask6,6),6) if $mask6;;
+ $binip = ip_iptobin(ip_expand_address($ipaddress,6),6) if $ipaddress;
+ $binmask = ip_iptobin(ip_expand_address($ipmask,6),6) if $ipmask;
+ $binsubnet = $binip & $binmask if ($binip && $binmask);
+ $ipsubnet = ip_compress_address(ip_bintoip($binsubnet,6),6) if $binsubnet;
+ }
+
+ my @line1 = split " ", $line;
+ my @linkData = split " ", (grep {/$line1[1]/} @ipLink)[0];
+ $macaddr = uc $linkData[-3];
+ $mtu = $linkData[4];
+
+ if ($linkData[2] =~ /,UP/) {
+ $status = "UP";
+ } else {
+ $status = "DOWN";
+ }
+
+ $type = $linkData[-4];
+ if ($type =~ /ether/){
+ $type = "Ethernet";
+ } elsif ($type =~ /loopback/) {
+ $type = "Loopback";
+ }
+
+ $ipgateway = $gateway{$ipsubnet} if $ipsubnet;
+ # replace '0.0.0.0' and '::' (ie 'default gateway') by the default gateway IP address if it exists
+ if (defined($ipgateway) and $ipgateway eq '0.0.0.0' and defined($gateway{'0.0.0.0'})) {
+ $ipgateway = $gateway{'0.0.0.0'};
+ }
+ if (defined($ipgateway) and $ipgateway eq '::' and defined($gateway{'::'})) {
+ $ipgateway = $gateway{'::'};
+ }
+
+ if (open UEVENT, "</sys/class/net/$description/device/uevent") {
+ foreach (<UEVENT>) {
+ $driver = $1 if /^DRIVER=(\S+)/;
+ $pcislot = $1 if /^PCI_SLOT_NAME=(\S+)/;
+ }
+ close UEVENT;
+ }
+
+ # Retrieve speed from /sys/class/net/$description/speed
+ if ( ! -z "/sys/class/net/$description/speed") {
+ if(open SPEED, "</sys/class/net/$description/speed") {
+ foreach (<SPEED>){
+ $current_speed=$_;
+ }
+ close SPEED;
+ }
+
+ if (defined $current_speed) {
+ chomp($current_speed);
+ if ($current_speed eq "65535"){
+ $current_speed = 0;
+ } elsif ( $current_speed gt 100 ){
+ $speed = ($current_speed/1000)." Gbps";
+ } else {
+ $speed = $current_speed." Mbps";
+ }
+ }
+ }
+
+ # Retrieve duplex from /sys/class/net/$description/duplex
+ if (open DUPLEX, "</sys/class/net/$description/duplex"){
+ foreach (<DUPLEX>){
+ $duplex=chomp($_);
+ }
+ close DUPLEX;
+ }
+
+ # Reliable way to get the info
+ if (-d "/sys/devices/virtual/net/") {
+ $virtualdev = (-d "/sys/devices/virtual/net/$description")?"1":"0";
+ } elsif ($common->can_run("brctl")) {
+ # Let's guess
+ my %bridge;
+ foreach (`brctl show`) {
+ next if /^bridge name/;
+ $bridge{$1} = 1 if /^(\w+)\s/;
+ }
+ if ($pcislot) {
+ $virtualdev = "1";
+ } elsif ($bridge{$description}) {
+ $virtualdev = "0";
+ }
+ $type = "bridge";
+ }
+
+ if (-d "/sys/class/net/$description/wireless"){
+ my @wifistatus = `iwconfig $description`;
+ foreach my $line (@wifistatus){
+ $ssid = $1 if ($line =~ /ESSID:(\S+)/);
+ $version = $1 if ($line =~ /IEEE (\S+)/);
+ $mode = $1 if ($line =~ /Mode:(\S+)/);
+ $bssid = $1 if ($line =~ /Access Point: (\S+)/);
+ $bitrate = $1 if ($line =~ /Bit\sRate=\s*(\S+\sMb\/s)/i);
+ }
+ $type = "Wifi";
+ }
+ if ($description ne "") {
+ if ($type eq "Wifi") {
+ $common->addNetwork({
+ DESCRIPTION => $description,
+ DRIVER => $driver,
+ IPADDRESS => $ipaddress,
+ IPDHCP => _ipdhcp($description),
+ IPGATEWAY => $ipgateway,
+ IPMASK => $ipmask,
+ IPSUBNET => $ipsubnet,
+ MACADDR => $macaddr,
+ PCISLOT => $pcislot,
+ STATUS => $status,
+ TYPE => $type,
+ SPEED => $bitrate,
+ SSID => $ssid,
+ BSSID => $bssid,
+ IEEE => $version,
+ MODE => $mode,
+ });
+ } else {
+ $common->addNetwork({
+ DESCRIPTION => $description,
+ DRIVER => $driver,
+ IPADDRESS => $ipaddress,
+ IPDHCP => _ipdhcp($description),
+ IPGATEWAY => $ipgateway,
+ IPMASK => $ipmask,
+ IPSUBNET => $ipsubnet,
+ MACADDR => $macaddr,
+ PCISLOT => $pcislot,
+ STATUS => $status,
+ TYPE => $type,
+ VIRTUALDEV => $virtualdev,
+ DUPLEX => $duplex?"Full":"Half",
+ SPEED => $speed,
+ MTU => $mtu,
+ });
+ }
+ }
+ }
+ }
+
+ elsif ($common->can_run("ifconfig")){
+ foreach my $line (`ifconfig -a`) {
+ if ($line =~ /^$/ && $description && $macaddr) {
+ # end of interface section
+ # I write the entry
+ if (ip_is_ipv4($ipaddress)){
+ foreach (`route -n`) {
+ if (/^(\d+\.\d+\.\d+\.\d+)\s+(\d+\.\d+\.\d+\.\d+)/) {
+ $gateway{$1} = $2;
+ }
+ }
+
+ if (defined ($gateway{'0.0.0.0'})) {
+ $common->setHardware({
+ DEFAULTGATEWAY => $gateway{'0.0.0.0'}
+ });
+ }
+
+ $binip = ip_iptobin ($ipaddress ,4) if $ipaddress;
+ $binmask = ip_iptobin ($ipmask,4) if $ipmask;
+ $binsubnet = $binip & $binmask if ($binip && $binmask);
+ $ipsubnet = ip_bintoip($binsubnet,4) if $binsubnet;
+ } elsif (ip_is_ipv6($ipaddress)) {
+ # Table de routage IPv6 du noyau
+ # Destination Next Hop Flag Met Ref Use If
+ # fe80::/64 [::] U 256 0 0 wlp6s0
+ # foreach (`route -6`) {
+ # if (/^(\S+\/\d{2})\s+(\S+)/) {
+ # $gateway{$1} = $2;
+ # }
+ #}
+ #if (defined ($gateway{'fe80::/64'})) {
+ # $common->setHardware({
+ # DEFAULTGATEWAY => $gateway{'fe80::/64'}
+ # });
+ #}
+
+ foreach (`route -nA inet6`) {
+ if(/^(\S+)\/\d{1,3}\s+(\S+)/) {
+ next if ($1 eq $2);
+ $gateway{$1} = $2;
+ }
+ }
+
+
+ $ipmask = ip_bintoip(ip_get_mask($mask6,6),6) if $mask6;;
+ $binip = ip_iptobin(ip_expand_address($ipaddress,6),6) if $ipaddress;
+ $binmask = ip_iptobin(ip_expand_address($ipmask,6),6) if $ipmask;
+ $binsubnet = $binip & $binmask if ($binip && $binmask);
+ $ipsubnet = ip_compress_address(ip_bintoip($binsubnet,6),6) if $binsubnet;
+ }
+
+ $ipgateway = $gateway{$ipsubnet} if $ipsubnet;
+
+ if (-d "/sys/class/net/$description/wireless"){
+ my @wifistatus = `iwconfig $description`;
+ foreach my $line (@wifistatus){
+ $ssid = $1 if ($line =~ /ESSID:(\S+)/);
+ $version = $1 if ($line =~ /IEEE (\S+)/);
+ $mode = $1 if ($line =~ /Mode:(\S+)/);
+ $bssid = $1 if ($line =~ /Access Point: (\S+)/);
+ $bitrate = $1 if ($line =~ /Bit\sRate=\s*(\S+\sMb\/s)/i);
+ }
+ $type = "Wifi";
+ }
+
+ if (-f "/sys/class/net/$description/mode"){
+ $type = "infiniband";
+ }
+
+ # replace '0.0.0.0' and '::' (ie 'default gateway') by the default gateway IP address if it exists
+ if (defined($ipgateway) and $ipgateway eq '0.0.0.0' and defined($gateway{'0.0.0.0'})) {
+ $ipgateway = $gateway{'0.0.0.0'};
+ }
+ if (defined($ipgateway) and $ipgateway eq '::' and defined($gateway{'::'})) {
+ $ipgateway = $gateway{'::'};
+ }
+
+ if (open UEVENT, "</sys/class/net/$description/device/uevent") {
+ foreach (<UEVENT>) {
+ $driver = $1 if /^DRIVER=(\S+)/;
+ $pcislot = $1 if /^PCI_SLOT_NAME=(\S+)/;
+ }
+ close UEVENT;
+ }
+
+ # Retrieve speed from /sys/class/net/$description/speed
+ if ( ! -z "/sys/class/net/$description/speed") {
+ open SPEED, "</sys/class/net/$description/speed";
+ foreach (<SPEED>){
+ $current_speed=$_;
+ }
+ close SPEED;
+ chomp($current_speed);
+
+ $current_speed=0 if $current_speed eq "";
+ if ($current_speed eq "65535"){
+ $current_speed = 0;
+ }
+ if ($current_speed gt 100 ){
+ $speed = ($current_speed/1000)." Gbps";
+ } else {
+ $speed = $current_speed." Mbps";
+ }
+ }
+
+ # Retrieve duplex from /sys/class/net/$description/duplex
+ if (! -z "/sys/class/net/$description/duplex") {
+ open DUPLEX, "</sys/class/net/$description/duplex";
+ foreach (<DUPLEX>){
+ $duplex=chomp($_);
+ }
+ close DUPLEX;
+ }
+
+ # Reliable way to get the info
+ if (-d "/sys/devices/virtual/net/") {
+ $virtualdev = (-d "/sys/devices/virtual/net/$description")?"1":"0";
+ } elsif ($common->can_run("brctl")) {
+ # Let's guess
+ my %bridge;
+ foreach (`brctl show`) {
+ next if /^bridge name/;
+ $bridge{$1} = 1 if /^(\w+)\s/;
+ }
+ if ($pcislot) {
+ $virtualdev = "1";
+ } elsif ($bridge{$description}) {
+ $virtualdev = "0";
+ }
+ $type = "bridge";
+ }
+
+ if ($type eq "Wifi") {
+ $common->addNetwork({
+ DESCRIPTION => $description,
+ DRIVER => $driver,
+ IPADDRESS => $ipaddress,
+ IPDHCP => _ipdhcp($description),
+ IPGATEWAY => $ipgateway,
+ IPMASK => $ipmask,
+ IPSUBNET => $ipsubnet,
+ MACADDR => $macaddr,
+ PCISLOT => $pcislot,
+ STATUS => $status,
+ TYPE => $type,
+ SPEED => $bitrate,
+ SSID => $ssid,
+ BSSID => $bssid,
+ IEEE => $version,
+ MODE => $mode,
+ });
+ } else {
+ $common->addNetwork({
+ DESCRIPTION => $description,
+ DRIVER => $driver,
+ IPADDRESS => $ipaddress,
+ IPDHCP => _ipdhcp($description),
+ IPGATEWAY => $ipgateway,
+ IPMASK => $ipmask,
+ IPSUBNET => $ipsubnet,
+ MACADDR => $macaddr,
+ PCISLOT => $pcislot,
+ STATUS => $status,
+ TYPE => $type,
+ VIRTUALDEV => $virtualdev,
+ DUPLEX => $duplex?"Full":"Half",
+ SPEED => $speed,
+ MTU => $mtu,
+ });
+ }
+ }
+
+ if ($line =~ /^$/) { # End of section
+ $description = $driver = $ipaddress = $ipgateway = $ipmask = $ipsubnet = $macaddr = $pcislot = $status = $type = $virtualdev = $speed = $duplex = $mtu = undef;
+ } else { # In a section
+ if ($line =~ /^(\S+):\s\S+\s*mtu\s(\d+)/) {
+ $description = $1; # Interface name
+ $mtu = $2;
+ }
+
+ $description = $1 if($line =~ /^(\w+)\s+/); # Interface name
+
+ # BUG: ipv4 address gets overwritten by ipv6 address but we want all ip addresses
+ if ($line =~ /inet add?r:(\S+)/i || $line =~ /^\s*inet\s+(\S+)/i || $line =~ /inet (\S+)\s+netmask/i){
+ $ipaddress=$1;
+ } elsif ($line =~ /inet6 (\S+)\s+prefixlen\s+(\d{2})/i){
+ $ipaddress=$1;
+ $mask6=$2;
+ }
+ if ($line =~ /\S*mask:(\S+)/i || $line =~ /\S*netmask (\S+)\s/i){
+ $ipmask=$1;
+ }
+ $macaddr = $1 if ($line =~ /hwadd?r\s+(\w{2}:\w{2}:\w{2}:\w{2}:\w{2}:\w{2})/i || $line =~ /ether\s+(\w{2}:\w{2}:\w{2}:\w{2}:\w{2}:\w{2})/i);
+ $status = 1 if ($line =~ /^\s+UP\s/ || $line =~ /flags=.*[<,]UP[,>]/);
+ $type = $1 if ($line =~ /link encap:(\S+)/i);
+ $type = $2 if ($line =~ /^\s+(loop|ether).*\((\S+)\)/i);
+ $mtu = $1 if ($line =~ /MTU:(\d+)/i);
+ }
+ }
+ }
+}
+
+1;
+
projects / ocsinventory-agent-cn.git / blobdiff