File Coverage

blib/lib/Qualys.pm

Criterion	Covered	Total	%
statement	42	65	64.6
branch	6	24	25.0
condition	1	5	20.0
subroutine	15	17	88.2
pod	9	9	100.0
total	73	120	60.8

package Qualys;


use LWP::UserAgent;
use HTTP::Request;
use vars qw(@ISA $VERSION);

@ISA = qw(LWP::UserAgent);
$VERSION = 0.05;

use constant SERVER => 'qualysapi.qualys.com';
use constant API_PATH => '/msp/';
use constant CONNECTION => 'https://';

sub new {
my ($class,$self) = shift;
  $self = LWP::UserAgent->new(@_);
  $class        = ref($class) || $class;
  $self->{QUALYS_SERVER} = SERVER;
  $self->{QUALYS_URI} = CONNECTION.SERVER.API_PATH;

  bless ($self,$class);
  return $self;
}

# Dealing with API attributes
#AUTOLOAD will dynamically generate the attribute functions when called

sub AUTOLOAD {

  (my $attr = our $AUTOLOAD) =~ s{^.*::}{};
   warn __PACKAGE__.': ->'.$attr.'() method not defined!' && return unless $attr =~ /[^A-Z]/;  # skip DESTROY and all-cap methods

   *$AUTOLOAD = sub {
   	my $self = shift;
   	$self->{QUALYS_ATTRIBUTES}{lc $attr} = shift if(@_);
        return $self->{QUALYS_ATTRIBUTES}{lc $attr};
   };

   goto &$AUTOLOAD;

}


sub attribs {
  my $self = shift;
  my $attr = shift; #hashref

  while(my($att,$val) = each (%$attr))
    {$self->{QUALYS_ATTRIBUTES}{lc($att)} = $val;}

    $self->{QUALYS_ATTRIBUTES};
}

sub clear_attribs {  $_[0]->{QUALYS_ATTRIBUTES} = {};}

sub connect_to {
  my $self = shift;
  my $script = shift;
  my @all_opts = ();
  my $attribs = $self->{QUALYS_ATTRIBUTES};

  if( index(lc($script),'.php') < 1)
    {warn "Script name must end in '.php' not $script";}


  while(my($k,$v) = each (%$attribs) ) {push @all_opts, $k.'='.$v;}

  {
    my $api_url = $self->api_path().$script.'?'.(join '&',@all_opts);
    my $request = HTTP::Request->new(GET => $api_url);
    $self->pr_status("URI = $api_url") if($self->debug);
    my $response = $self->request($request);

    $response->is_success or die "$api_url: ",$response->message,"\n";
    return $response->content;

  }#scope block


}



sub api_path {return $_[0]->{QUALYS_URI}    = $_[1] ? $_[1] : $_[0]->{QUALYS_URI};}
sub server   {return $_[0]->{QUALYS_SERVER} = $_[1] ? $_[1] : $_[0]->{QUALYS_SERVER};}
sub userid   {return $_[0]->{QUALYS_USER}   = $_[1] ? $_[1] : $_[0]->{QUALYS_USER};}
sub passwd   {return $_[0]->{QUALYS_PASS}   = $_[1] ? $_[1] : $_[0]->{QUALYS_PASS};}

sub get_basic_credentials {
    my $self = shift;
    my $realm = shift;
    $self->pr_status("Basic Authentication: '$realm'") if($self->debug);
    if($self->{QUALYS_USER} eq ''){$self->pr_status("No QualysAPI username provided");}
    if($self->{QUALYS_PASS} eq ''){$self->pr_status("No QualysAPI password provided");}

    return ($self->{QUALYS_USER},$self->{QUALYS_PASS});

}

1;

__END__