Dekodowanie wiadomości utf8 do ISO-8859-1 z zastrzeżeniem tekstu w pliku .procmailrc.

Question

Należy napisać prostą recepturę procmaila, która przesyła pocztę, jeśli tekst "ABC Store: New Order" zostanie znaleziony w temacie.

:0 
    * ^(To|From).*abc@cdefgh.com 
    * ^Subject:.*ABC Store: New Order* 
    { 

Niestety, pole tematu w wiadomości e-mail przychodzącej z serwera pocztowego było w składni kodowanej za pomocą MIME-word.

Subject: = UTF-8 B QUJDIFN0b3JlOiBOZXcgT3JkZXI = =

Powyższy przedmiot jest UTF-8 charset ISO-8859-1, więc zastanawiałem się, czy są jakieś mechanizmy/skrypty/narzędzia do analizowania??? to i przekonwertuj na format ciągów, aby móc zastosować mój filtr procmail.

Answer 1

Możesz użyć perl one liner do dekodowania Subject: przed przypisaniem do zmiennej procmail.

# Store "may be encoded" Subject: into $SUBJECT after conversion to ISO-8859-1 
:0 h 
* ^Subject:.*=\? 
SUBJECT=| formail -cXSubject: | perl -MEncode=from_to -pe 'from_to $_, "MIME-Header", "iso-8859-1"' 

# Store all remaining cases of Subject: into $SUBJECT 
:0 hE 
SUBJECT=| formail -cXSubject: 

# trigger recipe based also on $SUBJECT content 
:0 
* ^(To|From).*abc@cdefgh.com 
* SUBJECT ?? ^Subject:.*ABC Store: New Order 
{ 
.... 
} 

Answer 2

Powinieneś użyć MIME::EncWords.

Ci się to

use strict; 
use warnings; 
use 5.010; 

use MIME::EncWords 'decode_mimewords'; 

my $subject = '=?UTF-8?B?QUJDIFN0b3JlOiBOZXcgT3JkZXI=?='; 
my $decoded = decode_mimewords($subject); 
say $decoded; 

wyjściu

ABC Store: New Order