# $mime_info = mime_unpack($mime); # $mime_info = { # Subject => $subject, # Date => $date, # From => $from, # Reply_to => $reply_to, # To => \@to, # Cc => \@cc, # encrypted => $true, # signed_by => { $gpgid1 => $true, $gpgid2 => $true }, # headers => "From: ...\nTo: ...\n...\n", # type => "multipart/mixed", # body => [ # { # headers => "...", # type => "multipart/related", # body => [ # { # headers => "...", # type => "multipart/alternative", # body => [ # { # headers => "...", # type => "text/plain", # charset => "koi8-r", # body => "...", # }, # { # headers => "...", # type => "text/html", # charset => "koi8-r", # body => "...", # }, # ], # }, # { # headers => "...", # type => "image/gif", # name => 722370018427e0cb56ef03.gif", # cid => "000a01c69f03$d48fa5e0$0202a8c0@m" # body => "...", # }, # ], # }, # { # headers => "...", # type => "image/jpeg", # filename => "_devochka.jpeg", # body => "...", # }, # ], # } # die "message must be encrypted" if !$email_info->{gpg}{encrypted}; # die "message must by signed by authorized developer" # if !$email_info->{gpg}{signed_by}{ $fingerprint{powerman} } # && !$email_info->{gpg}{signed_by}{ $fingerprint{nikita} } # ;