diff options
Diffstat (limited to 'lib/PublicInbox/NetWriter.pm')
-rw-r--r-- | lib/PublicInbox/NetWriter.pm | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/lib/PublicInbox/NetWriter.pm b/lib/PublicInbox/NetWriter.pm new file mode 100644 index 00000000..6f0a0b94 --- /dev/null +++ b/lib/PublicInbox/NetWriter.pm @@ -0,0 +1,26 @@ +# Copyright (C) 2021 all contributors <meta@public-inbox.org> +# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> + +# common writer code for IMAP (and later, JMAP) +package PublicInbox::NetWriter; +use strict; +use v5.10.1; +use parent qw(PublicInbox::NetReader); +use PublicInbox::Smsg; +use PublicInbox::MsgTime qw(msg_timestamp); + +my %IMAPkw2flags; +@IMAPkw2flags{values %PublicInbox::NetReader::IMAPflags2kw} = + keys %PublicInbox::NetReader::IMAPflags2kw; + +sub imap_append { + my ($mic, $folder, $bref, $smsg, $eml) = @_; + $bref //= \($eml->as_string); + $smsg //= bless { }, 'PublicInbox::Smsg'; + $smsg->{ts} //= msg_timestamp($eml // PublicInbox::Eml->new($$bref)); + my @f = map { $IMAPkw2flags{$_} } @{$smsg->{kw}}; + $mic->append_string($folder, $$bref, "@f", $smsg->internaldate) or + die "APPEND $folder: $@"; +} + +1; |