#!/usr/bin/env perl
 
# use lib '/home/tskirvin/dev/newslib';

use News::Article::Cancel;
my $article = News::Article::Cancel->new (\*STDIN);
die "No article: $!\n" unless $article;
my $pattern = shift || ".*";

foreach my $group (split (',', $article->header ('newsgroups'))) {
    next unless $group =~ /^$pattern$/;
    my $answer = $article->verify_pgpmoose ($group) 
        || $article->verify_resurrected ($group);
    print $answer ? "Signed: $answer\n" 
                  : "Not verified: $group\n";
}