WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/escrow.pl



    my (@row);
Verbose ("getOSIDforBOMID");
    connectDM(\$DM_DB) unless ($DM_DB);
 
    my $m_sqlstr = "SELECT distinct os.OS_ID, os.OS_NAME, nn.NODE_NAME, obe.BASE_ENV_ID " .
                   " FROM DEPLOYMENT_MANAGER.OPERATING_SYSTEMS os, DEPLOYMENT_MANAGER.BOM_CONTENTS bc, DEPLOYMENT_MANAGER.NETWORK_NODES nn, DEPLOYMENT_MANAGER.OS_BASE_ENV obe" .
                   " WHERE bc.BOM_ID = $bom_id AND bc.NODE_ID = os.NODE_ID AND nn.NODE_ID = os.NODE_ID AND obe.OS_ID = os.OS_ID ";
 
    my $sth = $DM_DB->prepare($m_sqlstr);
    if ( defined($sth) )
    {

    connectDM(\$DM_DB) unless ($DM_DB);
 
    # First get details from pv_id
 
    my $m_sqlstr = "SELECT DISTINCT bec.PROD_ID, pkg.pkg_name, pv.pkg_version, pkg.pkg_id, pv.pv_id" .
                " FROM RELEASE_MANAGER.PACKAGES pkg, RELEASE_MANAGER.PACKAGE_VERSIONS pv, DEPLOYMENT_MANAGER.PRODUCT_DETAILS pd, DEPLOYMENT_MANAGER.BASE_ENV_CONTENTS bec".
                " WHERE bec.BASE_ENV_ID = $base_env_id AND bec.PROD_ID (+)= pv.PV_ID AND pv.pkg_id = pkg.pkg_id";
 
    my $sth = $DM_DB->prepare($m_sqlstr);
    if ( defined($sth) )
    {

    connectDM(\$DM_DB) unless ($DM_DB);
 
    # First get details from pv_id
 
    my $m_sqlstr = "SELECT osc.*, pkg.pkg_name, pv.pkg_version, pd.IS_REJECTED, pv.IS_PATCH,pv.IS_OBSOLETE, pkg.pkg_id, pv.pv_id" .
                " FROM RELEASE_MANAGER.PACKAGES pkg, RELEASE_MANAGER.PACKAGE_VERSIONS pv, DEPLOYMENT_MANAGER.PRODUCT_DETAILS pd,".
	            "(" .
		        " SELECT osc.seq_num, osc.prod_id".
		        " FROM DEPLOYMENT_MANAGER.os_contents osc".
		        " WHERE osc.os_id = $os_id" .
	            " ) osc" .
                " WHERE pd.PROD_ID (+)= pv.PV_ID" .
                "   AND pv.pkg_id = pkg.pkg_id" .
                "   AND osc.PROD_ID = pv.pv_id" .

    connectRM(\$RM_DB) unless ($RM_DB);
 
    # First get details from pv_id
 
    my $m_sqlstr = "SELECT pv.PV_ID, pkg.PKG_NAME, pv.PKG_VERSION, pv.PKG_LABEL, pv.SRC_PATH, pv.IS_DEPLOYABLE, pbi.BSA_ID, pbi.BM_ID, PV_DESCRIPTION" .
                    " FROM RELEASE_MANAGER.PACKAGE_VERSIONS pv, RELEASE_MANAGER.PACKAGES pkg, RELEASE_MANAGER.PACKAGE_BUILD_INFO pbi" .
                    " WHERE pv.PV_ID = \'$PV_ID\' AND pv.PKG_ID = pkg.PKG_ID AND pv.PV_ID = pbi.PV_ID (+) ";
 
    my $sth = $RM_DB->prepare($m_sqlstr);
    if ( defined($sth) )
    {

    connectRM(\$RM_DB) unless ($RM_DB);
 
    # First get details for a given package version
 
    my $m_sqlstr = "SELECT pv.PV_ID, pkg.PKG_NAME, pv.PKG_VERSION" .
                    " FROM RELEASE_MANAGER.PACKAGE_VERSIONS pv, RELEASE_MANAGER.PACKAGES pkg" .
                    " WHERE pkg.PKG_NAME = \'$pname\' AND pv.PKG_VERSION = \'$pver\' AND pv.PKG_ID = pkg.PKG_ID";
    my $sth = $RM_DB->prepare($m_sqlstr);
    if ( defined($sth) )
    {
        if ( $sth->execute( ) )

 
    #
    #   Now extract the package dependacies
    #
    my $m_sqlstr = "SELECT pkg.PKG_NAME, pv.PKG_VERSION, pd.DPV_ID" .
                   " FROM RELEASE_MANAGER.PACKAGE_DEPENDENCIES pd, RELEASE_MANAGER.PACKAGE_VERSIONS pv, RELEASE_MANAGER.PACKAGES pkg" .
                   " WHERE pd.PV_ID = \'$pv_id\' AND pd.DPV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID";
    my $sth = $RM_DB->prepare($m_sqlstr);
    if ( defined($sth) )
    {
        if ( $sth->execute( ) )

    connectRM(\$RM_DB);
 
    # First get details from pv_id
 
    my $m_sqlstr = "SELECT pv.PV_ID, pkg.PKG_NAME, pv.PKG_VERSION".
                   " FROM RELEASE_MANAGER.RELEASE_CONTENT rc, RELEASE_MANAGER.PACKAGE_VERSIONS pv, RELEASE_MANAGER.PACKAGES pkg" .
                   " WHERE rc.RTAG_ID = $RTAG_ID AND rc.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID";
    my $sth = $RM_DB->prepare($m_sqlstr);
    if ( defined($sth) )
    {
        if ( $sth->execute( ) )

Rev 287	Rev 289
Line 376...	Line 376...
376	`my (@row);`	376	`my (@row);`
377	`Verbose ("getOSIDforBOMID");`	377	`Verbose ("getOSIDforBOMID");`
378	`connectDM(\$DM_DB) unless ($DM_DB);`	378	`connectDM(\$DM_DB) unless ($DM_DB);`
379		379
380	`my $m_sqlstr = "SELECT distinct os.OS_ID, os.OS_NAME, nn.NODE_NAME, obe.BASE_ENV_ID " .`	380	`my $m_sqlstr = "SELECT distinct os.OS_ID, os.OS_NAME, nn.NODE_NAME, obe.BASE_ENV_ID " .`
381	`" FROM OPERATING_SYSTEMS os, BOM_CONTENTS bc, NETWORK_NODES nn, OS_BASE_ENV obe" .`	381	`" FROM DEPLOYMENT_MANAGER.OPERATING_SYSTEMS os, DEPLOYMENT_MANAGER.BOM_CONTENTS bc, DEPLOYMENT_MANAGER.NETWORK_NODES nn, DEPLOYMENT_MANAGER.OS_BASE_ENV obe" .`
382	`" WHERE bc.BOM_ID = $bom_id AND bc.NODE_ID = os.NODE_ID AND nn.NODE_ID = os.NODE_ID AND obe.OS_ID = os.OS_ID ";`	382	`" WHERE bc.BOM_ID = $bom_id AND bc.NODE_ID = os.NODE_ID AND nn.NODE_ID = os.NODE_ID AND obe.OS_ID = os.OS_ID ";`
383		383
384	`my $sth = $DM_DB->prepare($m_sqlstr);`	384	`my $sth = $DM_DB->prepare($m_sqlstr);`
385	`if ( defined($sth) )`	385	`if ( defined($sth) )`
386	`{`	386	`{`
Line 435...	Line 435...
435	`connectDM(\$DM_DB) unless ($DM_DB);`	435	`connectDM(\$DM_DB) unless ($DM_DB);`
436		436
437	`# First get details from pv_id`	437	`# First get details from pv_id`
438		438
439	`my $m_sqlstr = "SELECT DISTINCT bec.PROD_ID, pkg.pkg_name, pv.pkg_version, pkg.pkg_id, pv.pv_id" .`	439	`my $m_sqlstr = "SELECT DISTINCT bec.PROD_ID, pkg.pkg_name, pv.pkg_version, pkg.pkg_id, pv.pv_id" .`
440	`" FROM PACKAGES pkg, PACKAGE_VERSIONS pv,PRODUCT_DETAILS pd, BASE_ENV_CONTENTS bec".`	440	`" FROM RELEASE_MANAGER.PACKAGES pkg, RELEASE_MANAGER.PACKAGE_VERSIONS pv, DEPLOYMENT_MANAGER.PRODUCT_DETAILS pd, DEPLOYMENT_MANAGER.BASE_ENV_CONTENTS bec".`
441	`" WHERE bec.BASE_ENV_ID = $base_env_id AND bec.PROD_ID (+)= pv.PV_ID AND pv.pkg_id = pkg.pkg_id";`	441	`" WHERE bec.BASE_ENV_ID = $base_env_id AND bec.PROD_ID (+)= pv.PV_ID AND pv.pkg_id = pkg.pkg_id";`
442		442
443	`my $sth = $DM_DB->prepare($m_sqlstr);`	443	`my $sth = $DM_DB->prepare($m_sqlstr);`
444	`if ( defined($sth) )`	444	`if ( defined($sth) )`
445	`{`	445	`{`
Line 498...	Line 498...
498	`connectDM(\$DM_DB) unless ($DM_DB);`	498	`connectDM(\$DM_DB) unless ($DM_DB);`
499		499
500	`# First get details from pv_id`	500	`# First get details from pv_id`
501		501
502	`my $m_sqlstr = "SELECT osc.*, pkg.pkg_name, pv.pkg_version, pd.IS_REJECTED, pv.IS_PATCH,pv.IS_OBSOLETE, pkg.pkg_id, pv.pv_id" .`	502	`my $m_sqlstr = "SELECT osc.*, pkg.pkg_name, pv.pkg_version, pd.IS_REJECTED, pv.IS_PATCH,pv.IS_OBSOLETE, pkg.pkg_id, pv.pv_id" .`
503	`" FROM PACKAGES pkg, PACKAGE_VERSIONS pv,PRODUCT_DETAILS pd,".`	503	`" FROM RELEASE_MANAGER.PACKAGES pkg, RELEASE_MANAGER.PACKAGE_VERSIONS pv, DEPLOYMENT_MANAGER.PRODUCT_DETAILS pd,".`
504	`"(" .`	504	`"(" .`
505	`" SELECT osc.seq_num, osc.prod_id".`	505	`" SELECT osc.seq_num, osc.prod_id".`
506	`" FROM os_contents osc".`	506	`" FROM DEPLOYMENT_MANAGER.os_contents osc".`
507	`" WHERE osc.os_id = $os_id" .`	507	`" WHERE osc.os_id = $os_id" .`
508	`" ) osc" .`	508	`" ) osc" .`
509	`" WHERE pd.PROD_ID (+)= pv.PV_ID" .`	509	`" WHERE pd.PROD_ID (+)= pv.PV_ID" .`
510	`" AND pv.pkg_id = pkg.pkg_id" .`	510	`" AND pv.pkg_id = pkg.pkg_id" .`
511	`" AND osc.PROD_ID = pv.pv_id" .`	511	`" AND osc.PROD_ID = pv.pv_id" .`
Line 559...	Line 559...
559	`connectRM(\$RM_DB) unless ($RM_DB);`	559	`connectRM(\$RM_DB) unless ($RM_DB);`
560		560
561	`# First get details from pv_id`	561	`# First get details from pv_id`
562		562
563	`my $m_sqlstr = "SELECT pv.PV_ID, pkg.PKG_NAME, pv.PKG_VERSION, pv.PKG_LABEL, pv.SRC_PATH, pv.IS_DEPLOYABLE, pbi.BSA_ID, pbi.BM_ID, PV_DESCRIPTION" .`	563	`my $m_sqlstr = "SELECT pv.PV_ID, pkg.PKG_NAME, pv.PKG_VERSION, pv.PKG_LABEL, pv.SRC_PATH, pv.IS_DEPLOYABLE, pbi.BSA_ID, pbi.BM_ID, PV_DESCRIPTION" .`
564	`" FROM PACKAGE_VERSIONS pv, PACKAGES pkg, PACKAGE_BUILD_INFO pbi" .`	564	`" FROM RELEASE_MANAGER.PACKAGE_VERSIONS pv, RELEASE_MANAGER.PACKAGES pkg, RELEASE_MANAGER.PACKAGE_BUILD_INFO pbi" .`
565	`" WHERE pv.PV_ID = \'$PV_ID\' AND pv.PKG_ID = pkg.PKG_ID AND pv.PV_ID = pbi.PV_ID (+) ";`	565	`" WHERE pv.PV_ID = \'$PV_ID\' AND pv.PKG_ID = pkg.PKG_ID AND pv.PV_ID = pbi.PV_ID (+) ";`
566		566
567	`my $sth = $RM_DB->prepare($m_sqlstr);`	567	`my $sth = $RM_DB->prepare($m_sqlstr);`
568	`if ( defined($sth) )`	568	`if ( defined($sth) )`
569	`{`	569	`{`
Line 667...	Line 667...
667	`connectRM(\$RM_DB) unless ($RM_DB);`	667	`connectRM(\$RM_DB) unless ($RM_DB);`
668		668
669	`# First get details for a given package version`	669	`# First get details for a given package version`
670		670
671	`my $m_sqlstr = "SELECT pv.PV_ID, pkg.PKG_NAME, pv.PKG_VERSION" .`	671	`my $m_sqlstr = "SELECT pv.PV_ID, pkg.PKG_NAME, pv.PKG_VERSION" .`
672	`" FROM PACKAGE_VERSIONS pv, PACKAGES pkg" .`	672	`" FROM RELEASE_MANAGER.PACKAGE_VERSIONS pv, RELEASE_MANAGER.PACKAGES pkg" .`
673	`" WHERE pkg.PKG_NAME = \'$pname\' AND pv.PKG_VERSION = \'$pver\' AND pv.PKG_ID = pkg.PKG_ID";`	673	`" WHERE pkg.PKG_NAME = \'$pname\' AND pv.PKG_VERSION = \'$pver\' AND pv.PKG_ID = pkg.PKG_ID";`
674	`my $sth = $RM_DB->prepare($m_sqlstr);`	674	`my $sth = $RM_DB->prepare($m_sqlstr);`
675	`if ( defined($sth) )`	675	`if ( defined($sth) )`
676	`{`	676	`{`
677	`if ( $sth->execute( ) )`	677	`if ( $sth->execute( ) )`
Line 733...	Line 733...
733		733
734	`#`	734	`#`
735	`# Now extract the package dependacies`	735	`# Now extract the package dependacies`
736	`#`	736	`#`
737	`my $m_sqlstr = "SELECT pkg.PKG_NAME, pv.PKG_VERSION, pd.DPV_ID" .`	737	`my $m_sqlstr = "SELECT pkg.PKG_NAME, pv.PKG_VERSION, pd.DPV_ID" .`
738	`" FROM PACKAGE_DEPENDENCIES pd, PACKAGE_VERSIONS pv, PACKAGES pkg" .`	738	`" FROM RELEASE_MANAGER.PACKAGE_DEPENDENCIES pd, RELEASE_MANAGER.PACKAGE_VERSIONS pv, RELEASE_MANAGER.PACKAGES pkg" .`
739	`" WHERE pd.PV_ID = \'$pv_id\' AND pd.DPV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID";`	739	`" WHERE pd.PV_ID = \'$pv_id\' AND pd.DPV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID";`
740	`my $sth = $RM_DB->prepare($m_sqlstr);`	740	`my $sth = $RM_DB->prepare($m_sqlstr);`
741	`if ( defined($sth) )`	741	`if ( defined($sth) )`
742	`{`	742	`{`
743	`if ( $sth->execute( ) )`	743	`if ( $sth->execute( ) )`
Line 792...	Line 792...
792	`connectRM(\$RM_DB);`	792	`connectRM(\$RM_DB);`
793		793
794	`# First get details from pv_id`	794	`# First get details from pv_id`
795		795
796	`my $m_sqlstr = "SELECT pv.PV_ID, pkg.PKG_NAME, pv.PKG_VERSION".`	796	`my $m_sqlstr = "SELECT pv.PV_ID, pkg.PKG_NAME, pv.PKG_VERSION".`
797	`" FROM RELEASE_CONTENT rc, PACKAGE_VERSIONS pv, PACKAGES pkg" .`	797	`" FROM RELEASE_MANAGER.RELEASE_CONTENT rc, RELEASE_MANAGER.PACKAGE_VERSIONS pv, RELEASE_MANAGER.PACKAGES pkg" .`
798	`" WHERE rc.RTAG_ID = $RTAG_ID AND rc.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID";`	798	`" WHERE rc.RTAG_ID = $RTAG_ID AND rc.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID";`
799	`my $sth = $RM_DB->prepare($m_sqlstr);`	799	`my $sth = $RM_DB->prepare($m_sqlstr);`
800	`if ( defined($sth) )`	800	`if ( defined($sth) )`
801	`{`	801	`{`
802	`if ( $sth->execute( ) )`	802	`if ( $sth->execute( ) )`

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/escrow.pl – Rev 287 → 289