#!/usr/bin/perl 

## Probably buggy
#
use warnings;
use strict;
use Getopt::Std;
use vars qw( $opt_s $opt_r $opt_n );

my ($srpm);

getopts('s:');
$srpm = $opt_s;

# Include nbe.pl
require("/usr/local/nbe/bin/nbe.pm");

#
# Print help info.
#
if (defined($opt_s)) {
	# Get info from srpm name.
	my ( $srpmname, $srpmversion, $srpmrevision, $arch );
	( $srpmname, $srpmversion, $srpmrevision, $arch ) = $srpm =~ /(.*)?-(\w*\d+.*)?-(\d{0,}|\w{0,}.*)?\.(\w+)\.rpm/; 
	print "$srpmversion-$srpmrevision\n";
}
