Subversion Repositories DevTools

Rev

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

Rev 159 Rev 161
Line 63... Line 63...
63 
Const MODCRC_FILE_TYPES = "*.thx"		' Comma separated file types to be CRCed with modcrc. E.g. "*.thx, *.bin, *.blah"
 63 
Const MODCRC_FILE_TYPES = "*.thx"		' Comma separated file types to be CRCed with modcrc. E.g. "*.thx, *.bin, *.blah"
64 
'================== Variable Init ====================
 64 
'================== Variable Init ====================
65 
No_Components = True
 65 
No_Components = True
66 
'=====================================================
 66 
'=====================================================
67 
'-----------------------------------------------------------------------------------------------------------------
 67 
'-----------------------------------------------------------------------------------------------------------------
68 
Sub DESCPKG_File_Check ( sPath )
 - 
 
69 
    Dim  oFileSys
 - 
 
70 
	Set oFileSys = CreateObject ("Scripting.FileSystemObject")
 - 
 
71 
 
 - 
 
72 
    If NOT oFileSys.FileExists( sPath &"\"& DESCPKG_FILE ) Then
 - 
 
73 
		Call SaveFile( sPath, DESCPKG_FILE, parPkg_name &" "& parPkg_Version )      ' Create descpkg file
 - 
 
74 
	End If
 - 
 
75 
End Sub
 - 
 
76 
'-----------------------------------------------------------------------------------------------------------------
 - 
 
77 
Function Get_All_Files ( SSpath )
 68 
Function Get_All_Files ( SSpath )
78 
	Dim sysShell, oExec, outStdErr, outStrOut
 69 
	Dim sysShell, oExec, outStdErr, outStrOut
79 
 
 70 
 
80 
	Set sysShell = WScript.CreateObject("WScript.Shell")
 71 
	Set sysShell = WScript.CreateObject("WScript.Shell")
81 
	Set oExec = sysShell.Exec( "cmd /c dir /S /B /A:-D "& SSpath )
 72 
	Set oExec = sysShell.Exec( "cmd /c dir /S /B /A:-D "& SSpath )
Line 155... Line 146...
155 
	objPkgFileSys.Remote_Host = TELNET_MACHINE
 146 
	objPkgFileSys.Remote_Host = TELNET_MACHINE
156 
	If pkgType = enumPKG_TYPE_ERG_PRODUCT Then
 147 
	If pkgType = enumPKG_TYPE_ERG_PRODUCT Then
157 
		rootPath = MappedDrive & DEPLOY_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
 148 
		rootPath = MappedDrive & DEPLOY_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
158 
		objPkgFileSys.Archive_Path = TELNET_DEPLOY_ARCHIVE
 149 
		objPkgFileSys.Archive_Path = TELNET_DEPLOY_ARCHIVE
159 
 
 150 
 
160 
		'%%%%% Creation of Product folder is just temporary.
 - 
 
161 
		'%%%%% Remove the line objPkgFileSys.Create_Pkg_Folder parPkg_name, parPkg_version when depoly_archive is in production
 - 
 
162 
		objPkgFileSys.Create_Pkg_Folder parPkg_name, parPkg_Version
 - 
 
163 
		'%%%%% Remove line above ^^^^^^^^^^
 - 
 
164 
 
 - 
 
165 
	Else
 151 
	Else
166 
		rootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
 152 
		rootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
167 
		objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
 153 
		objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
168 
 
 154 
 
169 
	End If
 155 
	End If
Line 171... Line 157...
171 
	Set fileSys = CreateObject("Scripting.FileSystemObject")
 157 
	Set fileSys = CreateObject("Scripting.FileSystemObject")
172 
 
 158 
 
173 
	Dim contentsFolderDump, aFolders, oFolders, sFolderName
 159 
	Dim contentsFolderDump, aFolders, oFolders, sFolderName
174 
 
 160 
 
175 
	If fileSys.FolderExists( rootPath ) Then
 161 
	If fileSys.FolderExists( rootPath ) Then
176 
	    objPkgFileSys.Ensure_Read_Write parPkg_name, parPkg_version		' Make sure all files and folders can be read
 162 
	        objPkgFileSys.Ensure_Read_Write parPkg_name, parPkg_version		' Make sure all files and folders can be read
177 
	    Call DESCPKG_File_Check ( rootPath )        ' Create descpkg file if required
 - 
 
178 
 
 163 
 
179 
		contentsDump = Get_All_Files ( rootPath )
 164 
		contentsDump = Get_All_Files ( rootPath )
180 
		contentsFolderDump = Get_All_Folders ( rootPath )
 165 
		contentsFolderDump = Get_All_Folders ( rootPath )
181 
 
 166 
 
182 
		contentsDump = contentsFolderDump & contentsDump	' Combine Files and Folders
 167 
		contentsDump = contentsFolderDump & contentsDump	' Combine Files and Folders
Line 455... Line 440...
455 
	objPkgFileSys.Remote_Host = TELNET_MACHINE
 440 
	objPkgFileSys.Remote_Host = TELNET_MACHINE
456 
	If pkgType = enumPKG_TYPE_ERG_PRODUCT Then
 441 
	If pkgType = enumPKG_TYPE_ERG_PRODUCT Then
457 
		rootPath = MappedDrive & DEPLOY_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
 442 
		rootPath = MappedDrive & DEPLOY_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
458 
		objPkgFileSys.Archive_Path = TELNET_DEPLOY_ARCHIVE
 443 
		objPkgFileSys.Archive_Path = TELNET_DEPLOY_ARCHIVE
459 
 
 444 
 
460 
		'%%%%% Creation of Product folder is just temporary.
 - 
 
461 
		'%%%%% Remove the line objPkgFileSys.Create_Pkg_Folder parPkg_name, parPkg_version when depoly_archive is in production
 - 
 
462 
		objPkgFileSys.Create_Pkg_Folder parPkg_name, parPkg_Version
 - 
 
463 
		'%%%%% Remove line above ^^^^^^^^^^
 - 
 
464 
 
 - 
 
465 
	Else
 445 
	Else
466 
		rootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
 446 
		rootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
467 
		objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
 447 
		objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
468 
 
 448 
 
469 
	End If
 449 
	End If
470 
    objPkgFileSys.Ensure_Read_Write parPkg_name, parPkg_version		' Make sure all files and folders can be read
 - 
 
471 
	objPkgFileSys.Create_Doc_Folder parPkg_name, parPkg_Version, DOC_FOLDER	' Create document folder if required
 450 
	objPkgFileSys.Create_Doc_Folder parPkg_name, parPkg_Version, DOC_FOLDER	' Create document folder if required
472 
 
 451 
 
473 
	' --------------- RELEASE NOTES ----------------
 452 
	' --------------- RELEASE NOTES ----------------
474 
 
 453 
 
475 
	Select Case pkgType
 454 
	Select Case pkgType
Line 807... Line 786...
807 
Dim parProj_id
 786 
Dim parProj_id
808 
Dim parPkg_Version
 787 
Dim parPkg_Version
809 
Dim objPkgFileSys
 788 
Dim objPkgFileSys
810 
Dim rootPath
 789 
Dim rootPath
811 
Dim notesLocation
 790 
Dim notesLocation
- 
 
 791 
Dim outRTAG_ID
- 
 
 792 
Dim outPKG_ID
812 
'=============== Constants Declaration ===============
 793 
'=============== Constants Declaration ===============
813 
'================== Variable Init ====================
 794 
'================== Variable Init ====================
814 
Set objPkgFileSys = New PkgArchive
 795 
Set objPkgFileSys = New PkgArchive
815 
'=====================================================
 796 
'=====================================================
816 
'-----------------------------------------------------------------------------------------------------------------
 797 
'-----------------------------------------------------------------------------------------------------------------
Line 887... Line 868...
887 
    If nPkgType = enumPKG_TYPE_ERG_PRODUCT Then
 868 
    If nPkgType = enumPKG_TYPE_ERG_PRODUCT Then
888 
        sNotesLocation = URL_PATH_DEPLOY_ARCHIVE &"/"& parPkg_name &"/"& parPkg_Version &"/"& DOC_FOLDER &"/"& Format_FileName( parPkg_name, parPkg_Version, parPv_id )
 869 
        sNotesLocation = URL_PATH_DEPLOY_ARCHIVE &"/"& parPkg_name &"/"& parPkg_Version &"/"& DOC_FOLDER &"/"& Format_FileName( parPkg_name, parPkg_Version, parPv_id )
889 
        sRootPath = MappedDrive & DEPLOY_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
 870 
        sRootPath = MappedDrive & DEPLOY_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
890 
        oPkgFileSys.Archive_Path = TELNET_DEPLOY_ARCHIVE
 871 
        oPkgFileSys.Archive_Path = TELNET_DEPLOY_ARCHIVE
891 
 
 872 
 
892 
        '%%%%% Creation of Product folder is just temporary.
 - 
 
893 
        '%%%%% Remove the line objPkgFileSys.Create_Pkg_Folder parPkg_name, parPkg_version when depoly_archive is in production
 - 
 
894 
        oPkgFileSys.Create_Pkg_Folder parPkg_name, parPkg_Version
 - 
 
895 
        '%%%%% Remove line above ^^^^^^^^^^
 - 
 
896 
 
 - 
 
897 
    Else
 873 
    Else
898 
        sNotesLocation = URL_PATH_DPKG_ARCHIVE &"/"& parPkg_name &"/"& parPkg_Version &"/"& DOC_FOLDER &"/"& Format_FileName( parPkg_name, parPkg_Version, parPv_id )
 874 
        sNotesLocation = URL_PATH_DPKG_ARCHIVE &"/"& parPkg_name &"/"& parPkg_Version &"/"& DOC_FOLDER &"/"& Format_FileName( parPkg_name, parPkg_Version, parPv_id )
899 
        sRootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
 875 
        sRootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
900 
        oPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
 876 
        oPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
901 
 
 877 
 
902 
    End If
 878 
    End If
903 
    objPkgFileSys.Ensure_Read_Write parPkg_name, parPkg_version		' Make sure all files and folders can be read
 - 
 
904 
    oPkgFileSys.Create_Doc_Folder parPkg_name, parPkg_Version, DOC_FOLDER	' Create document folder if required
 - 
 
905 
 
 879 
 
906 
End Sub
 880 
End Sub
907 
'-----------------------------------------------------------------------------------------------------------------
 881 
'-----------------------------------------------------------------------------------------------------------------
908 
'-------------------- MAIN LINE ----------------------
 882 
'-------------------- MAIN LINE ----------------------
909 
WScript.Echo "==================== job:PostRun ===================="
 883 
WScript.Echo "==================== job:PostRun ===================="
Line 944... Line 918...
944 
WScript.Echo "Making all READ ONLY from folder "& parPkg_Version &"/"
 918 
WScript.Echo "Making all READ ONLY from folder "& parPkg_Version &"/"
945 
objPkgFileSys.All_Read_Only  parPkg_name, parPkg_Version        ' Make sure all file and folders are read only. Starting from version folder.
 919 
objPkgFileSys.All_Read_Only  parPkg_name, parPkg_Version        ' Make sure all file and folders are read only. Starting from version folder.
946 
 
 920 
 
947 
Call Write_To_Release_Notes_Info ( parPv_id, notesLocation )
 921 
Call Write_To_Release_Notes_Info ( parPv_id, notesLocation )
948 
 
 922 
 
- 
 
 923 
'Run release changed script
- 
 
 924 
Call Get_Release_Info (parPv_id, outRTAG_ID, outPKG_ID)
- 
 
 925 
Call objPkgFileSys.Make_Release_Changed(parPkg_name,parPkg_version,outRTAG_ID,outPKG_ID,parPv_id,parProj_id)
949 
Set objPkgFileSys = Nothing
 926 
Set objPkgFileSys = Nothing
950 
 
 927 
 
951 
WScript.Echo "PostRun completed successfully!"
 928 
WScript.Echo "PostRun completed successfully!"
952 
]]>
 929 
]]>
953 
		</script>
 930 
		</script>