check-release: Simple frontend to Packages::Release

diff --git a/bin/check-release b/bin/check-release
new file mode 100755 (executable)
index 0000000..2071133
--- /dev/null
+++ b/bin/check-release
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use lib './lib';
+
+use File::Basename;
+use Getopt::Long;
+use Packages::Release;
+
+my %opts;
+GetOptions(\%opts, 'verbose', 'ignoremissing', 'dieoncheckerror',
+          'keyring=s', 'directory=s')
+    or die "GetOptions failed\n";
+
+my @files = @ARGV;
+
+unless (@files) {
+    die "no release files specified\n";
+}
+
+foreach my $file (@files) {
+
+    $opts{file} = $file;
+    $opts{base} ||= dirname($file);
+    my $release = Packages::Release->new(\%opts);
+    $release->check;
+}

diff --git a/lib/Packages/Release.pm b/lib/Packages/Release.pm
index 488233d86ce34dc81f19d6188e0b802c84ceb81a..6e8ea0811cf540c62c73a8839653fa7f619e92da 100644 (file)
--- a/lib/Packages/Release.pm
+++ b/lib/Packages/Release.pm
@@ -98,10 +98,11 @@ sub check {
     $self->config(%$config) if $config;
 
     return unless $self->{config}{file};
+    $self->_v("checking Release file $self->{config}{file}\n");
     my $sigfile = "$self->{config}{file}.gpg";
 
     if ($self->{config}{keyring}) {
-       $self->_v("checking signature\n");
+       $self->_v("\tchecking signature\n");
 
        die "$self->{config}{keyring} not readable\n"
            unless -r $self->{config}{keyring};