#!/usr/local/bin/perl
# 
# $Header: getListOfRPMs.pl 11-sep-2006.05:58:23 rattipal Exp $
#
# getListOfRPMs.pl
# 
# Copyright (c) 2005, 2006, Oracle. All rights reserved.  
#
#    NAME
#      getListOfRPMs.pl - <one-line expansion of the name>
#
#    DESCRIPTION
#      <short description of component this file declares/defines>
#
#    NOTES
#      <other useful comments, qualifications, etc.>
#
#    MODIFIED   (MM/DD/YY)
#    rattipal    09/11/06 - Backport ssdas_suse_fix from main
#    rshetty     07/28/06 - get only rpm names without version 
#    pshroff     07/08/05 - adding error handling 
#    pshroff     06/30/05 - pshroff_map_shiphome
#    rbhanush    03/22/05 - rbhanush_oscomp
#    pshroff     02/24/05 - Creation
# 

system('rpm -qa --qf "%{NAME}\n"') ;
exit ($? >> 8);