File Coverage

blib/lib/NIST/NVD/Update.pm

Criterion	Covered	Total	%
statement	15	42	35.7
branch			n/a
condition			n/a
subroutine	5	14	35.7
pod	9	9	100.0
total	29	65	44.6

package NIST::NVD::Update;

use warnings;
use strict;

use Carp;

use NIST::NVD::Query;
use base qw{NIST::NVD::Query};


=head1 NAME

NIST::NVD::Update - Query and Update the NVD database

=head1 VERSION

Version 1.00.00

=cut

our $VERSION = '1.00.00';

=head1 SYNOPSIS

    use NIST::NVD::Update;

    # use convert_nvdcve to generate these files from the XML dumps:
    # http://nvd.nist.gov/download.cfm

    my $u = NIST::NVD::Update->new(
        store => $some_store,
        %args
    );

=head1 SUBROUTINES/METHODS

=head2 new

  # See NIST::NVD::Storage::DB_File or NIST::NVD::Storage::SQLite3 for
  # an example store implementation

  my $NVD_Updater =
    NIST::NVD::Update->new( store => $store_type, %args );

=cut


=head2 put_cve_idx_cpe

 my $result = put_cve_idx_cpe ( $cpe_urn, $cve_list )

=cut

sub put_cve_idx_cpe {
	my $self = shift;
	# TODO: Validate

	my $result = $self->{store}->put_cve_idx_cpe(@_);

	return $result;
}

=head2 update_websec_idx_cpe

 my $result = update_websec_idx_cpe ();

=cut

sub update_websec_idx_cpe {
	my $self = shift;
	# TODO: Validate

	my $result = $self->{store}->update_websec_idx_cpe(@_);

	return $result;
}

=head2 put_cwe_idx_cpe

 my $result = put_cwe_idx_cpe ( $cpe_urn, $cwe_id )

=cut

sub put_cwe_idx_cpe {
	my $self = shift;

	my $result = $self->{store}->put_cwe_idx_cpe(@_);

	return $result
}

=head2 put_cwe_idx_cve

 my $result = put_cwe_idx_cve ( { NVD_ID0 => $data_about_NVD_ID[0],
																	NVD_ID1 => $data_about_NVD_ID[1],
#																	...
																	"NVD_ID$N" => $data_about_NVD_ID[$N],
 } )


=cut

sub put_cwe_idx_cve {
	my $self = shift;

	my $result = $self->{store}->put_cwe_idx_cve(@_);

	return $result
}


=head2 put_cpe

 my $result = put_cpe ( $cpe_urn )

=cut

sub put_cpe {
	my $self = shift;
	# TODO: Validate

	my $result = $self->{store}->put_cpe(@_);

	return $result;
}


=head2 put_nvd_entries

 my $N = lots();

 my $result = put_nvd_entries ( { NVD_ID0 => $data_about_NVD_ID[0],
																	NVD_ID1 => $data_about_NVD_ID[1],
#																	...
																	"NVD_ID$N" => $data_about_NVD_ID[$N],
 } )

=cut

sub put_nvd_entries {
	my $self = shift;

	my $result = $self->{store}->put_nvd_entries(@_);

	return $result;
}

=head2 put_cwe

  $result = $self->put_cwe( cwe_id   => 'CWE-42',
                            cwe_dump => $cwe_dump );

=cut

sub put_cwe {
	my $self = shift;

	my $result = $self->{store}->put_cwe(@_);

	return $result;
}

=head2 commit

  $result = $self->commit($commit_buffer_name);

=cut

sub commit {
	my $self = shift;

	my $result = $self->{store}->commit(@_);

	return $result;
}


=head2 put_cwe_data

 my $N = lots();

 my $result = put_cwe_data ( { CWE_ID0 => $data_about_CWE_ID[0],
                               CWE_ID1 => $data_about_CWE_ID[1],
#                              ...
                               "CWE_ID$N" => $data_about_CWE_ID[$N],
 } )

=cut

sub put_cwe_data {
	my $self = shift;

	my $result = $self->{store}->put_cwe_data(@_);

	return $result;
}


=head1 AUTHOR

C.J. Adams-Collier, C<< <cjac at f5.com> >>

=head1 LICENSE AND COPYRIGHT

Copyright 2011, 2012 F5 Networks, Inc.

CVE(r) and CWE(tm) are marks of The MITRE Corporation and used here with
permission.  The information in CVE and CWE are copyright of The MITRE
Corporation and also used here with permission.

Please include links for CVE(r) <http://cve.mitre.org/> and CWE(tm)
<http://cwe.mitre.org/> in all reproductions of these materials.

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.


=cut

1;    # End of NIST::NVD::Update