Subversion Repositories DevTools

<?xml version="1.0" ?>

<package>

	<comment>

	PrimalCode wizard generated file.

	</comment>

	<job id="CheckForUnitTests" 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="pkg_archive.vbs"/>

		<script id="CheckForPackageVersions" language="VBScript">

<![CDATA[

Option Explicit

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

'        Name: 	GetComponents

' Description:	Connects to dpkg_archive and gets the

' 				content of folders and files of certain

' 				package. It then stores this info into 

'				Release Manager database. This info can

' 				later be included in release notes Or

' 				searched with search engine.

' 		INPUT:  pkg_name

'				pkg_version

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

'== Variable Definition ==============================

Dim BomId

Dim CompareBomId

Dim UserName

Dim objArgs

'== Constants Declaration ============================

'== Variable Init ====================================

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

'-----------------------------------------------------------------------------------------------------------------

Sub CheckForPackageVersions ( nBomId, nCompareBomId, sUserName )

	Dim rsQry, rsTemp, rsDep, aPackages, XMLNode, DateString, objPkgFileSys, sSourcePath, sDestPath, oFileSys

	Dim lastRow, row, MappedDrive, objMessage, strBody, strHTML, isPatch, pkgName

	Dim outUser, outPassword, command, login_details

	Set oFileSys = CreateObject("Scripting.FileSystemObject")	

	OraDatabase.Parameters.Add "BOM_ID", nBomId, ORAPARM_INPUT, ORATYPE_NUMBER 

	OraDatabase.Parameters.Add "COMPARE_BOM_ID", nCompareBomId, ORAPARM_INPUT, ORATYPE_NUMBER 

	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery ("BomLocationDetails.sql"), ORADYN_DEFAULT ) 

	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomCompare.sql"), ORADYN_DEFAULT )

	OraDatabase.Parameters.Remove "BOM_ID"

	OraDatabase.Parameters.Remove "COMPARE_BOM_ID"

	Set objPkgFileSys = New PkgArchive

	objPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required

	objPkgFileSys.Remote_Host = TELNET_MACHINE

	objPkgFileSys.Archive_Path = TELNET_RELEASES

	If rsQry.RecordCount > 0 Then

		aPackages = rsQry.GetRows()

	End If

	lastRow = UBound( aPackages, 2 )

	DateString = DateReversed( Date )

	'strBody = NULL

	For row = 0 To lastRow	

		isPatch = aPackages (7, row)

		If isPatch = "Y" Then

			Set rsDep = OraDatabase.DbCreateDynaset( "select * from package_dependencies pd, package_versions pv where pd.dpv_id = pv.pv_id and pd.pv_id ="&aPackages(0, row), ORADYN_DEFAULT )

			sSourcePath = "\\auperaunx26\releases\"&rsTemp("proj_name")&"\"&rsTemp("branch_name")&"\"&aPackages(1, row)&"\"&rsDep("pkg_version")	

			rsDep.Close()

			Set rsDep = nothing

		Else

			sSourcePath = "\\auperaunx26\releases\"&rsTemp("proj_name")&"\"&rsTemp("branch_name")&"\"&aPackages(1, row)&"\"&aPackages(6, row)&"\"&aPackages(2, row)	

		End If

		If oFileSys.FolderExists( sSourcePath ) Then

			objPkgFileSys.Make_Zip aPackages(1, row) &"-"& aPackages(2, row) &"-" & aPackages(6, row) &".zip", "/devl/releases/"& rsTemp("proj_name") &"/"& rsTemp("branch_name") &"/"& aPackages(1, row) &"/"& aPackages(6, row) &"/"& aPackages(2, row)&"/"

		Else

			'Wscript.Echo pkgName

			If pkgName = aPackages(1, row) Then

				strBody = strBody + "<br>Version: "&aPackages(2, row) 

			Else

				strBody = strBody + "<br><br>"

				strBody = strBody + "Project: "&rsTemp("proj_name")

				strBody = strBody + "<br>Branch: "&rsTemp("branch_name") 

				strBody = strBody + "<br>Package: "&aPackages(1, row)

				strBody = strBody + "<br>Version: "&aPackages(2, row)	

			End If

		End If

		pkgName = aPackages(1, row)

	Next

	If strBody <> "" Then

		strHTML = "<HTML>"

		strHTML = strHTML & "<HEAD>"

		strHTML = strHTML & "<BODY>"

		strHTML = strHTML & "<b>"&strBody&"</b></br>"

		strHTML = strHTML & "</BODY>"

		strHTML = strHTML & "</HTML>"

		Set objMessage = CreateObject("CDO.Message") 

		objMessage.Subject = "Missing Packages In Releases Area" 

		objMessage.From = "releasem@erggroup.com" 'System Administrators 

		objMessage.To = sUserName&"@erggroup.com" 'BOM Releasor  

		'Wscript.Echo strHTML

		'The line below shows how to send using HTML included directly in your script

		objMessage.HTMLBody = strHTML

		objMessage.Configuration.Fields.Item _

		("http://schemas.microsoft.com/cdo/configuration/sendusing")= 2

		'IP of remote SMTP server for ERG

		objMessage.Configuration.Fields.Item _

		("http://schemas.microsoft.com/cdo/configuration/smtpserver") _

		= "aupera03.aupera.erggroup.com"

		'Server port = 25

		objMessage.Configuration.Fields.Item _

		("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _

		= 25 

		objMessage.Configuration.Fields.Update

		objMessage.Send()

		Set objMessage = Nothing

	End If

	Set objPkgFileSys = Nothing

	Set oFileSys = Nothing

	rsQry.Close()

	rsTemp.Close()

	Set rsQry = Nothing

	Set rsTemp = Nothing

End Sub

'-----------------------------------------------------------------------------------------------------------------

Function FormatFileName ( sFileName )

	Dim sReturn

	sReturn = Replace ( sFileName, "/", "" ) 	

	sReturn = Replace ( sReturn, "\", "" ) 	

	sReturn = Replace ( sReturn, "&", "And" ) 	

	sReturn = Replace ( sReturn, " ", "_" ) 	

	FormatFileName = sReturn

End Function

'-----------------------------------------------------------------------------------------------------------------

'=================================== MAIN LINE ======================================

WScript.Echo "==================== job:CheckForUnitTests ===================="

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")

	CompareBomId = objArgs.Named.Item("compare_bom_id")

	UserName = objArgs.Named.Item("user_name")

	If ( BomId <> "" ) And (CompareBomId <> "") And (UserName <> "") Then

		'Check if the Package Versions Exists for Tests to be Uploaded.  

		Call CheckForPackageVersions( BomId, CompareBomId, UserName )

   	Else

   		objArgs.ShowUsage

   		WScript.Quit

   	End If

End If

WScript.Echo "Job completed successfully!"

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

]]>

		</script>

	</job>

</package>