#! /usr/bin/perl -sw

# Created by Steve Voisey (srv) 12 Oct 2010.
# email: [steve.voisey@ericsson.com]
# cmsVersion.pl - V1.008

my $divide = "=" x 60 . "\n";
my $hostname = `hostname`;

$site = "UNKNOWN";

@customerSpecificRelease = ("scac-tools");


print "\n${divide}${site} component package versions\n${divide}";
rpmQuery(\@customerSpecificRelease);
print "\n";

exit;


sub rpmQuery {
        my $symArrayRef = $_[0];
        foreach $element (@$symArrayRef) {
                #print "$element\t\t:";
                print `rpm -q $element`;
        }
}