Subversion Repositories DevTools

#

#   The LWP is a part of the Active State Perl, but not the solaris perl

#   If the user has not read the installation doco that insists we use

#   ActiveState perl...

#

my $UserAgentAvailable = eval "require LWP::UserAgent";

my  $autobuild = $ENV{'GBE_ABT'} || 0;

    Information("PkgReleaseNote   =[$PkgReleaseNote]") unless ($autobuild);

    # lets get some details for our package

    getRmDetails();

#------------------------------------------------------------------------------

sub getRmDetails

#

#    Description:

#        This is called to update the RM class objects with details from RM database

#------------------------------------------------------------------------------

{

    #

    #   If this script is invoked by the AutoBuildTool, then we may not be able

    #   to create a Release Note as the RM entry may not be available. More over

    #   the ABT will create a release note as the package is made official

    #

    if ( $autobuild )

    {

        Debug('getRmDetails: AutoBuild Environment supresses function');

        return;

    }

    if ( ! defined($RmPkgDetails) )

    {

        # Set defaults for elements in RM if not found

        DeployUtils::RmPkgInfo->DefaultDescription($PkgDesc);

        DeployUtils::RmPkgInfo->DefaultLabel($PkgLabel);

        $RmPkgDetails = DeployUtils::RmPkgInfo->new( 

                                    { PKG_NAME => $PkgName, 

                                      PKG_VERSION => ( "$PkgPatchNum" ne "" ) ? $PkgPatchID : $PkgVersionUser } );

        # lets check to see if we got something

        if ( $RmPkgDetails->foundPkg() )

        {

            $RmPvPkgDetails = DeployUtils::RmPkgInfo->new( { PKG_NAME => $PkgName, 

                                                             PKG_VERSION => $PkgPreviousVersionStr } );

            if ( $RmPvPkgDetails->foundDetails() )

            {

                sub MultiLineVerb

                {

                    my ($prefix, $text ) = @_;

                    my $zap = 0;

                    foreach my $line ( split /[\r\n]+/, $text  )

                    {

                        Verbose($prefix . "[" . $line . "]");

                        unless ( $zap )

                        {

                            $prefix = ' ' x length($prefix);

                            $zap = 1;

                        }

                    }

                }

                Information("Retrieved Package Details from Release Manager");

                if ( IsVerbose(1) )

                {

                    MultiLineVerb("RM pkg_name       = ",  $RmPkgDetails->pkg_name()       );

                    MultiLineVerb("RM pkg_id         = ",  $RmPkgDetails->pkg_id()         );

                    MultiLineVerb("RM pv_id          = ",  $RmPkgDetails->pv_id()          );

                    MultiLineVerb("RM pv_description = ",  $RmPkgDetails->pv_description() );

                    MultiLineVerb("RM pv_overview    = ",  $RmPkgDetails->pv_overview()    );

                    MultiLineVerb("RM pv_reason      = ",  $RmPkgDetails->pv_reason()      );

                    MultiLineVerb("RM pv_label       = ",  $RmPkgDetails->pv_label()       );

                    MultiLineVerb("RM previousPv_id  = ",  $RmPvPkgDetails->pv_id()        );

                    MultiLineVerb("RM pv_dlocked     = ",  $RmPvPkgDetails->pv_dlocked()   );

                }

            }

            else

            {

                # our package does not exist in release manager

                Warning("Could not retrieve package $PkgName $PkgVersionUser previous version " .

                        "details from Release Manager.")

            }

        }

        else

        {

            # our package does not exist in release manager 

            Warning("Package $PkgName $PkgVersionUser does not exist in the Release Manager",

                    "Please check configuration.")

        }

    }

}  

    #

    #   If this script is invoked by the AutoBuildTool, then we may not be able

    #   to create a Release Note as the RM entry may not be available. More over

    #   the ABT will create a release note as the package is made official

    #

    if ( $autobuild )

    {

        Warning('AutoBuild Environment. Release notes generated later');

        return;

    }

    #

    #   Ensure the Release directory is present

    #

    make_directory( $ReleaseDir, 0777 );

    if ( ! getRmReleaseNote() )

    {

        Error("No Release Manager details, release note not generated.");

    }

}

