X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;f=t-prot;h=936928c9a38720acaada34f0db0069d8317bc933;hb=e8db415fbea1c58d2abcb1e10bb6d8af6de80de6;hp=936a4ac67896708f28aaa985b6b72c4d4ba145dd;hpb=3319969a89bb47afbd35da55d8c0d62a33be9ca7;p=pkg%2Ft-prot.git diff --git a/t-prot b/t-prot index 936a4ac..936928c 100755 --- a/t-prot +++ b/t-prot @@ -1,13 +1,13 @@ #!/usr/bin/perl -w -# $Id: t-prot,v 1.218 2005/02/02 13:46:42 jochen Exp $ +# $Id: t-prot,v 1.230 2005/03/24 22:24:29 jochen Exp $ require 5.006; use strict; use Fcntl qw(O_EXCL O_WRONLY O_CREAT); use Getopt::Mixed qw(nextOption); -use constant VER => '1.49'; +use constant VER => '1.99'; use constant REV => ''; -use constant REL => q$Revision: 1.218 $=~m/(\d+(?:\.\d+)+)/; +use constant REL => q$Revision: 1.230 $=~m/(\d+(?:\.\d+)+)/; # MTA expecting mail on STDIN # (you might have to adjust this if using a different MTA) use constant SENDMAIL => '/usr/sbin/sendmail -oi'; @@ -17,6 +17,7 @@ use constant EX_OK => 0; use constant EX_USAGE => 64; use constant EX_DATAERR => 65; use constant EX_UNAVAILABLE => 69; +use constant EX_SOFTWARE => 70; use constant EX_IOERR => 74; use constant EX_BOUNCE => EX_UNAVAILABLE; use vars qw( @@ -57,263 +58,7 @@ $msg_quote = "Blocked by $0: This message has been rejected because of a fu $msg_ratio = "Blocked by $0: This message has been rejected because of excessive quoting. Please see http://learn.to/quote/ and http://www.escape.de/users/tolot/mutt/ for more info. Have a nice day!\n"; # end of user adjusted vals -# mutt's locales as in mutt-1.3.28 up to mutt-1.4.2.1 {{{ -my %mutt_attachment = ( - 'bg' => '[-- Ïðèêà÷åí ôàéë: #', - 'ca' => '[-- Fitxer adjunt #', - 'cs' => '[-- Pøíloha #', - 'da' => '[-- Brevdel #', - 'de' => '[-- Anhang #', - 'el' => '[-- ÐñïóÜñôçóç #', - 'eo' => '[-- Parto #', - 'es' => '[-- Archivo adjunto #', - 'et' => '[-- Lisa #', - 'fr' => '[-- Attachement #', - 'gl' => '[-- Adxunto #', - 'hu' => '[-- Melléklet #', - 'id' => '[-- Lampiran #', - 'it' => '[-- Allegato #', - 'ja' => '[-- źÉÕ¥Õ¥¡¥¤¥ë #', - 'ko' => '[-- ÷ºÎ¹° #', - 'lt' => '[-- Priedas #', - 'nl' => '[-- Bijlage #', - 'pl' => '[-- Za³±cznik #', - 'pt_BR' => '[-- Anexo No.', - 'ru' => '[-- ÷ÌÏÖÅÎÉÅ #', - 'sk' => '[-- Príloha #', - 'sv' => '[-- Bilaga #', - 'tr' => '[-- Eklenti #', - 'uk' => '[-- äÏÄÁÔÏË ÎÏÍÅÒ ', - 'zh_CN' => '[-- ¸½¼þ #', - 'zh_TW' => '[-- 附件 #' -); -my %mutt_contenttype = ( - 'bg' => '[-- Òèï: ', - 'ca' => '[-- Tipus: ', - 'cs' => '[-- Typ: ', - 'de' => '[-- Typ: ', - 'el' => '[-- Ôýðïò: ', - 'eo' => '[-- Speco: ', - 'es' => '[-- Tipo: ', - 'et' => '[-- Tüüp: ', - 'fr' => '[-- Type : ', - 'gl' => '[-- Tipo: ', - 'hu' => '[-- Típus: ', - 'id' => '[-- Jenis: ', - 'it' => '[-- Tipo: ', - 'ja' => '[-- ¥¿¥¤¥×: ', - 'ko' => '[-- Á¾·ù: ', - 'lt' => '[-- Tipas: ', - 'pl' => '[-- Typ: ', - 'pt_BR' => '[-- Tipo: ', - 'ru' => '[-- ôÉÐ: ', - 'sk' => '[-- Typ: ', - 'sv' => '[-- Typ: ', - 'tr' => '[-- Tip: ', - 'uk' => '[-- ôÉÐ: ', - 'zh_CN' => '[-- ÐÎ̬: ', - 'zh_TW' => '[-- 種類：' -); -my %mutt_pgpsigned = ( - 'bg' => '[-- Êðàé íà ïîäïèñàíèòå äàííè --]', - 'ca' => '[-- Final de les dades signades. --]', - 'cs' => '', - 'da' => '[-- Slut på underskrevne data --]', - 'de' => '[-- Ende der signierten Daten --]', - 'el' => '[-- ÔÝëïò äåäïìÝíùí õðïãåãñáììÝíùí --]', - 'eo' => '[-- Fino de subskribitaj datenoj --]', - 'es' => '', - 'et' => '[-- Allkirjastatud info lõpp --]', - 'fr' => '[-- Fin des données signées --]', - 'gl' => '', - 'hu' => '', - 'id' => '[-- Akhir data yang ditandatangani --]', - 'it' => '[-- Fine dei dati firmati --]', - 'ja' => '[-- ½ð̾¥Ç¡¼¥¿½ªÎ» --]', - 'ko' => '[-- ¼­¸í ÀÚ·á ³¡ --]', - 'lt' => '', - 'nl' => '', - 'pl' => '[-- Koniec podpisanych danych --]', - 'pt_BR' => '', - 'ru' => '[-- ëÏÎÅà ÐÏÄÐÉÓÁÎÎÙÈ ÄÁÎÎÙÈ --]', - 'sk' => '', - 'sv' => '[-- Slut på signerat data --]', - 'tr' => '', - 'uk' => '[-- ë¦ÎÅÃØ Ð¦ÄÐÉÓÁÎÉÈ ÄÁÎÉÈ --]', - 'zh_CN' => '', - 'zh_TW' => '' -); -my %mutt_beginsigned = ( - 'bg' => '[-- Ñëåäíèòå äàííè ñà ïîäïèñàíè --]', - 'ca' => '[-- Les dades següents es troben signades: --]', - 'cs' => '[-- Následují podepsaná data --]', - 'da' => '[-- Følgende data er underskrevet --]', - 'de' => '[-- Die folgenden Daten sind signiert --]', - 'el' => '[-- Ôá åðüìåíá äåäïìÝíá åßíáé õðïãåãñáììÝíá --]', - 'eo' => '[-- La sekvaj datenoj estas subskribitaj --]', - 'es' => '[-- Los siguientes datos están firmados --]', - 'et' => '[-- Järgnev info on allkirjastatud --]', - 'fr' => '[-- Les données suivantes sont signées --]', - 'gl' => '[-- Os datos a continuación están asinados --]', - 'hu' => '[-- A következõ adatok alá vannak írva --]', - 'id' => '[-- Data berikut ini ditandatangani --]', - 'it' => '[-- I seguenti dati sono firmati --]', - 'ja' => '[-- °Ê²¼¤Î¥Ç¡¼¥¿¤Ï½ð̾¤µ¤ì¤Æ¤¤¤ë --]', - 'ko' => '[-- ¾Æ·¡ÀÇ ÀÚ·á´Â ¼­¸í µÇ¾úÀ½ --]', - 'lt' => '[-- Toliau einantys duomenys yra pasiraðyti --]', - 'nl' => '[-- De volgende gegevens zijn PGP/MIME ondertekend --]', - 'pl' => '[-- Poni¿sze dane s± podpisane --]', - 'pt_BR' => '[-- Os dados a seguir estão assinados --]', - 'ru' => '[-- îÁÞÁÌÏ ÐÏÄÐÉÓÁÎÎÙÈ ÄÁÎÎÙÈ --]', - 'sk' => '[-- Nasledujúce dáta sú podpísané s PGP/MIME --]', - 'sv' => '[-- Följande data är signerat --]', - 'tr' => '[-- Bu bilgi imzalanmýþtýr --]', - 'uk' => '[-- îÁÓÔÕÐΦ ÄÁΦ ЦÄÐÉÓÁÎÏ --]', - 'zh_CN' => '[-- ÒÔϵÄ×ÊÁÏÒѱ»Ç©Êð --]', - 'zh_TW' => '[-- 以下的資料已被簽署 --]', -); -my %mutt_pgpencrypted = ( - 'bg' => '[-- Êðàé íà PGP/MIME øèôðîâàíèòå äàííè --]', - 'ca' => '[-- Final de les dades xifrades amb PGP/MIME. --]', - 'cs' => '', - 'da' => '[-- Slut på PGP/MIME-krypteret data --]', - 'de' => '[-- Ende der PGP/MIME-verschlüsselten Daten --]', - 'el' => '[-- ÔÝëïò äåäïìÝíùí êñõðôïãñáöçìÝíùí ìÝóù PGP/MIME --]', - 'eo' => '[-- Fino de PGP/MIME-æifritaj datenoj --]', - 'es' => '', - 'et' => '[-- PGP/MIME krüptitud info lõpp --]', - 'fr' => '[-- Fin des données chiffrées avec PGP/MIME --]', - 'gl' => '', - 'hu' => '', - 'id' => '[-- Akhir data yang dienkripsi dg PGP/MIME --]', - 'it' => '[-- Fine dei dati cifrati con PGP/MIME --]', - 'ja' => '[-- PGP/MIME°Å¹æ²½¥Ç¡¼¥¿½ªÎ» --]', - 'ko' => '[-- PGP/MIME ¾Ïȣȭ ÀÚ·á ³¡ --]', - 'lt' => '', - 'nl' => '', - 'pl' => '[-- Koniec danych zaszyfrowanych PGP/MIME --]', - 'pt_BR' => '', - 'ru' => '[-- ëÏÎÅà ÄÁÎÎÙÈ, ÚÁÛÉÆÒÏ×ÁÎÎÙÈ × ÆÏÒÍÁÔÅ PGP/MIME --]', - 'sk' => '', - 'sv' => '[-- Slut på data krypterad enligt PGP/MIME --]', - 'tr' => '', - 'uk' => '[-- ë¦ÎÅÃØ ÄÁÎÉÈ, ÚÁÛÉÆÒÏ×ÁÎÉÈ PGP/MIME --]', - 'zh_CN' => '', - 'zh_TW' => '' -); -my %mutt_pgpclearsigned = ( - 'bg' => '[-- ÊÐÀÉ ÍÀ PGP-ÏÎÄÏÈÑÀÍÎÒÎ ÏÈÑÌÎ --]', - 'ca' => '[-- TERMINA EL MISSATGE PGP SIGNAT --]', - 'cs' => '', - 'el' => '[-- ÔÅËÏÓ ÕÐÏÃÅÃÑÁÌÌÅÍÏÕ PGP ÌÇÍÕÌÁÔÏÓ --]', - 'eo' => '[-- FINO DE PGP-SUBSKRIBITA MESAØO --]', - 'es' => '', - 'et' => '[-- PGP ALLKIRJASTATUD TEATE LÕPP --]', - 'fr' => '[-- FIN DE MESSAGE SIGNÉ PGP --]', - 'gl' => '', - 'hu' => '', - 'id' => '[-- AKHIR PESAN DG TANDATANGAN PGP --]', - 'it' => '[-- FINE DEL MESSAGGIO FIRMATO CON PGP --]', - 'ja' => '[-- PGP½ð̾¥á¥Ã¥»¡¼¥¸½ªÎ» --]', - 'ko' => '[-- PGP ¼­¸í ¸ÞÀÏ ³¡ --]', - 'lt' => '', - 'nl' => '', - 'pl' => '[-- KONIEC LISTU PODPISANEGO PGP --]', - 'pt_BR' => '', - 'ru' => '[-- ëÏÎÅà ÓÏÏÂÝÅÎÉÑ, ÐÏÄÐÉÓÁÎÎÏÇÏ PGP --]', - 'sk' => '', - 'sv' => '[-- SLUT PÅ MEDDELANDE SIGNERAT MED PGP --]', - 'tr' => '', - 'uk' => '[-- ë¦ÎÅÃØ ÐÏצÄÏÍÌÅÎÎÑ Ú PGP ЦÄÐÉÓÏÍ --]', - 'zh_CN' => '', - 'zh_TW' => '' -); -my %mutt_pgpclearsigstart = ( - 'bg' => '[-- ÍÀ×ÀËÎ ÍÀ PGP-ÏÎÄÏÈÑÀÍÎÒÎ ÏÈÑÌÎ --]', - 'ca' => '[-- COMENÇA EL MISSATGE PGP SIGNAT --]', - 'cs' => '[-- ZAÈÁTEK PODEPSANÉ PGP ZPRÁVY --]', - 'el' => '[-- ÅÍÁÑÎÇ ÕÐÏÃÅÃÑÁÌÌÅÍÏÕ PGP ÌÇÍÕÌÁÔÏÓ --]', - 'eo' => '[-- KOMENCO DE PGP-SUBSKRIBITA MESAØO --]', - 'es' => '[-- PRINCIPIO DEL MENSAJE FIRMADO CON PGP --]', - 'et' => '[-- PGP ALLKIRJASTATUD TEATE ALGUS --]', - 'fr' => '[-- DÉBUT DE MESSAGE SIGNÉ PGP --]', - 'gl' => '[-- COMEZA A MESAXE FIRMADA CON PGP --]', - 'hu' => '[-- PGP ALÁÍRT LEVÉL KEZDÕDIK --]', - 'id' => '[-- AWAL SURAT DG TANDATANGAN PGP --]', - 'it' => '[-- INIZIO DEL MESSAGGIO FIRMATO CON PGP --]', - 'ja' => '[-- PGP½ð̾¥á¥Ã¥»¡¼¥¸³«»Ï --]', - 'ko' => '[-- PGP ¼­¸í ¸ÞÀÏ ½ÃÀÛ --]', - 'lt' => '[-- PGP PASIRAÐYTO LAIÐKO PRADÞIA --]', - 'nl' => '[-- BEGIN PGP ONDERTEKEND BERICHT --]', - 'pl' => '[-- POCZ¡TEK LISTU PODPISANEGO PGP --]', - 'pt_BR' => '[-- INÍCIO DE MENSAGEM ASSINADA POR PGP --]', - 'ru' => '[-- îÁÞÁÌÏ ÓÏÏÂÝÅÎÉÑ, ÐÏÄÐÉÓÁÎÎÏÇÏ PGP --]', - 'sk' => '[-- ZAÈIATOK SPRÁVY PODPÍSANEJ S PGP --]', - 'sv' => '[-- MEDDELANDE SIGNERAT MED PGP BÖRJAR --]', - 'tr' => '[-- PGP IMZALANMIÞ ILETI BAÞI --]', - 'uk' => '[-- ðÏÞÁÔÏË ÐÏצÄÏÍÌÅÎÎÑ Ú PGP ЦÄÐÉÓÏÍ --]', - 'zh_CN' => '[-- PGP Ç©ÃûµÄÐżþ¿ªÊ¼ --]', - 'zh_TW' => '[-- PGP 簽名的信件開始 --]' -); -my %mutt_pgpoutstart = ( - 'bg' => '[-- ñëåäâà ðåçóëòàòà îò PGP (òåêóùî âåìå: ', - 'ca' => '[-- Aquesta és l\'eixida de PGP (data actual: ', - 'cs' => '[-- následuje výstup PGP (aktuální èas: ', - 'da' => '[-- PGP-uddata følger (aktuelt tidspunkt: ', - 'de' => '[-- PGP-Ausgabe folgt (aktuelle Zeit: ', - 'el' => '[-- Áêïëïõèåß Ýîïäïò ôïõ PGP (ôñÝ÷ïõóá þñá: ', - 'eo' => '[-- Eligo de PGP sekvas (nuna horo: ', - 'es' => '[-- Salida de PGP a continuación (tiempo actual: ', - 'et' => '[-- järgneb PGP väljund (praegune aeg: ', - 'fr' => '[-- La sortie PGP suit (heure courante : ', - 'gl' => '[-- Saída PGP a continuación (hora actual: ', - 'hu' => '[-- PGP kimenet következik (idõ: ', - 'id' => '[-- Keluaran dari PGP (waktu skrg: ', - 'it' => '[-- Segue l\'output di PGP (ora attuale: ', - 'ja' => '[-- PGP ½ÐÎϤϰʲ¼¤ÎÄ̤ê (¸½ºß»þ¹ï: ', - 'ko' => '[-- PGP Ãâ·Â (ÇöÀç ½Ã°£: ', - 'lt' => '[-- Toliau PGP iðvestis (esamas laikas: ', - 'nl' => '[-- PGP uitvoer volgt (Huidige tijd: ', - 'pl' => '[-- Wynik dzia³ania PGP (bie¿±ca data i czas: ', - 'pt_BR' => '[-- Saída do PGP a seguir (hora atual: ', - 'ru' => '[-- òÅÚÕÌØÔÁÔ ÒÁÂÏÔÙ ÐÒÏÇÒÁÍÍÙ PGP (ÔÅËÕÝÅÅ ×ÒÅÍÑ: ', - 'sk' => '[-- Nasleduje výstup PGP (aktuálny èas: ', - 'sv' => '[-- Utdata från PGP följer (aktuell tid: ', - 'tr' => '[-- PGP geri verisi (geçerli zaman: ', - 'uk' => '[-- ÔÅËÓÔ ÎÁ ×ÉÈÏĦ PGP (ÞÁÓ: ', - 'zh_CN' => '[-- ÒÔÏÂΪ PGP Êä³öµÄ×ÊÁÏ£¨ÏÖÔÚʱ¼ä£º ', - 'zh_TW' => '[-- 以下為 PGP 輸出的資料（現在時間：' -); -my %mutt_pgpoutend = ( - 'bg' => '[-- Êðàé íà PGP-ðåçóëòàòà --]', - 'ca' => '[-- Final de l\'eixida de PGP. --]', - 'cs' => '[-- Konec výstupu PGP --]', - 'da' => '[-- Slut på PGP-uddata --]', - 'de' => '[-- Ende der PGP-Ausgabe --]', - 'el' => '[-- ÔÝëïò ôçò åîüäïõ PGP --]', - 'eo' => '[-- Fino de PGP-eligo --]', - 'es' => '[-- Fin de salida PGP --]', - 'et' => '[-- PGP väljundi lõpp --]', - 'fr' => '[-- Fin de sortie PGP --]', - 'gl' => '[-- Fin da saída PGP --]', - 'hu' => '[-- PGP kimenet vége --]', - 'id' => '[-- Akhir keluaran PGP --]', - 'it' => '[-- Fine dell\'output di PGP --]', - 'ja' => '[-- PGP½ÐÎϽªÎ» --]', - 'ko' => '[-- PGP Ãâ·Â ³¡ --]', - 'lt' => '[-- PGP iðvesties pabaiga --]', - 'nl' => '[-- Einde van PGP uitvoer --]', - 'pl' => '[-- Koniec komunikatów PGP --]', - 'pt_BR' => '[-- Fim da saída do PGP --]', - 'ru' => '[-- ëÏÎÅà ×Ù×ÏÄÁ ÐÒÏÇÒÁÍÍÙ PGP --]', - 'sk' => '[-- Koniec výstupu PGP --]', - 'sv' => '[-- Slut på utdata från PGP --]', - 'tr' => '[-- PGP geri verisi sonu --]', - 'uk' => '[-- ë¦ÎÅÃØ ÔÅËÓÔÕ ÎÁ ×ÉÈÏĦ PGP --]', - 'zh_CN' => '[-- PGP Êä³ö²¿·Ý½áÊø --]', - 'zh_TW' => '[-- PGP 輸出部份結束 --]' -); -# }}} + # set the defaults to the C locale $mutt_attachment = '[-- Attachment #'; $mutt_contenttype = '[-- Type: '; @@ -325,229 +70,6 @@ $mutt_pgpencrypted = '[-- End of PGP/MIME encrypted data --]'; $mutt_pgpoutstart = '[-- PGP output follows (current time:'; $mutt_pgpoutend = '[-- End of PGP output --]'; -# gpg's locales as in gpg-1.4.0 {{{ -my %gpg_WARNING = ( - 'be' => '', - 'ca' => 'AV�S: ', - 'cs' => 'VAROVÁNÍ: ', - 'da' => 'ADVARSEL: ', - 'de' => 'WARNUNG: ', - 'el' => 'ÐÑÏÅÉÄÏÐÏÉÇÓÇ: ', - 'eo' => 'AVERTO: ', - 'es' => 'ATENCIÓN: ', - 'et' => 'HOIATUS: ', - 'fi' => 'VAROITUS: ', - 'fr' => 'ATTENTION: ', - 'gl' => 'AVISO: ', - 'hu' => 'FIGYELEM: ', - 'id' => 'PERINGATAN: ', - 'it' => 'ATTENZIONE: ', - 'ja' => '·Ù¹ð: ', - 'pl' => 'OSTRZE¯ENIE: ', - 'pt' => 'AVISO: ', - 'pt_BR' => 'AVISO: ', - 'ro' => 'AVERTISMENT: ', - 'ru' => 'ВНИМАНИЕ: ', - 'sk' => 'VAROVANIE: ', - 'sv' => 'VARNING: ', - 'tr' => 'UYARI: ', - 'zh_CN' => '警告：我们不信任这把密钥！', - 'zh_TW' => 'ĵ§i¡G§Ú­Ì *¤£* «H¥ô³o§âª÷Æ_¡I' -); -my %gpg_Warning = ( - 'be' => '', - 'ca' => 'AV�S: ', - 'cs' => 'VAROVÁNÍ: ', - 'da' => '', - 'de' => 'Warnung: ', - 'el' => 'ÐÑÏÅÉÄÏÐÏÉÇÓÇ: ', - 'eo' => 'AVERTO: ', - 'es' => 'ATENCIÓN: ', - 'et' => 'HOIATUS: ', - 'fi' => 'VAROITUS: ', - 'fr' => 'AVERTISSEMENT: ', - 'gl' => 'AVISO: ', - 'hu' => 'FIGYELEM: ', - 'id' => 'PERINGATAN: ', - 'it' => 'ATTENZIONE: ', - 'ja' => '·Ù¹ð: ', - 'pl' => 'OSTRZE¯ENIE: ', - 'pt' => 'CUIDADO: ', - 'pt_BR' => 'CUIDADO: ', - 'ro' => 'AVERTISMENT: ', - 'ru' => 'ВНИМАНИЕ: ', - 'sk' => 'VAROVANIE: ', - 'sv' => 'VARNING: ', - 'tr' => 'UYARI: ', - 'zh_CN' => '警告：加密过的报文已经变造！', - 'zh_TW' => 'ĵ§i¡G¥[±K¹Lªº°T®§¤w¸g³QÅܳy¤F¡I' -); -my %gpg_Cantcheck = ( - 'be' => '', - 'ca' => 'No sha pogut comprovar la signatura: ', - 'cs' => 'Nemohu ovìøit podpis: ', - 'da' => 'Kan ikke tjekke signatur: ', - 'de' => 'Unterschrift kann nicht geprüft werden: ', - 'el' => 'Áäõíáìßá åëÝã÷ïõ ôçò õðïãñáöÞò: ', - 'eo' => 'Ne povas kontroli subskribon: ', - 'es' => 'Imposible comprobar la firma: ', - 'et' => 'Allkirja ei saa kontrollida: ', - 'fi' => 'Allekirjoitusta ei voi tarkistaa: ', - 'fr' => 'Impossible de vérifier la signature: ', - 'gl' => 'Non foi posible verifica-la sinatura: ', - 'hu' => 'Nem tudom ellenõrizni az aláírást: ', - 'id' => 'Tidak dapat memeriksa signature: ', - 'it' => 'Impossibile controllare la firma: ', - 'ja' => '½ð̾¤ò¸¡ºº¤Ç¤­¤Þ¤»¤ó: ', - 'pl' => 'Nie mo¿na sprawdziæ podpisu: ', - 'pt' => 'Impossível verificar assinatura: ', - 'pt_BR' => 'Impossível verificar assinatura: ', - 'ro' => 'Nu pot verifica semnãtura: ', - 'ru' => 'Не могу проверить подпись: ', - 'sk' => 'Nemô¾em overi» podpis: ', - 'sv' => 'Kan inte verifiera signaturen: ', - 'tr' => 'Ä°mza kontrol edilemedi: ', - 'zh_CN' => '无法检查签字：', - 'zh_TW' => 'µLªkÀˬdñ³¹¡G ' -); -my %gpg_aka = ( - 'be' => '', - 'ca' => ' alias ', - 'cs' => ' alias ', - 'da' => ' alias ', - 'de' => ' alias ', - 'el' => ' ãíùóôü óáí ', - 'eo' => ' alinome ', - 'es' => ' alias ', - 'et' => ' ka ', - 'fr' => ' alias « ', - 'gl' => ' alias ', - 'hu' => ' azaz ', - 'id' => ' alias ', - 'it' => ' alias ', - 'ja' => ' ÊÌ̾¡È', - 'pl' => ' alias ', - 'pt' => ' ou ', - 'pt_BR' => ' ou ', - 'sk' => ' alias ', - 'sv' => ' även känd som ', - 'tr' => ' den ', - 'zh_CN' => ' 亦即“', - 'zh_TW' => ' ¥ç§Y ' -); -my %gpg_bad = ( - 'be' => 'нерэчаісны хэш-альгарытм ', - 'ca' => 'Signatura INCORRECTA de ', - 'cs' => '©PATNÝ podpis od ', - 'da' => 'DÅRLIG signatur fra ', - 'de' => 'FALSCHE Unterschrift von ', - 'el' => 'ÊÁÊÇ õðïãñáöÞ áðü ', - 'eo' => 'MALBONA subskribo de ', - 'es' => 'Firma INCORRECTA de ', - 'et' => 'HALB allkiri kasutajalt ', - 'fi' => 'VÄÄRÄ allekirjoitus lähettäjältä ', - 'fr' => 'MAUVAISE signature de « ', - 'gl' => 'Sinatura INCORRECTA de', - 'hu' => 'ROSSZ aláírás a következõtõl: ', - 'id' => 'signature BURUK dari ', - 'it' => 'Firma NON corretta da ', - 'ja' => '¡È', - 'pl' => 'NIEPOPRAWNY podpis z³o¿ony przez ', - 'pt' => 'Assinatura INCORRECTA de ', - 'pt_BR' => 'Assinatura INCORRETA de ', - 'ro' => 'Semnãturã INCORECTà din ', - 'ru' => 'ПЛОХАЯ подпись от ', - 'sk' => 'ZLÝ podpis od ', - 'sv' => 'FELAKTIG signatur frÃ¥n ', - 'tr' => 'KÖTÜ imza: ', - 'zh_CN' => '已损坏的签字，来自于“', - 'zh_TW' => '*·lÃa* ªºÃ±³¹¨Ó¦Û©ó ' -); -my %gpg_expired = ( - 'be' => '', - 'ca' => 'Nota: La clau ha caducat!', - 'cs' => 'Poznámka: Skonèila platnost tohoto klíèe!', - 'da' => 'Bemærk: Denne nøgle er forældet!', - 'de' => 'Hinweis: Dieser Schlüssel ist verfallen!', - 'el' => 'Óçìåßùóç: Áõôü ôï êëåéäß Ý÷åé ëÞîåé!', - 'eo' => 'Noto: Æi tiu þlosilo eksvalidiøis!', - 'es' => 'Nota: ¡Esta clave ha caducado!', - 'et' => 'Märkus: See võti on aegunud!', - 'fi' => 'Huom: Tämä avain on vanhentunut!', - 'fr' => 'Note: Cette clé a expiré !', - 'gl' => 'Nota: ¡Esta chave xa caducou!', - 'hu' => 'Megjegyzés: Ez a kulcs lejárt!', - 'id' => 'Catatan: Kunci ini telah berakhir!', - 'it' => 'Nota: questa chiave è scaduta!', - 'ja' => 'Ãí°Õ: ¤³¤Î¸°¤ÏËþλ¤Ç¤¹!', - 'pl' => 'Uwaga: Data wa¿no¶ci tego klucza up³ynê³a!', - 'pt' => 'Nota: Esta chave expirou!', - 'pt_BR' => 'Nota: Esta chave expirou!', - 'ro' => 'Notã: Aceastã cheie a expirat!', - 'ru' => 'ПРЕДУПРЕЖДАЮ: Данный ключ просрочен!', - 'sk' => 'Poznámka: Skonèila platnos» tohto kµúèa!', - 'sv' => 'Obs: Giltighetstiden för denna nyckel har gÃ¥tt ut!', - 'tr' => 'Bilgi: Bu anahtarın kullanım süresi dolmuştu!', - 'zh_CN' => '注意：这把密钥已经过期了！', - 'zh_TW' => '½Ðª`·N¡G³o§âª÷Æ_¤w¸g¹L´Á¤F¡I' -); -my %gpg_good = ( - 'be' => 'нерэчаісны хэш-альгарытм ', - 'ca' => 'Signatura correcta de ', - 'cs' => 'Dobrý podpis od ', - 'da' => 'God signatur fra ', - 'de' => 'Korrekte Unterschrift von ', - 'el' => 'ÊáëÞ õðïãñáöÞ áðü ', - 'eo' => 'Bona subskribo de ', - 'es' => 'Firma correcta de ', - 'et' => 'Korrektne allkiri kasutajalt ', - 'fi' => 'Allekirjoitus täsmää lähettäjään ', - 'fr' => 'Bonne signature de « ', - 'gl' => 'Sinatura correcta de ', - 'hu' => 'Jó aláírás a következõtõl: ', - 'id' => 'Signature baik dari ', - 'it' => 'Firma valida da ', - 'ja' => '¡È', - 'pl' => 'Poprawny podpis z³o¿ony przez ', - 'pt' => 'Assinatura correcta de ', - 'pt_BR' => 'Assinatura correta de ', - 'ro' => 'Semnãturã bunã din ', - 'ru' => 'Действительная подпись от ', - 'sk' => 'Dobrý podpis od ', - 'sv' => 'Korrekt signatur frÃ¥n ', - 'tr' => 'Kullanıcı kimliği: ', - 'zh_CN' => '完好的签字，来自于“', - 'zh_TW' => '§¹¦nªºÃ±³¹¨Ó¦Û©ó ' -); -my %gpg_bug = ( - 'be' => '', - 'ca' => '... a�� �s un bug (', - 'cs' => '... toto je chyba v programu (', - 'da' => '... dette er en fejl (', - 'de' => '... dies ist ein Bug (Programmfehler) (', - 'el' => '... áõôü åßíáé bug (', - 'eo' => '... æi tio estas cimo (', - 'es' => '... esto es un bug (', - 'et' => '... see on viga (', - 'fi' => '...tämä on ohjelmistovika (', - 'fr' => '... cest un bug (', - 'gl' => '... isto é un erro (', - 'hu' => 'Ez egy programhiba... (', - 'id' => '... kesalahan (', - 'it' => '... questo è un bug (', - 'ja' => '... ¥Ð¥°¤Ç¤¹ (', - 'pl' => '... to jest b³±d programu (', - 'pt' => '... isto é um bug (', - 'pt_BR' => '... isto é um bug (', - 'ro' => '... acesta este un bug (', - 'ru' => ' ... это ошибка (', - 'sk' => '... toto je chyba v programe (', - 'sv' => '... detta är ett fel i programmet (', - 'tr' => '... bu bir yazılım hatası (', - 'zh_CN' => '……这是个程序缺陷(', - 'zh_TW' => '... ³o¬O­Ó·å²« (' -); -# }}} # set the defaults to the C locale $gpg_WARNING = 'WARNING: '; # (yes, the translations in gnupg's po files *are* braindamaged): @@ -621,9 +143,6 @@ sub sigint_handler { $sigint = 1; } -# esc(): escapes a scalar reference for use in perl regexp -sub esc { ${$_[0]} =~ s/([\[\]\(\)\*\.\-\^\$\@])/\\$1/go; } - # remove_footers(): remove any trailing appearance of footers contained # in the given directory. sub remove_footers { @@ -714,6 +233,7 @@ sub decomb { # underlining some part of the line above (using '^') # nor begin with a whitespace, # * the 1st line must not end with a hyphen, + # * the 2nd line must not indicate content was deleted, # * the 2nd line must not be some mutt(1) commentary, # * there must not be a valid word wrap to produce a longer # 1st line (if not quoted), @@ -729,6 +249,7 @@ sub decomb { ($$L[$x+1] !~ /^$/) && ($$L[$x+1] !~ /^[\s^]/) && ($$L[$x] !~ /-$/) && + ($$L[$x+1] !~ /^\Q[...]\E\s*$/) && ($mua ne 'mutt' || $$L[$x+1] !~ /^(?:\e.+?\a)?\[-- .* --]/) && (length($$L[$x])+index($$L[$x+1], ' ')>$max || (index($$L[$x+1], ' ')<0 && length($$L[$x])+length($$L[$x+1])>$max)) && @@ -788,11 +309,11 @@ sub pgp { my $ok = 0; while ($X<$Z) { - if ($$L[$X] =~ /^gpg:\s(?:$gpg_WARNING|$gpg_Warning|$gpg_bad|$gpg_Cantcheck|$gpg_expired)/o) + if ($$L[$X] =~ /^gpg:\s(?:\Q$gpg_WARNING\E|\Q$gpg_Warning\E|\Q$gpg_bad\E|\Q$gpg_Cantcheck\E|\Q$gpg_expired\E)/o) { return 0; } - if ($$L[$X] =~ /^gpg:\s$gpg_bug/o) + if ($$L[$X] =~ /^gpg:\s\Q$gpg_bug/o) { return 0; } - if ($$L[$X] =~ /^gpg:\s$gpg_good/o) + if ($$L[$X] =~ /^gpg:\s\Q$gpg_good/o) { $ok = 1; } $X++; } @@ -810,33 +331,32 @@ sub pgp { for (my $x=0; $x1 && - $$L[$i] =~ /^gpg:\s$gpg_aka/o && $$L[$i] !~ /$from/) + $$L[$i] =~ /^gpg:\s\Q$gpg_aka/o && $$L[$i] !~ /\Q$from/) { splice(@$L, $i, 1); splice(@$V, $i, 1); $i--; } - elsif ($$L[$i]=~/^(?:\e.+?\a)?(?:$mutt_pgpoutend)/o) + elsif ($$L[$i]=~/^(?:\e.+?\a)?(?:\Q$mutt_pgpoutend\E)/o) { if ($pgpmove || ($pgpmovevrf && (!$sigint) && verified($L, $x+1, $i))) @@ -852,7 +372,7 @@ sub pgp { } } elsif ($tmp && - $$L[$x]=~/^(?:\e.+?\a)?(?:$mutt_pgpencrypted|$mutt_pgpclearsigned|$mutt_pgpsigned)/o) + $$L[$x]=~/^(?:\e.+?\a)?(?:\Q$mutt_pgpencrypted\E|\Q$mutt_pgpclearsigned\E|\Q$mutt_pgpsigned\E)/o) { splice(@$L, $x+1, 0, @{$tmp[$tmp]}); for (my $i=$x; $i