#!/usr/local/bin/perl

open(IN,"/usr/local/bin/prcs info -l $ARGV[0] |") or die;
while (<IN>) {
  $version = $1 if /^pennmush\s+(\S+)/;
  $inlog = 1 if /^version-log/i;
  $inlog = 0 if /^project-description/i;
  if ($inlog) {
    s/^Version-Log:\s+//;
    s/release/RELEASE/i;
    print "$version  $_" if /RELEASE/;
  }
}
close(IN);