#!/usr/bin/perl -w

use strict;
use warnings;

use RPM::Header;
use Getopt::Long;
use Pod::Usage;
#use File::Basename;
#use File::Temp qw/tempfile tempdir/;


my ($help);
my $verbose=1;

GetOptions (
    "help"  => \$help,
    "verbose+"  => \$verbose,
    'quiet'   => sub { $verbose = 0 },
    );
if ($help or not @ARGV) {
    #exec "pod2usage --exit=0 $0";
    pod2usage({ #-message => "the options below are package-specific:" ,
	-exitval => 0  ,
	-verbose => $verbose,
	#-output  => $filehandle
	      } );
}

my ($dir, $arg)=@ARGV;
if ($arg!~/.*\.rpm$/) {
    die "Invalid argument - not a rpm file: $arg";
}

my $rhref = new RPM::Header $arg;
my $name=$rhref->{NAME};
foreach my $rpm (glob $dir."/$name-*.rpm") {
    my $rhref = new RPM::Header $rpm;
    my $srpmfile=$rhref->{SOURCERPM};
    unlink $rpm if $rhref->{NAME} eq $name;
}
