use strict; use warnings; our @Templates = ( { Queue => 0, Name => "Error: public key", # loc Description => "Inform user that he has problems with public key and couldn't recieve encrypted content", # loc Content => q{Subject: We have no your public key or it's wrong You received this message as we have no your public PGP key or we have a problem with your key. Inform the administrator about the problem. } }, { Queue => 0, Name => "Error to RT owner: public key", # loc Description => "Inform RT owner that user(s) have problems with public keys", # loc Content => q{Subject: Some users have problems with public keys You received this message as RT has problems with public keys of the following user: { foreach my $e ( @BadRecipients ) { $OUT .= "* ". $e->{'Message'} ."\n"; } }} }, { Queue => 0, Name => "Error: no private key", # loc Description => "Inform user that we received an encrypted email and we have no private keys to decrypt", # loc Content => q{Subject: we received message we cannot decrypt You sent an encrypted message with subject '{ $Message->head->get('Subject') }', but we have no private key it's encrypted to. Please, check that you encrypt messages with correct keys or contact the system administrator.} }, { Queue => 0, Name => "Error: bad GnuPG data", # loc Description => "Inform user that a message he sent has invalid GnuPG data", # loc Content => q{Subject: We received a message we cannot handle You sent us a message that we cannot handle due to corrupted GnuPG signature or encrypted block. we get the following error(s): { foreach my $msg ( @Messages ) { $OUT .= "* $msg\n"; } }} }, );