Subversion Repositories DevTools

Rev

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

Rev 119 Rev 161
Line 278... Line 278...
278
		WScript.Echo "Using network drive: "& outMappedDrive
278
		WScript.Echo "Using network drive: "& outMappedDrive
279
		
279
		
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
    '-----------------------------------------------------------------------------------------------------------------
-
 
285
	Sub Make_Release_Changed (apkg_name, apkg_version, artag_id, apkg_id, apv_id, aproj_id)
-
 
286
		Dim outUser, outPassword
-
 
287
		Dim login_details, command, sysShell, oExec, outStrOut, outStrErr
-
 
288
		WScript.Echo "Running release changed script for "& apkg_name & " " & apkg_version 
-
 
289
		
-
 
290
		Call Get_Archive_Telnet_Login_Details ( outUser, outPassword )
-
 
291
		
-
 
292
		command = _
-
 
293
 		 "sudo ~/sbin/make_release_changed" &_
-
 
294
 		 " archive=" & pArchive_Path &_
-
 
295
 		 " pkg_name='""" & apkg_name & """'" &_
-
 
296
 		 " pkg_version='"""& apkg_version &"""'" &_
-
 
297
 		 " rtag_id="& artag_id &_
-
 
298
 		 " pkg_id=" & apkg_id &_
-
 
299
 		 " pv_id="& apv_id &_
-
 
300
 		 " proj_id="& aproj_id &_
-
 
301
 		 ";"
-
 
302
	
-
 
303
		WScript.Echo command
-
 
304
		
-
 
305
		' --- SSH client with login details ---
-
 
306
		login_details = AppPath & WINRSH_EXE &" -q -h "& pRemote_Host &" -l "& outUser &" -p "& outPassword 	
-
 
307
		
-
 
308
		Set sysShell = WScript.CreateObject("WScript.Shell")
-
 
309
		sysShell.Run "cmd.exe /c "& login_details &" """& command &"""", 0, True
-
 
310
						
-
 
311
		Set sysShell = Nothing
-
 
312
		
-
 
313
	End Sub
284
    
314
    
285
End Class
315
End Class
286
 
316