Subversion Repositories DevTools

Rev

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

Rev 5168 Rev 5172
Line 45... Line 45...
45 
'
 45 
'
46 
If (parOpr = "zipTest") Then
 46 
If (parOpr = "zipTest") Then
47 
    Call zipFile
 47 
    Call zipFile
48 
ElseIf (parOpr = "eventTest") Then
 48 
ElseIf (parOpr = "eventTest") Then
49 
    Call sendEvent
 49 
    Call sendEvent
50 
ElseIf (parOpr = "eventTestWsh") Then
 - 
 
51 
    Call sendEventWsh
 - 
 
52 
ElseIf (parOpr = "emailTest") Then
 50 
ElseIf (parOpr = "emailTest") Then
53 
    Call sendEmail
 51 
    Call sendEmail
54 
ElseIf (parOpr = "emailWshTest") Then
 - 
 
55 
    Call sendWshEmail
 - 
 
56 
ElseIf (parOpr = "remExecTest") Then
 - 
 
57 
    Call remExec
 - 
 
58 
ElseIf (parOpr = "pkgAccessTest") Then
 - 
 
59 
    Call pkgAccess
 - 
 
60 
ElseIf (parOpr = "reportEvent") Then
 52 
ElseIf (parOpr = "reportEvent") Then
61 
    Call reportEvent
 53 
    Call reportEvent
62 
ElseIf (parOpr = "ddpTest") Then
 54 
ElseIf (parOpr = "remExecTest") Then
63 
    Call ddpTest
 55 
    Call remExecTest
- 
 
 56 
ElseIf (parOpr = "pkgAccessTest") Then
- 
 
 57 
    Call pkgAccessTest
64 
 
 58 
 
65 
Else
 59 
Else
66 
    oJSON.data("emsgSummary") = "Unknown operation requested:" & parOpr
 60 
    oJSON.data("emsgSummary") = "Unknown operation requested:" & parOpr
67 
End If
 61 
End If
68 
 
 62 
 
Line 87... Line 81...
87 
 
 81 
 
88 
'Return the object
 82 
'Return the object
89 
Response.Write oJSON.JSONoutput()
 83 
Response.Write oJSON.JSONoutput()
90 
 
 84 
 
91 
'-------------------------------------------------
 85 
'-------------------------------------------------
92 
' Function:    ddpTest
 - 
 
93 
' Description:
 - 
 
94
- 
 
95 
Sub ddpTest
 - 
 
96 
 
 - 
 
97 
    Dim objRC: Set objRC = New ReleaseChanged
 - 
 
98 
    Dim rv
 - 
 
99 
 
 - 
 
100 
    Call objRC.Run_ReleaseChanged(6884,693010,enumRELEASE_CHANGE_MODE_PKG_RELEASED,true)
 - 
 
101 
    rv = objRc.last_resultCode
 - 
 
102 
    If rv = 0 Then
 - 
 
103 
        result = 0
 - 
 
104 
    Else
 - 
 
105 
        result = 1
 - 
 
106 
        oJSON.data("emsgSummary") = "Error:("&rv&"), " & objRc.last_errorMsg
 - 
 
107 
    End If
 - 
 
108 
    Set objRC = Nothing
 - 
 
109 
End Sub
 - 
 
110 
 
 - 
 
111 
'-------------------------------------------------
 - 
 
112 
' Function:    zipFile
 86 
' Function:    zipFile
113 
' Description: Test the File Zipping process
 87 
' Description: Test the File Zipping process
114 
Sub zipFile
 88 
Sub zipFile
115 
    '
 89 
    '
116 
    ' Create a test file in a known directory
 90 
    ' Create a test file in a known directory
Line 198... Line 172...
198 
        oJSON.data("emsgSummary") = "Error:("&Err.number&"):" & err.description
 172 
        oJSON.data("emsgSummary") = "Error:("&Err.number&"):" & err.description
199 
    End If
 173 
    End If
200 
End Sub
 174 
End Sub
201 
 
 175 
 
202 
'-------------------------------------------------
 176 
'-------------------------------------------------
203 
' Function:    sendEventWsh
 - 
 
204 
' Description: Send an Event to the Windows Log using Wsh
 - 
 
205 
Sub sendEventWsh
 - 
 
206 
   Dim objWSH, rv
 - 
 
207 
    Set objWSH = Server.CreateObject("WScript.Shell")
 - 
 
208 
    rv = objWSH.Run ("cmd.exe /c cscript.exe //B //NoLogo " & rootPath & SCRIPTS_FOLDER & "\Admin_Test.wsf //job:onRaiseEvent", 0, TRUE)
 - 
 
209 
    Set objWSH = Nothing
 - 
 
210 
    If rv = 0 Then
 - 
 
211 
        result = 0
 - 
 
212 
    Else
 - 
 
