Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%

'=====================================================

'                  NEW VERSION

'       Package Inquiry utilities

'       Designed to be called via AJAX and to return

'       JSON formatted data to dynamic page

'=====================================================

%>

<%

Option explicit

' Good idea to set when using redirect

Response.Expires = 0   ' always load the page, dont store

%>

<!--#include file="common/conf.asp"-->

<!--#include file="common/globals.asp"-->

<!--#include file="common/qstr.asp"-->

<!--#include file="common/common_subs.asp"-->

<!--#include file="class/classSortHelper.asp"-->

<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER SRC="class/classaspJSON.vbs"></SCRIPT> 

<%

'------------ Variable Definition -------------

Dim parOpr

Dim parPkgName

Dim result

Dim SqlQry

Dim rsQry

parOpr = QStrPar("Opr")

parPkgName = Trim(QStrPar("packageName"))

result = -1

' Init the output JSON class

'   Operations can add data

'   Default data will be added at the end

Dim oJSON

Set oJSON = New aspJSON

Dim newitem

If (parOpr = "checkName") Then

    ' Test existance of a package name

    ' Returns the PKG_ID of the package or 0

    '

    result = 0

    SqlQry = "SELECT pkg.*" &_

         "  FROM packages pkg"&_

         " WHERE pkg.pkg_id != 0"&_

         "   AND UPPER(pkg.pkg_name) = UPPER('"& parPkgName & "')"

    On Error Resume Next

    objEH.ErrorRedirect = FALSE

    objEH.TryORA ( OraSession )

    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

    objEH.CatchORA ( OraSession )

    If objEH.Finally Then

        If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then

            result = rsQry("pkg_id")

        End If

    End If

    rsQry.Close

    Set rsQry = Nothing

ElseIf (parOpr = "checkVer") Then

    '

    ' Test the existance of a Package-Version

    ' Returns the PV_ID of the package-Version or 0

    '

    result = 0

    SqlQry = "select pv.pkg_id, pv.PV_ID" &_

         "  FROM packages pkg,"&_

         "       package_versions pv"&_

         " WHERE pkg.pkg_id = pv.pkg_id"&_

         "   AND UPPER(pkg.pkg_name) = UPPER('"& parPkgName & "')" &_

         "   AND UPPER(pv.pkg_version) = UPPER('" & QStrPar("Version") & "')"

    On Error Resume Next

    objEH.ErrorRedirect = FALSE

    objEH.TryORA ( OraSession )

    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

    objEH.CatchORA ( OraSession )

    If objEH.Finally Then

        If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then

            result = rsQry("PV_ID")

        End If

    End IF

    rsQry.Close

    Set rsQry = Nothing

ElseIf (parOpr = "getVerList") Then

    Dim parPkgId

    parPkgId = QStrPar("pkg_id")

    result = 0

    SqlQry = "select pv_id, pkg_version, dlocked" &_

         "  FROM package_versions pv" &_

         " WHERE pv.pkg_id = "& parPkgId

    On Error Resume Next

    objEH.ErrorRedirect = FALSE

    objEH.TryORA ( OraSession )

    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

    objEH.CatchORA ( OraSession )

    If objEH.Finally Then

        oJSON.data("VersionRef") = QStrPar("Ref")

        Set oJSON.data("Versions") = oJSON.Collection()

        Dim aVersions

        Dim objSortHelper

        Dim lastRow, i

	    If rsQry.RecordCount > 0 Then

		    aVersions = rsQry.GetRows()

		    lastRow = UBound( aVersions, 2 )

		    Set objSortHelper = New SortHelper

		    ' Sort versions

		    Call objSortHelper.VersionSort( aVersions, 0, lastRow, rsQry.FieldIndex("pkg_version") )

		    ' Descending order

		    For i = lastRow To 0 Step -1

                Dim vname : vname = aVersions( rsQry.FieldIndex("pkg_version"), i )

                Dim pvid : pvid = aVersions( rsQry.FieldIndex("pv_id"), i )

                Dim lck : lck = aVersions( rsQry.FieldIndex("dlocked"), i )

                result = result + 1

                Set newitem = oJSON.AddToCollection(oJSON.data("Versions"))

                newitem.add "vname", vname

                newitem.add "pv_id", pvid

                newitem.add "dlocked", lck

		    Next

		    Set objSortHelper = nothing

	    End If

    End IF

    rsQry.Close

    Set rsQry = Nothing

End If

'

'   Create JSON data for the user

'   Important fields

'       result

'

'   Debug fields

'       QueryString

'       SqlQry

'       Request (Array)

'

'Write single value

oJSON.data("result") = result

' SQL error detection and reporting

If objEH.LastOraFailed Then

    oJSON.data("error") = 1

    oJSON.data("emsgSummary") = objEH.MessageSummary

    oJSON.data("emsgDetails") = objEH.MessageDetails

    oJSON.data("SqlQry") = SqlQry

End If

' DEBUG: An array of the user provided requests

oJSON.data("QueryString") = Request.QueryString

Set oJSON.data("Request") = oJSON.Collection()

Set newitem = oJSON.AddToCollection(oJSON.data("Request"))

Dim variableName

for each variableName in Request.QueryString

    newitem.add variableName, Request.QueryString(variableName)

next

'Return the object

Response.Write oJSON.JSONoutput()

Set oJSON = Nothing

Call Destroy_All_Objects

%>