Subversion Repositories DevTools

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

	Sub Create_Pkg_Folder ( SSpkg_name, SSpkg_version )

		Dim outMachine, outDpkg_root, outUser, outPassword

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

		Call Get_Archive_Telnet_Login_Details ( outUser, outPassword )

		' --- Commands to run ---

		' Creates pkg_name and pkg_version folder if required with rwx permissions for all

		'command = _

		'"cd "& pArchive_Path &" && "&_

		'"mkdir -p -m a+rwx "& SSpkg_name &"; "&_

		'"cd "& pArchive_Path &"/"& SSpkg_name &" && "&_

		'"mkdir -p -m a+rwx "& SSpkg_version &"; "

		command = _

		"sudo ~/sbin/make_pkgfolder "& pArchive_Path &" '"& SSpkg_name &"' '"& SSpkg_version &"';"

		WScript.Echo command

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

		'login_details = AppPath & SSH_EXE &" -ssh -batch "& outUser &"@"& pRemote_Host &" -pw "& outPassword 

		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 oExec = sysShell.Exec( login_details &" "& command )

		'outStrOut = oExec.StdOut.ReadAll

		'outStrErr = oExec.StdErr.ReadAll

		'If outStrErr <> "" Then

		'	Call Raise_Event ( enumEVENT_ERROR, "[sub:Create_Pkg_Folder]", _

		'					   "user: "& outUser & VBNewLine &_

		'					   "command: "& command , _

		'					   outStrErr, enum_RELEASE_NOTES_FAILED )

		'End If

		'Set oExec = Nothing

		Set sysShell = Nothing

	End Sub