Subversion Repositories DevTools

#!/usr/local/bin/perl -w

use LWP::UserAgent;
use DeployUtils::Logger;
use DeployUtils::RmPkgInfo;
use JatsEnv;

if ( $#ARGV != 2 )
{
    printf("Error: Must supply Platform, Package Name & Pkg Version\n");
    exit 1;
}

my $Platform    = $ARGV[0];
my $PkgName     = $ARGV[1];
my $PkgVersion  = $ARGV[2];

my $PkgReleaseNote = "$PkgName-$PkgVersion-$Platform";

LogNorm("Retrieving Release Manager Details...Please wait...");
my $RmPkgDetails = DeployUtils::RmPkgInfo->new( 
                            { PKG_NAME => $PkgName, 
                              PKG_VERSION => $PkgVersion } );

# our package does not exist in release manager 
LogError("Package $PkgName $PkgVersion does not exist in the Release Manager. Please check configuration.") 
    if ( ! $RmPkgDetails->foundPkg() );

our $GBE_RM_URL;
EnvImport('GBE_RM_URL');

LogNorm("Retrieving Release Notes From Release Manager...Please wait...");

my $user_agent = LWP::UserAgent->new( timeout => 30 );
my $response = $user_agent->get($GBE_RM_URL . '/_adhoc_release_notes.asp?pv_id='. $RmPkgDetails->pv_id(),
                                ':content_file' => "$PkgReleaseNote\.html");
if ( $response->is_success )
{
    LogNorm("Retrieved Release Manager HTML Release note [$PkgReleaseNote\.html]");
    exit 0;
}
else
{
    LogWarn("Unable to retrieve Release Manager Release Notes for pv_id [" . $RmPkgDetails->pv_id() . "]");
    print $response->error_as_HTML;
    exit 1;
}