#!/usr/local/bin/perl
 
use News::Article::Cancel;
my $article = News::Article::Cancel->new(\*STDIN);
my $pattern = shift || ".*";

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