File Coverage

blib/lib/DBD/Sys/Plugin/Any/NetIfconfigWrapper.pm

Criterion	Covered	Total	%
statement	13	41	31.7
branch	0	16	0.0
condition			n/a
subroutine	5	9	55.5
pod	5	5	100.0
total	23	71	32.3

package DBD::Sys::Plugin::Any::NetIfconfigWrapper;

use strict;
use warnings;
use vars qw($VERSION @colNames);

use base qw(DBD::Sys::Table);

=pod

=head1 NAME

DBD::Sys::Plugin::Any::NetIfconfigWrapper - provides a table containing the known network interfaces

=head1 SYNOPSIS

  $netifs = $dbh->selectall_hashref("select * from netint", "interface");

$VERSION = "0.02";
=head1 ISA

  DBD::Sys::Plugin::Any::NetIfconfigWrapper
  ISA DBD::Sys::Table

=cut

my $haveNetIfconfigWrapper;
my $haveNetAddrIP;

@colNames = qw(interface address_family address netmask broadcast hwaddress flags_bin flags);

=head1 DESCRIPTION

This module provides the table C which contains the network
interfaces configured on a host and it's assigned addresses.

=head2 COLUMNS

=head3 interface

Interface name (e.g. eth0, em0, ...)

=head3 address_family

Address family of following address

=head3 address

The address of the interface (addresses are unique, interfaces can have
multiple addresses).

=head3 netmask

Netmask of the address above.

=head3 broadcast

Broadcast address for network address

=head3 hwaddress

Hardware address (MAC number) of the interface NIC.

=head3 flags_bin

Binary representation of the interface flags (at least I or I).

=head3 flags

Comma separated list of the flags.

=head1 METHODS

=head2 get_table_name

Returns 'netint'.

=cut

sub get_table_name() { return 'netint'; }

=head2 get_col_names

Returns the column names of the table as named in L

=cut

sub get_col_names() { @colNames }

=head2 get_primary_key

Returns 'address'.

=cut

sub get_primary_key() { return [qw(interface address_family address)]; }

=head2 get_priority

Returns 200 to let L dominate.

=cut

sub get_priority() { return 200; }

=head2 collect_data

Retrieves the data from L and put it into fetchable rows.

=cut

sub collect_data()
{
    my @data;

    unless ( defined($haveNetIfconfigWrapper) )
    {
        $haveNetIfconfigWrapper = 0;
        eval {
            require Net::Ifconfig::Wrapper;
            $haveNetIfconfigWrapper = 1;
        };
    }

    unless ( defined($haveNetAddrIP) )
    {
        $haveNetAddrIP = 0;
        eval {
            require NetAddr::IP;
            $haveNetAddrIP = 1;
        };
    }

    if ($haveNetIfconfigWrapper)
    {
        my $info = Net::Ifconfig::Wrapper::Ifconfig( 'list', '', '', '' ) or return [];
        foreach my $interface ( keys %$info )
        {
            my $ifdata = $info->{$interface};
            if ( exists $ifdata->{inet} )
            {
                while ( my ( $addr, $netmask ) = each %{ $ifdata->{inet} } )
                {
                    my $bcast;
                    if ($haveNetAddrIP)
                    {
                        # XXX let's see what happens when Net::Ifconfig::Wrapper::Ifconfig delivers IPv6 addresses ...
                        my $ip = NetAddr::IP->new( $addr, $netmask );
                        $bcast = $ip->broadcast();
                    }

                    push(
                          @data,
                          [
                             $interface, 'inet', $addr, $netmask, $bcast, $ifdata->{ether},
                             $ifdata->{status}, ( $ifdata->{status} ? '' : '' )
                          ]
                        );
                }
            }
            else
            {
                push(
                      @data,
                      [
                         $interface, undef, undef, undef, undef, $ifdata->{ether},
                         $ifdata->{status}, ( $ifdata->{status} ? '' : '' )
                      ]
                    );
            }
        }

    }

    return \@data;
}

=head1 PREREQUISITES

The module L is required to provide data for the table.

=head1 AUTHOR

    Jens Rehsack			Alexander Breibach
    CPAN ID: REHSACK
    [e-mail]			[e-mail]
    http://www.rehsack.de/

=head1 COPYRIGHT

This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the
LICENSE file included with this module.

=head1 SUPPORT

Free support can be requested via regular CPAN bug-tracking system. There is
no guaranteed reaction time or solution time, but it's always tried to give
accept or reject a reported ticket within a week. It depends on business load.
That doesn't mean that ticket via rt aren't handles as soon as possible,
that means that soon depends on how much I have to do.

Business and commercial support should be acquired from the authors via
preferred freelancer agencies.

=cut

1;