Subversion Repositories DevTools

Rev

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

Rev 5513 Rev 5517
Line 12... Line 12...
12 
	ElseIf sParam = "RELEASE_MANAGER_LOGIN" Then
 12 
	ElseIf sParam = "RELEASE_MANAGER_LOGIN" Then
13 
		Application = ""
 13 
		Application = ""
14 
	End If
 14 
	End If
15 
End Function
 15 
End Function
16 
'-----------------------------------------------------------------------------------------------------------------
 16 
'-----------------------------------------------------------------------------------------------------------------
- 
 
 17 
'	Return an environment variable
- 
 
 18 
'
- 
 
 19 
Function getEnvVar(varName)
- 
 
 20 
	Dim wshShell,wshUserEnv
- 
 
 21 
	Set wshShell = CreateObject( "WScript.Shell" )
- 
 
 22 
 
- 
 
 23 
	Set wshUserEnv = wshShell.Environment( "USER" )
- 
 
 24 
	getEnvVar = wshUserEnv(varName)
- 
 
 25 
	if getEnvVar = "" then
- 
 
 26 
		Set wshUserEnv = wshShell.Environment( "SYSTEM" )
- 
 
 27 
		getEnvVar = wshUserEnv(varName)
- 
 
 28 
		if getEnvVar = "" then
- 
 
 29 
			Set wshUserEnv = wshShell.Environment( "VOLATILE" )
- 
 
 30 
			getEnvVar = wshUserEnv(varName)
- 
 
 31 
			if getEnvVar = "" then
- 
 
 32 
				Set wshUserEnv = wshShell.Environment( "PROCESS" )
- 
 
 33 
				getEnvVar = wshUserEnv(varName)
- 
 
 34 
			End IF
- 
 
 35 
		End IF
- 
 
 36 
	End IF
- 
 
 37 
 
- 
 
 38 
	Set wshShell = nothing
- 
 
 39 
	Set wshUserEnv = nothing
- 
 
 40 
 
- 
 
 41 
End Function
- 
 
 42 
'-----------------------------------------------------------------------------------------------------------------
17 
Function ReadFile( SSpath )
 43 
Function ReadFile( SSpath )
18 
	Dim filesys, rfile
 44 
	Dim filesys, rfile
19 
	Set filesys = CreateObject("Scripting.FileSystemObject")
 45 
	Set filesys = CreateObject("Scripting.FileSystemObject")
20
46
21 
	'On Error Resume Next
 47 
	'On Error Resume Next
Line 123... Line 149...
123 
	Else
 149 
	Else
124 
		NVL = SSvalue
 150 
		NVL = SSvalue
125 
	End If
 151 
	End If
126 
End Function
 152 
End Function
127 
'-----------------------------------------------------------------------------------------------------------------
 153 
'-----------------------------------------------------------------------------------------------------------------
128 
Function Format_FileName( sPkg_name, sPkg_version, nPv_id )
 - 
 
129 
	Dim name, version
 - 
 
130 
	name =  Replace( sPkg_name, " ", "_")
 - 
 
131 
	version = Replace( sPkg_version, " ", "")
 - 
 
132 
	version = Replace( version, ".", "_")
 - 
 
133
- 
 
134 
	Format_FileName = RELESE_NOTES_PERFIX &"_"& nPv_id &"_"& name &"_"& version &".html"
 - 
 
135 
End Function
 - 
 
136 
'-----------------------------------------------------------------------------------------------------------------
 - 
 
137 
Function Get_Application_Path ()
 154 
Function Get_Application_Path ()
138 
	Dim tempSTR
 155 
	Dim tempSTR
139 
	tempSTR = WScript.ScriptFullName
 156 
	tempSTR = WScript.ScriptFullName