213 
        result = 1
 - 
 
214 
        oJSON.data("emsgSummary") = "Error:("&rv&")"
 - 
 
215 
    End If
 - 
 
216 
End Sub
 - 
 
217 
 
 - 
 
218 
'-------------------------------------------------
 - 
 
219 
' Function:     sendEmail
 177 
' Function:     sendEmail
220 
' Description:  Send an email
 178 
' Description:  Send an email
221 
Sub sendEmail
 179 
Sub sendEmail
222 
   Dim Mode, Attachment, Message
 180 
   Dim Mode, Attachment, Message
223 
 
 181 
 
Line 241... Line 199...
241 
    'oJSON.data("Info1") = Mode
 199 
    'oJSON.data("Info1") = Mode
242 
    'oJSON.data("Info2") = Attachment
 200 
    'oJSON.data("Info2") = Attachment
243 
End Sub
 201 
End Sub
244 
 
 202 
 
245 
'-------------------------------------------------
 203 
'-------------------------------------------------
246 
' Function:     sendWshEmail
 204 
' Function:    remExecTest
247 
' Description:  Send an email from a Wsh Script
 205 
' Description: Ensure that we can communicate with the package server
248 
Sub sendWshEmail
 - 
 
249 
    Dim objWSH, rv
 - 
 
250 
 
 206
251 
    Set objWSH = Server.CreateObject("WScript.Shell")
 - 
 
252 
    rv = objWSH.Run ("cmd.exe /c cscript.exe //B //NoLogo " & rootPath & SCRIPTS_FOLDER & "\Admin_Test.wsf //job:onTestMail", 0, TRUE)
 - 
 
253 
    Set objWSH = Nothing
 - 
 
254 
    If rv = 0 Then
 207 
Sub remExecTest
255 
        result = 0
 - 
 
256 
    Else
 - 
 
257 
        result = 1
 - 
 
258 
        oJSON.data("emsgSummary") = "Error:("&rv&")"
 - 
 
259 
    End If
 - 
 
260 
End Sub
 - 
 
261 
 
 208 
 
262 
'-------------------------------------------------
 - 
 
263 
' Function:    remExec
 - 
 
264 
' Description:  Test Release Manager Remote cmd Execution
 209 
    Dim objRC: Set objRC = New ReleaseChanged
265 
Sub remExec
 - 
 
266 
    Dim objWSH, rv
 210 
    Dim rv
267 
 
 211 
 
268 
    Set objWSH = Server.CreateObject("WScript.Shell")
 212 
    Call objRC.TestAccess(request.servervariables("server_name"))
269 
    rv = objWSH.Run ("cmd.exe /c cscript.exe //B //NoLogo " & rootPath & SCRIPTS_FOLDER & "\Admin_Test.wsf //job:onTestArchiveAccess", 0, TRUE)
 - 
 
270 
    Set objWSH = Nothing
 213 
    rv = objRc.last_resultCode
271 
    If rv = 0 Then
 214 
    If rv = 0 Then
272 
        result = 0
 215 
        result = 0
273 
    Else
 216 
    Else
274 
        result = 1
 217 
        result = 1
275 
        oJSON.data("emsgSummary") = "Error:("&rv&")"
 218 
        oJSON.data("emsgSummary") = "Error:("&rv&"), " & objRc.last_errorMsg
276 
    End If
 219 
    End If
- 
 
 220 
    Set objRC = Nothing
277 
End Sub
 221 
End Sub
278 
 
 222 
 
279 
'-------------------------------------------------
 223 
'-------------------------------------------------
280 
' Function:    pkgAccess
 224 
' Function:    pkgAccessTest
281 
' Description: Test dpkg_archive access - can we map it
 225 
' Description: Test dpkg_archive access - can we map it
282 
'
 226 
'
283 
Sub pkgAccess
 227 
Sub pkgAccessTest
284 
    Dim objWSH, rv
 - 
 
285 
 
 228 
 
286 
    Set objWSH = Server.CreateObject("WScript.Shell")
 - 
 
287 
    rv = objWSH.Run ("cmd.exe /c cscript.exe //B //NoLogo " & rootPath & SCRIPTS_FOLDER & "\Admin_Test.wsf //job:onTestMapArchive", 0, TRUE)
 - 
 
288 
    Set objWSH = Nothing
 - 
 
289 
    If rv = 0 Then
 229 
    If testArchiveAccessPkg("","") Then
290 
        result = 0
 230 
        result = 0
291 
    Else
 231 
    Else
292 
        result = 1
 232 
        result = 1
293 
        oJSON.data("emsgSummary") = "Error:("&rv&")"
 233 
        oJSON.data("emsgSummary") = "Archive not responding"
294 
    End If
 234 
    End If
295 
End Sub
 235 
End Sub
296 
 
 236 
 
297 
%>
 237 
%>