Mailing List Archive

Author: jm
Date: Tue Jan 27 00:04:58 2004
New Revision: 6318

Modified:
incubator/spamassassin/trunk/lib/Mail/SpamAssassin/MsgContainer.pm
Log:
metadata's not going away that easily ;)

Modified: incubator/spamassassin/trunk/lib/Mail/SpamAssassin/MsgContainer.pm
==============================================================================
--- incubator/spamassassin/trunk/lib/Mail/SpamAssassin/MsgContainer.pm (original)
+++ incubator/spamassassin/trunk/lib/Mail/SpamAssassin/MsgContainer.pm Tue Jan 27 00:04:58 2004
@@ -55,6 +55,7 @@
my $self = {
headers => {},
raw_headers => {},
+ metadata => {},
body_parts => [],
header_order => [],
};
@@ -501,6 +502,51 @@
my ($self) = @_;
exit (0) unless $self->{noexit};
}
+
+# ---------------------------------------------------------------------------
+
+=item $str = get_metadata($hdr)
+
+=cut
+
+sub get_metadata {
+ my ($self, $hdr) = @_;
+ $self->{metadata}->{$hdr};
+}
+
+=item put_metadata($hdr, $text)
+
+=cut
+
+sub put_metadata {
+ my ($self, $hdr, $text) = @_;
+ $self->{metadata}->{$hdr} = $text;
+}
+
+=item delete_metadata($hdr)
+
+=cut
+
+sub delete_metadata {
+ my ($self, $hdr) = @_;
+ delete $self->{metadata}->{$hdr};
+}
+
+=item $str = get_all_metadata()
+
+=cut
+
+sub get_all_metadata {
+ my ($self) = @_;
+
+ my @ret = ();
+ foreach my $key (sort keys %{$self->{metadata}}) {
+ push (@ret, $key, ": ", $self->{metadata}->{$key}, "\n");
+ }
+ return join ("", @ret);
+}
+
+# ---------------------------------------------------------------------------

sub dbg { Mail::SpamAssassin::dbg (@_); }