No ext_urls

[public-inbox.git] / lib / PublicInbox / AddressPP.pm

diff --git a/lib/PublicInbox/AddressPP.pm b/lib/PublicInbox/AddressPP.pm
index c04de74b2fb202a0a4bba56ced739e26ada33ac9..6a3ae4fed766d7cb654b1f00ad53b1d798986246 100644 (file)
--- a/lib/PublicInbox/AddressPP.pm
+++ b/lib/PublicInbox/AddressPP.pm
@@ -13,6 +13,7 @@ sub emails {
 }
 
 sub names {
+       # split by address and post-address comment
        my @p = split(/<?([^@<>]+)\@[\w\.\-]+>?\s*(\(.*?\))?(?:,\s*|\z)/,
                        $_[0]);
        my @ret;
@@ -35,4 +36,24 @@ sub names {
        @ret;
 }
 
+sub pairs { # for JMAP, RFC 8621 section 4.1.2.3
+       my ($s) = @_;
+       [ map {
+               my $addr = $_;
+               if ($s =~ s/\A\s*(.*?)\s*<\Q$addr\E>\s*(.*?)\s*(?:,|\z)// ||
+                   $s =~ s/\A\s*(.*?)\s*\Q$addr\E\s*(.*?)\s*(?:,|\z)//) {
+                       my ($phrase, $comment) = ($1, $2);
+                       $phrase =~ tr/\r\n\t / /s;
+                       $phrase =~ s/\A['"\s]*//;
+                       $phrase =~ s/['"\s]*\z//;
+                       $phrase =~ s/\s*<*\s*\z//;
+                       $phrase = undef if $phrase !~ /\S/;
+                       $comment = ($comment =~ /\((.*?)\)/) ? $1 : undef;
+                       [ $phrase // $comment, $addr ]
+               } else {
+                       ();
+               }
+       } emails($s) ];
+}
+
 1;