File Coverage

blib/lib/Net/RADSWrappers.pm

Criterion	Covered	Total	%
statement	16	24	66.6
branch	0	2	0.0
condition			n/a
subroutine	6	7	85.7
pod			n/a
total	22	33	66.6

package Net::RADSWrappers;

use 5.008008;
use strict;
use warnings;

require Exporter;
use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw( getHostName getCountry grabConnections

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '0.01';


# This is just a convieniet wrapper around gethostbyaddr() to take away some of
# the more obnoxious issues with that function

sub getHostName ($) {
    use Socket;
    my $ip_in = shift;
    my $ip = inet_aton($ip_in);
    my $name = gethostbyaddr($ip, AF_INET);

    if (!$name) {
        $name = "NXDOMAIN";
    }

    return $name;
}

# This is just provides a bit of error checking around Geo::IPfree::LookUp

sub getCountry ($) {
    use Geo::IPfree;
    my $ip = shift;
    my ($country) = Geo::IPfree::LookUp($ip);

    if (!$country) {
        $country = "Unknown";
    }
    return $country;
}

sub grabConnections {
    my ($pipe,$port) = @_;
    my %hosts;
    while(<$pipe>) {
        if (/:$port/) {
            my @connection = split (/\s+/, $_);
                if($connection[4] =~ /((\d+\.){3}\d+)/g) {
                    $hosts{$1}++ unless $1 eq '0.0.0.0';
            }
        }
    }
    close $pipe;
    return %hosts;
}


1;
__END__