bin/check-release

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use lib './lib';
   6
   7 use File::Basename;
   8 use Getopt::Long;
   9 use Packages::Release;
  10
  11 my %opts;
  12 GetOptions(\%opts, 'verbose', 'ignoremissing', 'dieoncheckerror',
  13            'keyring=s', 'directory=s')
  14     or die "GetOptions failed\n";
  15
  16 my @files = @ARGV;
  17
  18 unless (@files) {
  19     die "no release files specified\n";
  20 }
  21
  22 foreach my $file (@files) {
  23
  24     $opts{file} = $file;
  25     $opts{base} ||= dirname($file);
  26     my $release = Packages::Release->new(\%opts);
  27     $release->check;
  28 }