Decodifica la posta da utf8 a ISO-8859-1 sottoposta a testo nel file .procmailrc

Question

Partire per scrivere una semplice destinatario procmail che inoltrerebbe la posta se ha trovato il testo "ABC Store: Nuovo ordine" nell'oggetto.

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

Purtroppo il campo dell'oggetto del messaggio di posta proveniente dal server di posta era in sintassi parola-codificati MIME.

Oggetto: = UTF-8 B QUJDIFN0b3JlOiBOZXcgT3JkZXI = =

Il soggetto di cui sopra è utf-8 charset ISO-8859-1, così si chiedeva se ci sono dei meccanismi/scripts/utility per analizzare???? questo e convertire in formato stringa in modo da poter applicare il mio filtro procmail.

Answer 1

È possibile utilizzare perl one liner per decodificare Subject: prima dell'assegnazione alla variabile 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

È necessario utilizzare MIME::EncWords.

Ti piace questa

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; 

uscita

ABC Store: New Order