1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
package Mail::DMARC::Report::Aggregate::Metadata;
use strict;
use warnings;
our $VERSION = '1.20211209';
use XML::LibXML;
use parent 'Mail::DMARC::Base';
sub org_name {
return $_[0]->{org_name} if 1 == scalar @_;
return $_[0]->{org_name} = $_[1];
}
sub email {
return $_[0]->{email} if 1 == scalar @_;
return $_[0]->{email} = $_[1];
}
sub extra_contact_info {
return $_[0]->{extra_contact_info} if 1 == scalar @_;
return $_[0]->{extra_contact_info} = $_[1];
}
sub report_id {
return $_[0]->{report_id} if 1 == scalar @_;
return $_[0]->{report_id} = $_[1];
}
sub date_range {
return $_[0]->{date_range} if 1 == scalar @_;
# croak "invalid date_range" if ('HASH' ne ref $_->[1]);
return $_[0]->{date_range} = $_[1];
}
sub begin {
return $_[0]->{date_range}{begin} if 1 == scalar @_;
return $_[0]->{date_range}{begin} = $_[1];
}
sub end {
return $_[0]->{date_range}{end} if 1 == scalar @_;
return $_[0]->{date_range}{end} = $_[1];
}
sub error {
return $_[0]->{error} if 1 == scalar @_;
return push @{ $_[0]->{error} }, $_[1];
}
sub uuid {
return $_[0]->{uuid} if 1 == scalar @_;
return $_[0]->{uuid} = $_[1];
}
sub as_xml {
my $self = shift;
my $meta = "\t<report_metadata>\n";
foreach my $f (qw/ org_name email extra_contact_info report_id /) {
my $val = $self->$f or next;
$val = XML::LibXML::Text->new( $val )->toString();
$meta .= "\t\t<$f>$val</$f>\n";
}
my $begin = XML::LibXML::Text->new( $self->begin )->toString();
my $end = XML::LibXML::Text->new( $self->end )->toString();
$meta .= "\t\t<date_range>\n\t\t\t<begin>" . $begin . "</begin>\n"
. "\t\t\t<end>" . $end . "</end>\n\t\t</date_range>\n";
my $errors = $self->error;
if ( $errors && @$errors ) {
foreach my $err ( @$errors ) {
$err = XML::LibXML::Text->new( $err )->toString();
$meta .= "\t\t<error>$err</error>\n";
};
};
$meta .= "\t</report_metadata>";
return $meta;
}
1;
__END__
=pod
=head1 NAME
Mail::DMARC::Report::Aggregate::Metadata - metadata section of aggregate report
=head1 VERSION
version 1.20211209
=head1 AUTHORS
=over 4
=item *
Matt Simerson <msimerson@cpan.org>
=item *
Davide Migliavacca <shari@cpan.org>
=item *
Marc Bradshaw <marc@marcbradshaw.net>
=back
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2021 by Matt Simerson.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|
