diff options
author | Eric Wong <e@80x24.org> | 2015-08-15 09:28:32 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2015-08-15 19:15:36 +0000 |
commit | d7fcdec712accc212bcfa35e50ade1233eb9beb3 (patch) | |
tree | 50e4900b3a21ede89b76716417080113009f1b75 /lib/PublicInbox/MID.pm | |
parent | 885250c3c289c96764e0eb9f432a389136d07088 (diff) | |
download | public-inbox-d7fcdec712accc212bcfa35e50ade1233eb9beb3.tar.gz |
Quit repeating ourselves and use a common MID module instead.
Diffstat (limited to 'lib/PublicInbox/MID.pm')
-rw-r--r-- | lib/PublicInbox/MID.pm | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/lib/PublicInbox/MID.pm b/lib/PublicInbox/MID.pm new file mode 100644 index 00000000..e5a30a1b --- /dev/null +++ b/lib/PublicInbox/MID.pm @@ -0,0 +1,27 @@ +# Copyright (C) 2015, all contributors <meta@public-inbox.org> +# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt) +package PublicInbox::MID; +use strict; +use warnings; +use base qw/Exporter/; +our @EXPORT_OK = qw/mid_clean mid_compressed/; +use Digest::SHA qw/sha1_hex/; +use constant MID_MAX => 40; # SHA-1 hex length + +sub mid_clean { + my ($mid) = @_; + defined($mid) or die "no Message-ID"; + # MDA->precheck did more checking for us + $mid =~ s/\A\s*<?//; + $mid =~ s/>?\s*\z//; + $mid; +} + +# this is idempotent +sub mid_compressed { + my ($mid) = @_; + return $mid if (length($mid) <= MID_MAX); + sha1_hex($mid); +} + +1; |