#------------------------------------------------------------------------------

sub getRmReleaseNote

#

#    Description:

#

#------------------------------------------------------------------------------

{

    # lets get some details for our package

    getRmDetails();

    # now we need to ensure that our local build file dependencies are

    # the same as those we have entered in the Release Manager database.

    checkDependencies();

    # let's update the release contents now

    #

    generateProductContents();

    #

    #   Is the interface available

    #

    unless ( $UserAgentAvailable )

    {

        Warning("Unable to retrieve Release Manager Release Notes: LWP module missing");

        return 0;

    }

    our $GBE_RM_URL;

    EnvImport('GBE_RM_URL');

    Information("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 )

    {

        Verbose("Retrieved Release Manager HTML Release note [$PkgReleaseNote\.html]");

        return 1;

    }

    else

    {

        return 0;

    }

}

#------------------------------------------------------------------------------

sub checkDependencies

#

#------------------------------------------------------------------------------

{

    my ($i);

    my ($retValue) = 0;

    # first we want to loop through all our local build archives

    # 

    my ($versionStr) = "";

    foreach $i ( $BuildFileInfo->getDpkgArchiveList() )

    {

        my $moduleInfo = $BuildFileInfo->getDpkgArchiveInfo($i);

        $versionStr = "$moduleInfo->{version}"; 

        $versionStr .= "\.$moduleInfo->{proj}" if ( $moduleInfo->{proj} ne "" );

        my $depObj = $RmPkgDetails->getDependencyObject($i);

        if ( defined ( $depObj ) )

        {

            if ( $depObj->pkg_version() ne "$versionStr" )

            {

                Warning("Dependency difference, [$i] Local version $versionStr, RM version " . $depObj->pkg_version());

                $retValue = 1;

            }

        }  

        else

        {

            Warning("Dependency difference, [$i] Cannot locate archive in Release Manager database.");

            $retValue = 1;

        }

    }

    # lets check to see if we detected a difference 

    if ( $retValue != 0 )

    { 

        Error("Difference detected between the local build.pl and Release Manager config.",

              "Please check Release Manager configuration.");

    }

    # now we check release manager details against our local ones

    #

    foreach $i ( $RmPkgDetails->getDependencyNames() )

    {

        if ( "$i" eq "ishieldlibimg" || "$i" eq "ishieldlibicon" )

        {

            # these two packages are a special case,

            # we do not include them in the dependecy check

            #

            next;

        }

        my $moduleInfo = $BuildFileInfo->getDpkgArchiveInfo($i);

        if ( defined ( $moduleInfo ) )

        {

            $versionStr = "$moduleInfo->{version}"; 

            $versionStr .= "\.$moduleInfo->{proj}" if ( $moduleInfo->{proj} ne "" );

            my $depObj = $RmPkgDetails->getDependencyObject($i);

            if ( $depObj->pkg_version() ne "$versionStr" )

            {

                Warning("Dependency difference, [$i] local version $versionStr, RM version " . $depObj->pkg_version());

                $retValue = 1;

            }

        }  

        else

        {

            Warning("Dependency difference, cannot locate archive [$i] in local build.pl.");

            $retValue = 1;

        }

    }

    # lets check to see if we detected a difference 

    if ( $retValue != 0 )

    { 

        Error("Difference detected between Release Manager config and the local build.pl. ",

               "Please check the local configuration.");

    }

    return 1;

#------------------------------------------------------------------------------

sub generateProductContents

#

#------------------------------------------------------------------------------

{

    if ( ! defined($RmPkgDetails) )

    {

        # Set defaults for elements in RM if not found

        DeployUtils::RmPkgInfo->DefaultDescription($PkgDesc);

        DeployUtils::RmPkgInfo->DefaultLabel($PkgLabel);

        $RmPkgDetails = DeployUtils::RmPkgInfo->new( 

                        {

                            PKG_NAME => $PkgName,

                            PKG_VERSION => ( "$PkgPatchNum" ne "" ) ? $PkgPatchID : $PkgVersionUser

                        } );

    }

    # we only go on if we have a pkg 

    if ( $RmPkgDetails->foundPkg() )

    {

        # lets zap the product contents

        # only if the release manager entry is not locked.

        if ( $RmPkgDetails->pv_dlocked() ne "Y" )

        {

           Error("Failed to zap product contents.")

                if ( ! $RmPkgDetails->zapProductContents( $Platform ) );

        }

        # lets get a listing of the products contents

        #

        File::Find::find( \&ProductContentsFind, "$PkgBaseDir/$TargetBaseDir");

    }

    else

    {

        Warning("Unable to load product contents because we do not have a connection to Release Manager.");

    }

    # done

    return 1;

}

#------------------------------------------------------------------------------

sub ProductContentsFind

#

#    Description:

#        This subroutine is used to locate all associated items that 

#        have been designated for the product.

#

#------------------------------------------------------------------------------

{

    my($item)= "$File::Find::name";

    my($base)= File::Basename::basename($item);

    # we get the absolute path from the find, but we only require

    # a relative path from the starting dir.

    my ($_item)   = $item;

    my ($_subStr) = "$PkgBaseDir\/$TargetBaseDir";

    $_item =~ s/$_subStr//;

    my $cksumStr;

    my $cksumValue;

    my $cksumSize;

    my $cksumName;

    my $_tmpStr;

    my $retVal;

    my $cksumPath;

    if ( "$base" ne "." && "$base" ne ".." && "x$_item" ne "x" )

    {

        $_item =~ s/^\///;

        $cksumPath = $_item;

        $cksumName = File::Basename::basename($_item);

        # we need to determine which file we are dealing with

        if ( ! -d "$item")

        {

            $cksumStr  = `cksum "$item"`;

            $retVal    = $? / 256;

            if ( $retVal != 0 )

            {

                Error("Failed to determine cksum for product content item [$item].") 

            }

            else

            {

                chomp($cksumStr);

                $cksumStr =~ s/^\s+|\s+$//g;

                if ( $cksumStr =~ m/^([0-9]*)\s*([0-9]*)\s*(.*)$/ )

                {

                    ($cksumValue, $cksumSize, $_tmpStr) = ($1, $2, $3);

                    $cksumValue =~ s/^\s+|\s+$//g;

                    $cksumSize  =~ s/^\s+|\s+$//g;

                    $_tmpStr    =~ s/^\s+|\s+$//g;

                }

                else

                {

                    $cksumValue = '';

                    $cksumSize  = 0;

                    $_tmpStr    = '';

                }

            }

            $cksumPath = File::Basename::dirname($_item);

            if ( $cksumPath eq "." )

            {

                $cksumPath = '';

            }

            else

            {

                $cksumPath =~ s/$/\//;

            }

            # we only mess with the product contents

            # if the package is not released.

            if ( $RmPkgDetails->pv_dlocked() ne "Y" )

            {

                Error("Failed to insert product content item.")

                     if ( ! $RmPkgDetails->insertProductContentItem( $Target, $cksumPath, $cksumName, '', $cksumSize, $cksumValue) );

            }

            else

            {

                Verbose("product item - $Target, $cksumPath, $cksumName, '', $cksumSize, $cksumValue");

            }

        }

        else

        {

            $cksumPath =~ s/$/\//;

            if ( $RmPkgDetails->pv_dlocked() ne "Y" )

            {

               Error("Failed to insert product content item.")

                     if ( ! $RmPkgDetails->insertProductContentItem( $Target, $cksumPath, '', '', 0, '') );

            }

            else

            {

                Verbose("product dir - $Target, $cksumPath, '', '', 0, ''");

            }

        }

    }

}