Subversion Repositories DevTools

Rev

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

Rev 181 Rev 3616
Line 132... Line 132...
132 
 
 132 
 
133 
End Sub
 133 
End Sub
134 
'-----------------------------------------------------------------------------------------------------------------
 134 
'-----------------------------------------------------------------------------------------------------------------
135 
Sub Get_Components ( ARRcomp )
 135 
Sub Get_Components ( ARRcomp )
136 
	Dim fileSys, rootPath, contentsDump, recCnt, objPkgFileSys
 136 
	Dim fileSys, rootPath, contentsDump, recCnt, objPkgFileSys
137 
	Dim file_ext, path, tempARR, pkgType
 137 
	Dim file_ext, path, tempARR
138 
 
 138 
 
139 
	Set objPkgFileSys = New PkgArchive
 139 
	Set objPkgFileSys = New PkgArchive
140 
 
 140 
 
141 
	objPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required
 - 
 
142 
 
 - 
 
143 
	pkgType = Get_Package_Type ( parPv_id )
 - 
 
144 
 
 141 
 
145 
	' Is this package ERG PRODUCT
 142 
	' Configure target machine
146 
	objPkgFileSys.Remote_Host = TELNET_MACHINE
 143 
	objPkgFileSys.Remote_Host = TELNET_MACHINE
147 
	If pkgType = enumPKG_TYPE_ERG_PRODUCT Then
 - 
 
148 
		rootPath = MappedDrive & DEPLOY_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
 - 
 
149 
		objPkgFileSys.Archive_Path = TELNET_DEPLOY_ARCHIVE
 144 
	objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
150 
 
 - 
 
151 
	Else
 145
- 
 
 146 
	objPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required
152 
		rootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
 147 
	rootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
153 
		objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
 - 
 
154 
 
 - 
 
155 
	End If
 - 
 
156 
 
 148 
 
157 
	Set fileSys = CreateObject("Scripting.FileSystemObject")
 149 
	Set fileSys = CreateObject("Scripting.FileSystemObject")
158 
 
 150 
 
159 
	Dim contentsFolderDump, aFolders, oFolders, sFolderName
 151 
	Dim contentsFolderDump, aFolders, oFolders, sFolderName
160 
 
 152 
 
Line 858... Line 850...
858 
	                  "Delete Folder: "& currentFolder )
 850 
	                  "Delete Folder: "& currentFolder )
859 
 
 851 
 
860 
End Sub
 852 
End Sub
861 
'-----------------------------------------------------------------------------------------------------------------
 853 
'-----------------------------------------------------------------------------------------------------------------
862 
Sub Initial_Setup ( oPkgFileSys, sRootPath, sNotesLocation )
 854 
Sub Initial_Setup ( oPkgFileSys, sRootPath, sNotesLocation )
863 
    Dim MappedDrive, nPkgType
 855 
    Dim MappedDrive
864 
    oPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required
 - 
 
865 
    nPkgType = Get_Package_Type ( parPv_id )
 - 
 
866 
 
 856 
 
- 
 
 857 
    oPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required
867 
    oPkgFileSys.Remote_Host = TELNET_MACHINE
 858 
    oPkgFileSys.Remote_Host = TELNET_MACHINE
868 
    If nPkgType = enumPKG_TYPE_ERG_PRODUCT Then
 - 
 
869 
        sNotesLocation = URL_PATH_DEPLOY_ARCHIVE &"/"& parPkg_name &"/"& parPkg_Version &"/"& DOC_FOLDER &"/"& Format_FileName( parPkg_name, parPkg_Version, parPv_id )
 - 
 
870 
        sRootPath = MappedDrive & DEPLOY_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
 - 
 
871 
        oPkgFileSys.Archive_Path = TELNET_DEPLOY_ARCHIVE
 859 
    oPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
872 
 
 860 
 
873 
    Else
 - 
 
874 
        sNotesLocation = URL_PATH_DPKG_ARCHIVE &"/"& parPkg_name &"/"& parPkg_Version &"/"& DOC_FOLDER &"/"& Format_FileName( parPkg_name, parPkg_Version, parPv_id )
 861 
    sNotesLocation = URL_PATH_DPKG_ARCHIVE &"/"& parPkg_name &"/"& parPkg_Version &"/"& DOC_FOLDER &"/"& Format_FileName( parPkg_name, parPkg_Version, parPv_id )
875 
        sRootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
 862 
    sRootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
876 
        oPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
 - 
 
877 
 
 - 
 
878 
    End If
 - 
 
879 
 
 863 
 
880 
End Sub
 864 
End Sub
881 
'-----------------------------------------------------------------------------------------------------------------
 865 
'-----------------------------------------------------------------------------------------------------------------
882 
'-------------------- MAIN LINE ----------------------
 866 
'-------------------- MAIN LINE ----------------------
883 
WScript.Echo "==================== job:PostRun ===================="
 867 
WScript.Echo "==================== job:PostRun ===================="
Line 1001... Line 985...
1001 
   	  objArgs.ShowUsage
 985 
   	  objArgs.ShowUsage
1002 
   	  WScript.Quit
 986 
   	  WScript.Quit
1003 
   	End If
987 
   	End If
1004 
End If
 988 
End If
1005 
 
 989 
 
1006 
Dim nPkgType
 - 
 
1007 
objPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required
 990 
objPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required
1008 
 
 - 
 
1009 
nPkgType = Get_Package_Type ( parPv_id )
 - 
 
1010 
 
 - 
 
1011 
' Is this package ERG PRODUCT
 - 
 
1012 
objPkgFileSys.Remote_Host = TELNET_MACHINE
 991 
objPkgFileSys.Remote_Host = TELNET_MACHINE
1013 
If nPkgType = enumPKG_TYPE_ERG_PRODUCT Then
 - 
 
1014 
  objPkgFileSys.Archive_Path = TELNET_DEPLOY_ARCHIVE
 - 
 
1015 
Else
 - 
 
1016 
  objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
 992 
objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
1017 
End If
 - 
 
1018 
 
 993 
 
1019 
Call objPkgFileSys.Make_Release_Changed(parPkg_name,parPkg_version,parRtag_id,parPkg_id,parPv_id,parProj_id,parMode_id,false)
 994 
Call objPkgFileSys.Make_Release_Changed(parPkg_name,parPkg_version,parRtag_id,parPkg_id,parPv_id,parProj_id,parMode_id,false)
1020 
 
 995 
 
1021 
Set objPkgFileSys = Nothing
 996 
Set objPkgFileSys = Nothing
1022 
 
 997