Subversion Repositories DevTools

	Sub Make_Release_Changed (apkg_name, apkg_version, artag_id, apkg_id, apv_id, aproj_id)

		Dim outUser, outPassword

		Dim login_details, command, sysShell, oExec, outStrOut, outStrErr

		WScript.Echo "Running release changed script for "& apkg_name & " " & apkg_version 

		Call Get_Archive_Telnet_Login_Details ( outUser, outPassword )

		command = _

 		 "sudo ~/sbin/make_release_changed" &_

 		 " archive=" & pArchive_Path &_

 		 " pkg_name='""" & apkg_name & """'" &_

 		 " pkg_version='"""& apkg_version &"""'" &_

 		 " rtag_id="& artag_id &_

 		 " pkg_id=" & apkg_id &_

 		 " pv_id="& apv_id &_

 		 " proj_id="& aproj_id &_

 		 ";"

		WScript.Echo command

		' --- SSH client with login details ---

		login_details = AppPath & WINRSH_EXE &" -q -h "& pRemote_Host &" -l "& outUser &" -p "& outPassword 	

		Set sysShell = WScript.CreateObject("WScript.Shell")

		sysShell.Run "cmd.exe /c "& login_details &" """& command &"""", 0, True

		Set sysShell = Nothing

	End Sub