Subversion Repositories DevTools

use JatsRmApi;

use DBI;

my $opt_updateRmFiles;

                    "UpdateRmFiles" =>  \$opt_updateRmFiles     # flag

    #   Update the Release Manager entry - File Data

    #

    if ($opt_updateRmFiles)

    {

        updateRmFiles();

        updateRmNoteInfo();

    }

    #

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

# Function        : updateRmFiles 

#

# Description     : 

#

# Inputs          : 

#

# Returns         : 

#

my $RM_DB;

my  $updateRmFilesData;

sub updateRmFiles

{

    my $eCount = 0;

    #

    #   If in use the the autobuilder - which it should be, then

    #   modify the user name

    #

    #$ENV{GBE_RM_LOCATION} = 'jdbc:oracle:thin:@auperaora07:1521:RELMANU1';

    #$ENV{GBE_RM_USERNAME} = 'build_user'; 

    #$ENV{GBE_RM_PASSWORD} = 'frog123';

    $ENV{GBE_RM_LOCATION} = 'jdbc:oracle:thin:@auperaora07:1521:RELMANU1';

    $ENV{GBE_RM_USERNAME} = 'release_manager'; 

    $ENV{GBE_RM_PASSWORD} = 'release_manager';

    if ($ENV{ABT})

    {

        $ENV{GBE_RM_USERNAME} = $ENV{GBE_RM_USERNAME} . '[release_manager]'; 

    }

    #

    #   Read in the release note data base

    #

    my $rnDataBase = catdir($DPKG_DOC, 'release_note.xml');

    if (! -f $rnDataBase )

    {

        Error("Release Note XML database not found: $!", $rnDataBase);

    }

    my $xml = XMLin($rnDataBase);

    #

    #   Sanity Test the data

    #

    Error("Sanity Check Failure. PVID") unless($opt_pvid eq $xml->{package}{pvid});

    Error("Sanity Check Failure. Name") unless($opt_pname eq $xml->{package}{name});

    Error("Sanity Check Failure. Version") unless($opt_pversion eq $xml->{package}{version});

    Error("Sanity Check Failure. File Section") unless(exists $xml->{files}{file});

#    DebugDumpData("XML DATA", \$xml);

    #

    #   Delete any existing entry(s)

    #

    updateRmFilesDelete();

    #

    #   Scan each entry and pump required data into the RM Database

    #

    $updateRmFilesData = ""; 

    foreach my $entry (@{$xml->{files}{file}})

    {

        #DebugDumpData("Entry", $entry);

        #

        #   Clean up the data

        #

        my $fname = $entry->{name} || '';

        my $fpath  = $entry->{path} || '';

        my $fsize  = $entry->{size} || 0;

        my $fmd5  = $entry->{md5sum} || '';

        $fpath =~ s~/$~~ unless $fname;

        #

        #   Create SQL fragment for the insert

        #

        $eCount++;

        my $entry = " INTO release_manager.release_components ( pv_id, file_name, file_path, byte_size, crc_cksum, crc_modcrc ) " .

                    " VALUES ( $opt_pvid, '$fname', '$fpath',$fsize , '$fmd5', '')";

        $updateRmFilesData .= $entry;

        # The size of the aggregation is key to performance

        # Too big is as bad as too small

        if (length($updateRmFilesData) > 10000)

        {

            updateRmFilesInsert();

        }

    }

    updateRmFilesInsert();

    Verbose ("Inserted $eCount entries into Release_Components");

}

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

# Function        : updateRmFilesInsert 

#

# Description     : Insert entries using the partial SQL statement 

#                   Must be called when the partial SQL buffer get large

#                   as well as at the end to fluch any outstanding inserts

#

# Inputs          : 

#

# Returns         : 

#

sub updateRmFilesInsert

{

    if (length($updateRmFilesData) > 0)

    {

        executeRmQuery(

            'updateRmFilesInsert',

            'INSERT ALL' .$updateRmFilesData . ' SELECT 1 FROM DUAL'

            );

        $updateRmFilesData = ""; 

    }

}

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

# Function        : updateRmFilesDelete 

#

# Description     : Delete ALL entires in the 'release_components' table associated

#                   with the current pvid

#                   

#                   Needs to be done before new entries are added.    

#

# Inputs          : 

#

# Returns         : 

#

sub updateRmFilesDelete

{

    executeRmQuery(

        'updateRmFilesDelete',

        'delete from release_components where pv_id=' . $opt_pvid

        );

}

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

# Function        : updateRmNoteInfo 

#

# Description     : Insert Release Note Info into the Release Manager Database

#                   This has the side effect that RM will see the Release Note

#                   as being fully generated.

#

# Inputs          : 

#

# Returns         : 

#

sub updateRmNoteInfo

{

    #

    #   Determine the path to the Release Note in a form that is suitable for the Release Manager

    #   Database. This expects: /dpkg_archive/PkgName/PkgVer/doc/pkgFileName

    #

    my $rnPath = join('/', '', 'dpkg_archive', $opt_pname, $opt_pversion, 'doc', $opt_outname);

    Verbose("RN_INFO:", $rnPath);

    # Into the database

    executeRmQuery (

        'updateRmNoteInfo', 

        'update release_manager.package_versions set release_notes_info=\'' . $rnPath . '\' where pv_id=' . $opt_pvid

        );

}

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

# Function        : executeRmQuery 

#

# Description     : Execute a simple RM query. One that does not expect any return data

#

# Inputs          : $fname           - OprName, for error reporting

#                   $m_sqlstr        - SQL String

#

# Returns         : Will exit on error

#

sub executeRmQuery

{

    my ($fname, $m_sqlstr) = @_;

    #

    #   Connect to the Database - once

    #

    connectRM(\$RM_DB, 0) unless $RM_DB;

    #

    #   Create the full SQL statement

    #

    my $sth = $RM_DB->prepare($m_sqlstr);

    if ( defined($sth) )

    {

        if ( $sth->execute() )

        {

            $sth->finish();

        }

        else

        {

            Error("$fname: Execute failure: $m_sqlstr", $sth->errstr() );

        }

    }

    else

    {

        Error("$fname: Prepare failure");

    }

}

    -UpdateRmFiles     - Update the Files list in Release Manager

=item B<-UpdateRmFiles>

This option will case the utility to ppdate the Files list in Release Manager.

The existinf file list will be replaced by the one within the package.

Note: Write Access to Release Manager is required.