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 id_compress mid2path/;
   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         if ($mid =~ /<([^>]+)>/) {
  16                 $mid = $1;
  17         }
  18         $mid;
  19 }
  20
  21 # this is idempotent
  22 sub id_compress {
  23         my ($id, $force) = @_;
  24
  25         if ($force || $id =~ /[^\w\-]/ || length($id) > MID_MAX) {
  26                 return sha1_hex($id);
  27         }
  28         $id;
  29 }
  30
  31 sub mid2path {
  32         my ($mid) = @_;
  33         my ($x2, $x38) = ($mid =~ /\A([a-f0-9]{2})([a-f0-9]{38})\z/);
  34
  35         unless (defined $x38) {
  36                 # compatibility with old links (or short Message-IDs :)
  37                 $mid = sha1_hex(mid_clean($mid));
  38                 ($x2, $x38) = ($mid =~ /\A([a-f0-9]{2})([a-f0-9]{38})\z/);
  39         }
  40         "$x2/$x38";
  41 }
  42
  43 1;