140 
	Get_Application_Path = Left( tempSTR, InStrRev( tempSTR, "\", InStrRev( tempSTR, "\" ) -1 ) )
 157 
	Get_Application_Path = Left( tempSTR, InStrRev( tempSTR, "\", InStrRev( tempSTR, "\" ) -1 ) )
141
158
Line 147... Line 164...
147 
	myInclude = Replace ( myInclude, "<%", "" )		' Remove ASP tags
 164 
	myInclude = Replace ( myInclude, "<%", "" )		' Remove ASP tags
148 
	myInclude = Replace ( myInclude, "%>", "" )		' Remove ASP tags
 165 
	myInclude = Replace ( myInclude, "%>", "" )		' Remove ASP tags
149 
	Execute( myInclude )
 166 
	Execute( myInclude )
150 
End Sub
 167 
End Sub
151 
'-----------------------------------------------------------------------------------------------------------------
 168 
'-----------------------------------------------------------------------------------------------------------------
152 
Sub CRC_cksum ( SSfile_name, outCRC, outSize )
 - 
 
153 
	Dim sysShell, crcDump, oExec, outStdErr, outStrOut, crcARR
 - 
 
154 
	Set sysShell = WScript.CreateObject("WScript.Shell")
 - 
 
155
- 
 
156
- 
 
157 
	Set oExec = sysShell.Exec( AppPath & CKSUM_EXE &" """& SSfile_name &"""" )
 - 
 
158
- 
 
159 
	outStdErr = oExec.StdErr.ReadLine
 - 
 
160 
	outStrOut = oExec.StdOut.ReadLine
 - 
 
161
- 
 
162 
	If outStdErr = "" Then
 - 
 
163 
		crcDump = Trim( outStrOut )
 - 
 
164 
		crcDump = Replace ( crcDump, VBNewLine, "" )		' Remove newline characters
 - 
 
165 
		While InStr( crcDump, "  ") > 0
 - 
 
166 
			crcDump = Replace ( crcDump, "  ", " " )		' Ensure single space between items
 - 
 
167 
		Wend
 - 
 
168
- 
 
169 
		crcARR = Split ( crcDump, " " ) 	' Split with space
 - 
 
170 
		outCRC = crcARR(0)
 - 
 
171 
		outSize = crcARR(1)
 - 
 
172 
	Else
 - 
 
173 
		outCRC = -1		' Error occuerd during cksum. Can be no read permissions
 - 
 
174 
		outSize = -1
 - 
 
175 
	End If
 - 
 
176
- 
 
177 
	Set sysShell = nothing
 - 
 
178 
End Sub
 - 
 
179 
'-----------------------------------------------------------------------------------------------------------------
 - 
 
180 
Sub CRC_modcrc ( SSfile_name, SSfile_path, outCRC, outSize )
 - 
 
181 
	Dim sysShell, crcDump, oExec, outStdErr, outStrOut, crcARR
 - 
 
182 
	Set sysShell = WScript.CreateObject("WScript.Shell")
 - 
 
183
- 
 
184 
	Set oExec = sysShell.Exec( AppPath & MODCRC_EXE &" -m="& SSfile_path & SSfile_name &" -i=thx" )
 - 
 
185 
 
 - 
 
186 
	outStdErr = oExec.StdErr.ReadLine
 - 
 
187 
	outStrOut = oExec.StdOut.ReadLine
 - 
 
188
- 
 
189 
	If outStdErr = "" Then
 - 
 
190 
		crcDump = Trim( outStrOut )
 - 
 
191 
		crcDump = Replace ( crcDump, VBNewLine, "" )		' Remove newline characters
 - 
 
192 
		While InStr( crcDump, "  ") > 0
 - 
 
193 
			crcDump = Replace ( crcDump, "  ", " " )		' Ensure single space between items
 - 
 
194 
		Wend
 - 
 
195
- 
 
196 
		crcARR = Split ( crcDump, " " ) 	' Split with space
 - 
 
197 
		outCRC = crcARR(4)
 - 
 
198 
		outSize = crcARR(6)
 - 
 
199 
	Else
 - 
 
200 
		outCRC = -1		' Error occuerd during cksum. Can be no read permissions
 - 
 
201 
		outSize = -1
 - 
 
202 
	End If
 - 
 
203
- 
 
204 
	Set sysShell = nothing
 - 
 
205 
End Sub
 - 
 
206 
'-----------------------------------------------------------------------------------------------------------------
 - 
 
207 
'Sub RaiseEvent ( eventType, SSlocation, SSvalues, SSerror_message )
 169 
'Sub RaiseEvent ( eventType, SSlocation, SSvalues, SSerror_message )
208 
'	Dim WshShell, WshNetwork, objArgs, i, agrSTR, SSmsg
 170 
'	Dim WshShell, WshNetwork, objArgs, i, agrSTR, SSmsg
209 
'	Set WshShell = WScript.CreateObject("WScript.Shell")
 171 
'	Set WshShell = WScript.CreateObject("WScript.Shell")
210 
'    Set WshNetwork = WScript.CreateObject("WScript.Network")
 172 
'    Set WshNetwork = WScript.CreateObject("WScript.Network")
211 
'
173 
'