#!/usr/bin/perl -w

my $rubbish;
my $product;
my $package;
my $version;
my $instdate;


printf "%-16.16s %-16.16s %-10.10s %s\n\n", "Product", "Package", "Version", "installed";
open (ALLPACKAGES, "pkginfo |");

while (<ALLPACKAGES>)
  {
  next if ! m/SMC/;
  chomp;

  ($rubbish, $package, $product) = split /\s+/, $_, 3;

  open (LONGLIST, "pkginfo -l $package |");
  while (<LONGLIST>)
    {
    chomp;
    $version=$1 if m/VERSION:\s+(.*)/;
    $instdate=$1 if m/INSTDATE:\s+(.*)/;
    }
  close(LONGLIST);


  printf "%-16.16s %-16.16s %-10.10s %s\n", $product, $package, $version, $instdate;
  }