Subversion Repositories DevTools

Rev

Rev 161 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 161 Rev 165
Line 280... Line 280...
280 
		Set oDrives = Nothing
 280 
		Set oDrives = Nothing
281 
		Set WshNetwork = Nothing
 281 
		Set WshNetwork = Nothing
282 
	End Sub
 282 
	End Sub
283 
 
 283 
 
284 
    '-----------------------------------------------------------------------------------------------------------------
 284 
    '-----------------------------------------------------------------------------------------------------------------
285 
	Sub Make_Release_Changed (apkg_name, apkg_version, artag_id, apkg_id, apv_id, aproj_id)
 285 
	Sub Make_Release_Changed (apkg_name, apkg_version, artag_id, apkg_id, apv_id, aproj_id, amode_id, await)
286 
		Dim outUser, outPassword
 286 
		Dim outUser, outPassword
287 
		Dim login_details, command, sysShell, oExec, outStrOut, outStrErr
 287 
		Dim login_details, command, sysShell, oExec, outStrOut, outStrErr
288 
		WScript.Echo "Running release changed script for "& apkg_name & " " & apkg_version
288 
		WScript.Echo "Running release changed script for "& apkg_name & " " & apkg_version
289
289
290 
		Call Get_Archive_Telnet_Login_Details ( outUser, outPassword )
 290 
		Call Get_Archive_Telnet_Login_Details ( outUser, outPassword )
Line 296... Line 296...
296 
 		 " pkg_version='"""& apkg_version &"""'" &_
 296 
 		 " pkg_version='"""& apkg_version &"""'" &_
297 
 		 " rtag_id="& artag_id &_
 297 
 		 " rtag_id="& artag_id &_
298 
 		 " pkg_id=" & apkg_id &_
 298 
 		 " pkg_id=" & apkg_id &_
299 
 		 " pv_id="& apv_id &_
 299 
 		 " pv_id="& apv_id &_
300 
 		 " proj_id="& aproj_id &_
 300 
 		 " proj_id="& aproj_id &_
- 
 
 301 
 		 " mode_id="& amode_id &_
301 
 		 ";"
 302 
 		 ";"
302
303
303 
		WScript.Echo command
 304 
		WScript.Echo command
304
305
305 
		' --- SSH client with login details ---
 306 
		' --- SSH client with login details ---
306 
		login_details = AppPath & WINRSH_EXE &" -q -h "& pRemote_Host &" -l "& outUser &" -p "& outPassword
307 
		login_details = AppPath & WINRSH_EXE &" -q -h "& pRemote_Host &" -l "& outUser &" -p "& outPassword
307
308
308 
		Set sysShell = WScript.CreateObject("WScript.Shell")
 309 
		Set sysShell = WScript.CreateObject("WScript.Shell")
309 
		sysShell.Run "cmd.exe /c "& login_details &" """& command &"""", 0, True
 310 
		sysShell.Run "cmd.exe /c "& login_details &" """& command &"""", 0, await
310
311
311 
		Set sysShell = Nothing
 312 
		Set sysShell = Nothing
312
313
313 
	End Sub
 314 
	End Sub
314
315