#! /bin/perl

use strict;

use SCMTools::Util;

my ($report, $util); 
my $release_name = $ARGV[0];
my $Retcode = 0;

$util = SCMTools::Util->new();

$report = $util->runcmd("Report -general ReleaseView -select name -where \"name = '$release_name' \"");
chomp($report);

if ($report ne $release_name)
{
  print " fred.pl: Error.  There is no release $release_name.\n";
  $Retcode = 16;
}

exit($Retcode);