package DNSCheck;

use Audit::Config;
use strict;

sub new
{
        my $class = shift;
        my $host = shift;

        my $this =
        {
                host   => $host,
        };
        bless ($this, $class);

}

sub run
{
        my $this = shift;

        my $cmd = HOST_BIN . " $this->{'host'} 2>/dev/null";

        my $r = `$cmd`;
        if ($r !~ /has address/)
        {
                return(0);
        }

        return(1);

}

1;