Subversion Repositories DevTools

Rev

Rev 2026 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
392 dpurdie 1 
#! perl
2 
########################################################################
5710 dpurdie 3 
# Copyright (c) VIX TECHNOLOGY (AUST) LTD
392 dpurdie 4 
#
5 
# Module name   : jats.sh
6 
# Module type   : Makefile system
7 
# Compiler(s)   : n/a
8 
# Environment(s): jats
9 
#
10 
# Description   : Display the currently released version of ALL packages
11 
#                 that are a part of a given release
12 
#
13 
#                 Currently hard coded to Sydney Release-1
14 
#
15 
# Usage:
16 
#
17 
# Version   Who      Date        Description
18 
#
19 
#......................................................................#
20 
 
21 
require 5.006_001;
22 
use strict;
23 
use warnings;
24 
use JatsError;
25 
use JatsRmApi;
26 
 
27 
#use Data::Dumper;
28 
use DBI;
29 
use Cwd;
30 
 
31 
my $GBE_PERL     = $ENV{'GBE_PERL'};        # Essential ENV variables
32 
my $GBE_CORE     = $ENV{'GBE_CORE'};
33 
my $opt_verbose = 1;
34 
my $RM_DB;
35 
my @GDATA;
36 
 
37 
sub getPkgDetailsByRTAG_ID
38 
{
39 
    my ($RTAG_ID) =@_;
40 
    my $foundDetails = 0;
41 
    my (@row);
42 
 
43 
    # if we are not or cannot connect then return 0 as we have not found anything
44 
    connectRM(\$RM_DB);
45 
 
46 
    # First get details from pv_id
47 
 
48 
    my $m_sqlstr = "SELECT pv.PV_ID, pkg.PKG_NAME, pv.PKG_VERSION FROM RELEASE_CONTENT rc, PACKAGE_VERSIONS pv, PACKAGES pkg WHERE rc.RTAG_ID = $RTAG_ID AND rc.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID";
49 
    my $sth = $RM_DB->prepare($m_sqlstr);
50 
    if ( defined($sth) )
51 
    {
52 
        if ( $sth->execute( ) )
53 
        {
54 
            print "--- Execute\n";
55 
            if ( $sth->rows )
56 
            {
57 
                print "--- Execute ROWS\n";
58 
                while ( @row = $sth->fetchrow_array )
59 
                {
60 
                    my %DATA;
61 
                    $DATA{pv_id}            = $row[0];
62 
                    $DATA{name}             = $row[1];
63 
                    $DATA{version}          = $row[2];
64 
                    push @GDATA, (\%DATA);
65 
print "$row[1], $row[2]\n";
66 
                }
67 
            }
68 
            print "--- Finish\n";
69 
            $sth->finish();
70 
        }
71 
    }
72 
    else
73 
    {
74 
        Error("Prepare failure" );
75 
    }
76 
}
77 
 
78 
#-------------------------------------------------------------------------------
79 
# Function        : Main
80 
#
81 
# Description     :
82 
#
83 
# Inputs          :
84 
#
85 
# Returns         :
86 
#
87 
 
88 
ErrorConfig( 'name'    =>'PLAY5' );
89 
 
90 
 
91 
getPkgDetailsByRTAG_ID(2362);           # 2362 : Syd Release 1
92 
#DebugDumpData("GDATA", \@GDATA);
93 
exit;
94 
 
95