Re: [devel] [devel-announce] ANN: закрытие багов через changelog пакетов

[Vladimir Lettiev <thecrux@gmail.com>]

10 апреля 2009 г. 20:43 пользователь Mikhail Gusarov <dottedmag@> написал:
>
> Twas brillig at 20:35:11 10.04.2009 UTC+04 when thecrux@ did
> gyre and gimble:
>
>  VL> может реализовать консольный вариант утилиты или прикрутить к
>
> Можно сделать письмом в багзиллу (не только закрытие, а вообще
> манипуляцию багами), только нужно аутентификацию придумать
> (аутентификация через shared secret, которой пользуются girar-builder и
> багзилла, в общем виде небезопасна).
>
> Если у кого есть под рукой скриптик, проверяющий подпись на письме, то
> это прикрутить недолго.

Есть один такой.
В качестве аргумента скрипта - путь к файлу с письмом.

Чтобы проверка прошла успешно необходимо, чтобы в каталог $HOME/.gnupg
были импортированы все ключи, которые будут приниматься.

Пример запуска:

$ LANG=C perl check_mail letter.eml
ID: A26F54C8
E-MAIL: Mikhail Gusarov <dottedmag@altlinux.ru>


---

#!/usr/bin/perl
#
#  check_mail - check mail gpg signature
#

use strict;
use Mail::GnuPG;
use MIME::Parser;

my $parser = new MIME::Parser;
$parser->decode_bodies(0);
my $entity = $parser->parse_open($ARGV[0]);

my $mg = new Mail::GnuPG(keydir=>$ENV{HOME}."/.gnupg");

foreach my $part ($entity, $entity->parts) {
        if ($mg->is_signed($part)) {
                my @ret = $mg->verify($part);
                unless (shift @ret) {
                        printf "ID: %s\nE-MAIL: %s\n",@ret;
                        last;
                }
        }
}
$entity->purge;


-- 
Vladimir Lettiev aka crux <theCrux@gmail.com>