Subversion Repositories DevTools

<?xml version="1.0" ?>
<package>
        <comment>
        PrimalCode wizard generated file.
        </comment>
        <job id="onMakeUnofficial" args="/pkg_name:tp5000 /pkg_version:1.20.0.oso" prompt="no">
                <?job error="false" debug="false" ?>
                <runtime>
                        <named helpstring="Package Name" name="pkg_name" required="false" type="string"/>
                        <named helpstring="Package Version" name="pkg_version" required="false" type="string"/>
                        <named helpstring="Package primary key" name="pv_id" required="false" type="string"/>
                        <usage>
Usage: 
   Admin_Tools.wsf [/pkg_name:value] [/pkg_version:value]
OR
   Admin_Tools.wsf [/pv_id:value]

Options:

pkg_name     : Package Name
pkg_version  : Package Version
pv_id        : Package Version primary key
                        </usage>
                </runtime>
                <object id="Oracle_Objects_For_OLE" progid="OracleInProcServer.XOraSession" events="true"/>
                <script language="VBScript" src="common_subs.vbs"/>
                <script language="VBScript" src="config.vbs"/>
                <script language="VBScript" src="pkg_archive.vbs"/>
                <script id="Admin_Tools" language="VBScript">
<![CDATA[
Option Explicit
'=====================================================
'        Name:  onMakeUnofficial
' Description:  Run this job when making package
'               Unofficial again. This job should 
'               make version folder writable again.
'               INPUT:  pkg_name
'                               pkg_version
'               OR pv_id
'=====================================================

'================ Variable Definition ================
Dim parPv_id
Dim parPkg_name
Dim parPkg_Version
Dim objArgs
'=============== Constants Declaration ===============
'================== Variable Init ====================
'=====================================================
'-----------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------
Sub onMakeUnofficial ( )
        Dim fileSys, rootPath, objPkgFileSys
        Set objPkgFileSys = New PkgArchive
        
        
        ' Configure target machine
        objPkgFileSys.Remote_Host = TELNET_MACHINE
        objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
    
        objPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive       ' Map Drive if required
        rootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
                
        Set fileSys = CreateObject("Scripting.FileSystemObject") 
    
    ' Do this only if folder exists     
    
        'If fileSys.FolderExists( rootPath ) Then
            objPkgFileSys.Ensure_Read_Write parPkg_name, parPkg_version         ' Make sure all files and folders can be read
            
            Call Write_To_Release_Notes_Info ( parPv_id, NULL )             ' Clean release notes info
        'End If
        
End Sub
'-----------------------------------------------------------------------------------------------------------------
'-------------------- MAIN LINE ----------------------
WScript.Echo "==================== job:onMakeUnofficial ===================="

Set objArgs = WScript.Arguments

If (objArgs.Unnamed.Count > 0) Then
        Wscript.Echo "ERROR: Unnamed parameters!"
        objArgs.ShowUsage
        WScript.Quit
        
Else
        parPkg_name = objArgs.Named.Item("pkg_name")
        parPkg_Version = objArgs.Named.Item("pkg_version")
        parPv_id = objArgs.Named.Item("pv_id")
                
        If ( parPkg_name <> "" AND parPkg_Version <> "") Then
                Call Get_PV_ID ( parPkg_name, parPkg_Version, parPv_id )
                
        ElseIf parPv_id <> ""  Then
                Call Get_Pkg_Name_Version ( parPv_id, parPkg_name, parPkg_Version )
                
        Else
                objArgs.ShowUsage
                WScript.Quit
                
        End If
        
End If

Call onMakeUnofficial ( )

WScript.Echo "onMakeUnofficial finished successfully!"
]]>
                </script>
        </job>
    
        <job id="onTestArchiveAccess">
                <?job error="false" debug="false" ?>
                <runtime>
                        <usage>
Usage: 
   Admin_Tools.wsf //job:onTestArchiveAccess 
                        </usage>
                </runtime>

                <script language="VBScript" src="common_subs.vbs"/>
                <script language="VBScript" src="config.vbs"/>
                <script language="VBScript" src="pkg_archive.vbs"/>
                <script id="onTestArchiveAccess" language="VBScript">
<![CDATA[
Option Explicit
'=====================================================
'        Name:  onTestArchiveAccess
' Description:  Run this job to test access to Release Manager
'               INPUT:  None
'=====================================================
'================ Variable Definition ================
Dim objArgs
'=============== Constants Declaration ===============
'================== Variable Init ====================
'=====================================================
'-----------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------
Sub onTestArchiveAccess ( )
        Dim fileSys, rootPath, objPkgFileSys, rv
        Set objPkgFileSys = New PkgArchive
        
        ' Configure target machine
        objPkgFileSys.Remote_Host = TELNET_MACHINE
        objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
    
        Set fileSys = CreateObject("Scripting.FileSystemObject") 
        rv = objPkgFileSys.Test_Pkg_Archive_Access
    WScript.Echo "onTestArchiveAccess rv:" & rv
         
    Set fileSys = Nothing
    Set objPkgFileSys = Nothing
        
End Sub
'-----------------------------------------------------------------------------------------------------------------
'-------------------- MAIN LINE ----------------------
WScript.Echo "==================== job:onTestArchiveAccess ===================="

Set objArgs = WScript.Arguments

Call onTestArchiveAccess ( )

WScript.Echo "onTestArchiveAccess finished successfully!"
]]>
                </script>
        </job>
    
        <job id="onTestMapArchive">
                <?job error="false" debug="false" ?>
                <runtime>
                        <usage>
Usage: 
   Admin_Tools.wsf //job:onTestMapArchive 
                        </usage>
                </runtime>

                <script language="VBScript" src="common_subs.vbs"/>
                <script language="VBScript" src="config.vbs"/>
                <script language="VBScript" src="pkg_archive.vbs"/>
                <script id="onTestMapArchive" language="VBScript">
<![CDATA[
Option Explicit
'=====================================================
'        Name:  onTestMapArchive
' Description:  Run this job to test access to Package Archive
'               INPUT:  None
'=====================================================
'================ Variable Definition ================
'=============== Constants Declaration ===============
'================== Variable Init ====================
'=====================================================
'-----------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------
Sub onTestMapArchive ( )
        Dim rootPath, objPkgFileSys, rv
        Set objPkgFileSys = New PkgArchive
        
        ' Configure target machine
        objPkgFileSys.Remote_Host = TELNET_MACHINE
        objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE

        objPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive
    
    rv = 0
    If MappedDrive  = "" Then
        rv = 1
    End If

    WScript.Echo "onTestMapArchive rv:" & rv
    Set objPkgFileSys = Nothing
        
End Sub
'-----------------------------------------------------------------------------------------------------------------
'-------------------- MAIN LINE ----------------------
WScript.Echo "==================== job:onTestMapArchive ===================="
Call onTestMapArchive ( )
WScript.Echo "onTestMapArchive finished successfully!"

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