check-release: Simple frontend to Packages::Release

[deb/packages.git] / bin / check-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;
+}