The following commit has been merged in the master branch:
commit 24d90ece880a98242a02dcae6d4d8d076b7cdf95
Author: Frank Lichtenheld <[EMAIL PROTECTED]>
Date: Sat Apr 26 01:53:07 2008 +0200
check-release: Simple frontend to Packages::Release
diff --git a/bin/check-release b/bin/check-release
new file mode 100755
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 488233d..6e8ea08 100644
--- 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};
--
APT Archive Web-Frontend (Alioth repository)
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
