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