Beta Shell v2.0

File Manager

~ /usr/share/perl5/vendor_perl/Ocsinventory/Agent/Backend/OS/Linux/Network

Name	Size	Perms	Modified	Actions
[ .. / .. ]
IP.pm	1.16 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
Networks.pm	34.14 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del

Editing: IP.pm (1.16 KB)

package Ocsinventory::Agent::Backend::OS::Linux::Network::IP;

sub check {
    my $params = shift;
    my $common = $params->{common};
    return unless $common->can_run ("ip") || $common->can_run("ifconfig");
    1;
}

# Initialise the distro entry
sub run {
    my $params = shift;
    my $common = $params->{common};
    my @ip;
    my @ip6;

    if ($common->can_run("ip")){
        foreach (`ip a`){
            if (/inet (\S+)\/\d{1,2}/){
                ($1=~/^127.+/)?next:push @ip,$1;
            } elsif (/inet6 (\S+)\d{2}/){
                ($1=~/::1\/128/)?next:push @ip6, $1;
            }
        }
    } elsif ($common->can_run("ifconfig")){
        foreach (`ifconfig`){
            #if(/^\s*inet\s*(\S+)\s*netmask/){
            if (/^\s*inet add?r\s*:\s*(\S+)/ || /^\s*inet\s+(\S+)/){
                ($1=~/^127.+/)?next:push @ip, $1;
            } elsif (/^\s*inet6\s+(\S+)/){
                ($1=~/::1/)?next:push @ip6, $1;
            }
        }
    }

    my $ip=join "/", @ip;
    my $ip6=join "/", @ip6;
    if (defined $ip) {
          $common->setHardware({IPADDR => $ip});
    } else {
          $common->setHardware({IPADDR => $ip6});
          
    }
}

1;