Yet Another CPAN Grep

RTIR-Extension-MISP ( B/BP/BPS/RTIR-Extension-MISP-0.02.tar.gz, BPS, 2021; MetaCPAN )

RTIR-Extension-MISP/lib/RTIR/Extension/MISP.pm ( view source; MetaCPAN )

use strict;
use warnings;
package RTIR::Extension::MISP;

use LWP::UserAgent;
use JSON;
use UUID::Tiny ':std';

our $VERSION = '0.02';

RT->AddStyleSheets('rtir-extension-misp.css');

=head1 NAME

RTI

 => $misp_config->[0]{ApiKeyAuth},
        'Accept'        => 'application/json',
        'Content-Type'  => 'application/json',
    );
    $ua->default_headers( $default_headers );
    return $ua;
}

response->status_line());
        return 0;
    }

    my $json;
    eval { $json = JSON->new->decode($response->content); };
    return $json;
}

sub AddRTIRObjectToMISP {
    my $ticket = shift;

RTIR-Extension-MISP ( B/BP/BPS/RTIR-Extension-MISP-0.02.tar.gz, BPS, 2021; MetaCPAN )

RTIR-Extension-MISP/lib/RT/IR/ExternalFeeds_Vendor.pm ( view source; MetaCPAN )

package RT::IR::ExternalFeeds;

use strict;
use warnings;

use LWP::UserAgent;
use JSON;

sub InitMISP {
    my $self = shift;
    my $misp_config = RT->Config->Get('ExternalFeeds')->{MISP};

    unle

->{misp_feeds}{$name}{ApiKeyAuth},
        'Accept'        => 'application/json',
        'Content-Type'  => 'application/json',
    );
    $ua->default_headers( $default_headers );

    my $days_to_f

args = { "searchDatefrom" => $date->ISO };
    my $json = encode_json( $args );

    my $response = $ua->post($url . '/events/index', Content => $json);
    return $self->_parse_misp_feed($response);