#!/usr/bin/perl
use strict;
use warnings;

use Data::Dumper;

use lib 'lib';
use Mail::DMARC::Report;
my $report = Mail::DMARC::Report->new();

# 1. get list of reports where end < now
my $reports_ref = $report->store->retrieve( 'end' => time );
foreach my $report_ref ( @$reports_ref ) {
    print "$report_ref->{domain}\n";
    print "rua: $report_ref->{policy_published}{rua}\n";
    my $xml = $report->assemble_xml( \$report_ref );
    $report->sendit->send_rua(\$report_ref, \$xml) # deliver via SMTP/HTTP
        and $report->store->delete_report($report_ref->{id});
#   print $xml;
};

exit;
