Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|                        PAOLO BUILD TREE                                       |
'|                                                   |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0
%>
<!--#include file="common/conf.asp"-->

<%
'------------ VARIABLE DEFINITION -------------
Dim rsQry
Dim oPackages
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
Set oPackages = CreateObject("Scripting.Dictionary")

'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%


Function GetAllPackages ( )
        GetAllPackages = _
        " SELECT ttb.PV_ID, ROWNUM AS NEW_PV_ID"&_
        "       FROM TEMP_TREE_BROWSE ttb"&_
        "  WHERE ttb.SESSION_NUM = 0 "
End Function


Function GetPackage ()
        GetPackage = _
        " SELECT pkg.pkg_name, pv.pv_id, pv.PKG_VERSION"&_
        "  FROM PACKAGE_VERSIONS pv,"&_
        "       PACKAGES pkg"&_
        " WHERE pv.pkg_id = pkg.pkg_id"&_
        "   AND pv.PV_ID = :PV_ID "
End Function


Function GetPackageDependencies ()
        GetPackageDependencies = _
        " SELECT pv.pv_id AS DPV_ID"&_
        "  FROM PACKAGE_VERSIONS pv,"&_
        "       PACKAGES pkg,"&_
        "       PACKAGE_DEPENDENCIES dep"&_
        " WHERE pv.pkg_id = pkg.pkg_id"&_
        "   AND pv.PV_ID = dep.DPV_ID"&_
        "   AND dep.PV_ID = :PV_ID "
End Function


%>
<%
'-- MAIN VBLINE ---------------------------------------
'------------------------------------------------------
%>
<PRE>
<%
Dim aPackages, PvId, sDependencies



Set rsQry = OraDatabase.DbCreateDynaset( GetAllPackages() , ORADYN_DEFAULT )

' Get all packages and store in hash table
While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
        
        oPackages.Item ( CStr(rsQry("PV_ID")) ) = ( CStr( rsQry("NEW_PV_ID") ) )
        'Response.write rsQry("PV_ID") &" "& rsQry("NEW_PV_ID") &VBNewLine
        
        
        rsQry.MoveNext
WEnd

rsQry.Close
Set rsQry = Nothing




' Get each package
aPackages = oPackages.Keys


For Each PvId In aPackages
        OraDatabase.Parameters.Add "PV_ID", PvId,       ORAPARM_INPUT, ORATYPE_NUMBER 
        
        
        
        ' Get package
        Set rsQry = OraDatabase.DbCreateDynaset( GetPackage () , ORADYN_DEFAULT )
        
        Response.write  oPackages.Item ( CStr( rsQry("PV_ID") ) ) &","& rsQry("PKG_NAME") &" "& rsQry("PKG_VERSION") &",1d,2/02/2005 8:00:00 AM,,"
        
        rsQry.Close
        
        
        
        
        ' Get dependencies
        Set rsQry = OraDatabase.DbCreateDynaset( GetPackageDependencies() , ORADYN_DEFAULT )
        
        Response.write  """"
        
        sDependencies = ""
        While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
                
                sDependencies =  sDependencies & oPackages.Item ( CStr( rsQry("DPV_ID") ) ) &","
                
                rsQry.MoveNext
        WEnd
        
        '' Remove last comma
        If sDependencies <> "" Then
                sDependencies = Left( sDependencies, Len(sDependencies) - 1)
        End If
        
        Response.write sDependencies
        
        Response.write  """"
        
        rsQry.Close
        
        
        
        ' Print last bits
        Response.write ",,"& VBNewLine
        
        
        
        OraDatabase.Parameters.Remove "PV_ID"
Next

Set rsQry = Nothing


%>
</PRE>