File Coverage

blib/lib/QualysGuard/Response/HostInfo.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package QualysGuard::Response::HostInfo;

use warnings;
use strict;

use base qw( QualysGuard::Response );

our $VERSION = '0.02';


# =============================================================
# - new
# =============================================================
sub new {
    my ( $class, $xml ) = @_;

    my $self = __PACKAGE__->SUPER::new( $xml );

    bless $self, $class;

    # -- check for QualysGuard function error

    if ( $self->exists('/HOST/ERROR') ) {
        $self->{error_code} = $self->findvalue('/HOST/ERROR/@number');
        $self->{error_text} = $self->getNodeText('/HOST/ERROR');
        $self->{error_text} =~ s/^\s+(.*)\s+$/$1/m;
    }

    return $self;
}



# =============================================================
# - various get methods
# =============================================================
sub get_tracking_method  { $_[0]->getNodeText( '/HOST/TRACKING_METHOD'  )->string_value(); }
sub get_security_risk    { $_[0]->getNodeText( '/HOST/SECURITY_RISK'    )->string_value(); }
sub get_ip               { $_[0]->getNodeText( '/HOST/IP'               )->string_value(); }
sub get_dns              { $_[0]->getNodeText( '/HOST/DNS'              )->string_value(); }
sub get_netbios          { $_[0]->getNodeText( '/HOST/NETBIOS'          )->string_value(); }
sub get_operating_system { $_[0]->getNodeText( '/HOST/OPERATING_SYSTEM' )->string_value(); }
sub get_last_scan_date   { $_[0]->getNodeText( '/HOST/LAST_SCAN_DATE'   )->string_value(); }
sub get_comment          { $_[0]->getNodeText( '/HOST/COMMENT'          )->string_value(); }



# =============================================================
# - get_ticket_numbers
# =============================================================
sub get_ticket_numbers {
    my $self    = shift;
    my @nodes   = $self->findnodes('/HOST/TICKETS/*/*/TICKET_NUMBER');
    my @tickets = ();

    foreach my $node ( @nodes ) {
        push( @tickets, $node->string_value() );
    }

    return \@tickets;
}



# =============================================================
# - get_vuln_info
# =============================================================
sub get_vuln_info {
    my $self = shift;
    my @nodes = $self->findnodes('/HOST/*/*/VULNINFO');
    my @vulns = ();

    foreach my $node ( @nodes ) {

        my @children = $node->getChildNodes();
        my $vuln     = {};

        $vuln->{VULN_LEVEL} = $node->getParentNode()->getParentNode()->getName();

        foreach my $child ( @children ) {
            next unless ( $child->isa( "XML::XPath::Node::Element" ) );

            my $key = $child->getName();

            # ------- CVSS_SCORE -------------------------------------------

            if ( $key eq "CVSS_SCORE" ) {
                $vuln->{$key} = {};
                my @gc = $child->getChildNodes();

                foreach my $c ( @gc ) {
                    next unless ( $c->isa( "XML::XPath::Node::Element" ) );
                    my $ckey = $c->getName();

                    if ( defined $ckey ) {
                        $vuln->{$key}->{$ckey} = $c->string_value();
                    }
                }
            }

            # ------- LISTS -------------------------------------------------

            elsif ( $key eq "VENDOR_REFERENCE_LIST" || $key eq "CVE_ID_LIST" || $key eq "BUGTRAQ_ID_LIST" ) {
                my @n = $child->findnodes( "*/ID" );
                $vuln->{$key} = ();

                foreach my $id ( @n ) {
                    push( @{$vuln->{$key}}, $id->string_value() );
                }
            }

            else {
                $vuln->{$key} = $child->string_value();
            }
        }

        push(@vulns, $vuln);
    }

    return \@vulns;
}



1;

__END__