view release on metacpan or  search on metacpan

bin/dmarc_http_client  view on Meta::CPAN

if (!$data) { $data = get_json_request(); warn "using sample --data\n"; }
if ($data eq '-') {
    $data = '';
    while ($_ = <>) { chomp; $data .= $_; }
}

my $url = "http://$host:$port/dmarc/json/validate";
my $response = HTTP::Tiny->new->post(
    $url,
    {   content => $data,
        headers => { 'content-type' => 'application/json' },
    }
)->{content};

#print Dumper($response);       # raw JSON response
my $result;
try {
    $result = JSON->new->utf8->decode($response);
}
catch ($e) { }
if ($result) {

bin/dmarc_receive  view on Meta::CPAN

IMAP aggregate reports are detected by the presence of zip or gzip attachments. When an aggregate report is detected:

 * the attachment is decompressed
 * the XML is parsed
 * the report is saved to the report store
 * the message is marked as read/seen
 * move message to [imap][a_done] folder (if defined)

=head3 IMAP Forensic report

IMAP forensic reports are detected by the presence of the content-types message/feedback-report and text/rfc822-headers. When a forensic report is detected it is moved to the [imap][f_done] IMAP folder.

=head2 File as message

Accepts the filename of a file containing a mail message. The message is parsed and stored.

=head2 Mbox

Accepts the filename of a mbox format file containing mail messages. The messages are parsed and stored.

=cut