Subversion Repositories DevTools

<?xml version="1.0" ?>
<package>
        <comment>
        PrimalCode wizard generated file.
        </comment>
        <job id="GenerateNodesSpecDefinitons" args="/bom_id:2864" prompt="no">
                <?job error="false" debug="false" ?>
                <runtime>
                        <named helpstring="Bom ID" name="bom_id" required="false" type="string"/>
                </runtime>
                <object id="Oracle_Objects_For_OLE" progid="OracleInProcServer.XOraServer" events="true"/>
                <script language="VBScript" src="common_subs.vbs"/>
                <script language="VBScript" src="config.vbs"/>
                <script language="VBScript" src="../common/nodeSpec.vbs"/>
                <script id="GenerateNodeSpecFiles" language="VBScript">
<![CDATA[
Option Explicit
'=====================================================
'        Name:  GetNodesSpecFiles
' Description:  Gets the nodes specification files for 
'                               nodes that have an existing node spec   
'                               filename.
'          Author:      Rupesh Solanki  
'                               
'                               
'               INPUT:  bom_id

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

'== Variable Definition ==============================
Dim BomId
Dim objArgs
'== Constants Declaration ============================
'== Variable Init ====================================
'=====================================================


'-----------------------------------------------------------------------------------------------------------------
Sub GenerateNodesSpecDefinitons ( nBomId )
        Dim rsQry, aNetworkNodes, NodeSpec, DateString
        Dim lastRow, row
                
        OraDatabase.Parameters.Add "BOM_ID", nBomId, ORAPARM_INPUT, ORATYPE_NUMBER 
                          
        Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NodesSpecFileNames.sql"), ORADYN_DEFAULT )
        
        OraDatabase.Parameters.Remove "BOM_ID"
        
        If rsQry.RecordCount > 0 Then
                aNetworkNodes = rsQry.GetRows()
                
        End If
        
        lastRow = UBound( aNetworkNodes, 2 )
        DateString = DateReversed( Date )
        
        For row = 0 To lastRow
                WScript.Echo "OSID:" & aNetworkNodes( 10, row )
                NodeSpec = Null
                NodeSpec = GenerateOsSpec( aNetworkNodes( 10, row ) )
        
                'WScript.Echo XMLNode
                
                ' Save to a file
                'Call SaveFile( DateString, rsQry("version"), rsQry("branch_name"), "\\auperaunx26\releases\nodespecfiles",  ( aNetworkNodes( 6, row ) ) , NodeSpec )
                Call SaveFile( DateString, rsQry("version"), rsQry("branch_name"), APP_ROOT &"nodespecfiles",  ( aNetworkNodes( 6, row ) ) , NodeSpec )
                
                
        Next

End Sub
'-----------------------------------------------------------------------------------------------------------------

'=================================== MAIN LINE ======================================
WScript.Echo "==================== job:GenerateNodesSpecDefinitons ===================="

Set objArgs = WScript.Arguments

If (objArgs.Unnamed.Count > 0) Then
        Wscript.Echo "ERROR: Unnamed parameters!"
        objArgs.ShowUsage
        WScript.Quit
        
Else
        BomId = objArgs.Named.Item("bom_id")
                
        If ( BomId <> "" ) Then
                Call GenerateNodesSpecDefinitons( BomId )
                        
        Else
                objArgs.ShowUsage
                WScript.Quit
                
        End If
        
End If


WScript.Echo "Job completed successfully!"

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


]]>
                </script>
        </job>
</package>