lib/PublicInbox/MID.pm

   1 # Copyright (C) 2015, all contributors <meta@public-inbox.org>
   2 # License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
   3 package PublicInbox::MID;
   4 use strict;
   5 use warnings;
   6 use base qw/Exporter/;
   7 our @EXPORT_OK = qw/mid_clean mid_compressed/;
   8 use Digest::SHA qw/sha1_hex/;
   9 use constant MID_MAX => 40; # SHA-1 hex length
  10
  11 sub mid_clean {
  12         my ($mid) = @_;
  13         defined($mid) or die "no Message-ID";
  14         # MDA->precheck did more checking for us
  15         $mid =~ s/\A\s*<?//;
  16         $mid =~ s/>?\s*\z//;
  17         $mid;
  18 }
  19
  20 # this is idempotent
  21 sub mid_compressed {
  22         my ($mid) = @_;
  23         return $mid if (length($mid) <= MID_MAX);
  24         sha1_hex($mid);
  25 }
  26
  27 1;