File Coverage

blib/lib/Metabrik/Api/Cvesearch.pm

Criterion	Covered	Total	%
statement	9	41	21.9
branch	0	20	0.0
condition			n/a
subroutine	3	10	30.0
pod	1	7	14.2
total	13	78	16.6

#
# $Id$
#
# api::cvesearch Brik
#
package Metabrik::Api::Cvesearch;
use strict;
use warnings;

use base qw(Metabrik::Client::Rest);

sub brik_properties {
   return {
      revision => '$Revision$',
      tags => [ qw(unstable) ],
      author => 'GomoR ',
      license => 'http://opensource.org/licenses/BSD-3-Clause',
      commands => {
         db_info => [ ],
         browse => [ ],
         browse_vendor => [ qw(vendor) ],
         search => [ qw(vendor product) ],
         cve => [ qw(cve) ],
         last => [ ],
      },
   };
}

#
# https://www.circl.lu/services/cve-search/
#

sub db_info {
   my $self = shift;

   my $url = 'http://cve.circl.lu/api/dbInfo';

   $self->get($url) or return;

   return $self->content;
}

sub browse {
   my $self = shift;

   my $url = 'http://cve.circl.lu/api/browse';

   $self->get($url) or return;

   return $self->content;
}

sub browse_vendor {
   my $self = shift;
   my ($vendor) = @_;

   $self->brik_help_run_undef_arg('browse_vendor', $vendor) or return;

   my $url = 'http://cve.circl.lu/api/browse/'.$vendor;

   $self->get($url) or return;

   return $self->content;
}

sub search {
   my $self = shift;
   my ($vendor, $product) = @_;

   $self->brik_help_run_undef_arg('search', $vendor) or return;
   $self->brik_help_run_undef_arg('search', $product) or return;

   my $url = 'http://cve.circl.lu/api/search/'.$vendor.'/'.$product;

   $self->get($url) or return;

   return $self->content;
}

sub cve {
   my $self = shift;
   my ($cve) = @_;

   $self->brik_help_run_undef_arg('cve', $cve) or return;

   my $url = 'http://cve.circl.lu/api/cve/'.$cve;

   $self->get($url) or return;

   return $self->content;
}

sub last {
   my $self = shift;

   my $url = 'http://cve.circl.lu/api/last';

   $self->get($url) or return;

   return $self->content;
}

1;

__END__