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>