| Line 166... |
Line 166... |
| 166 |
|
166 |
|
| 167 |
Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
|
167 |
Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
|
| 168 |
|
168 |
|
| 169 |
If rsQry.RecordCount <> "" Then
|
169 |
If rsQry.RecordCount <> "" Then
|
| 170 |
While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
|
170 |
While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
|
| - |
|
171 |
If rsQry("user_email") <> "" Then
|
| 171 |
Set myMail=Server.CreateObject("Persits.MailSender")
|
172 |
Set myMail=Server.CreateObject("Persits.MailSender")
|
| 172 |
If Err.Number <> 0 Then
|
- |
|
| 173 |
myMail.Host = SMTP_HOST
|
173 |
myMail.Host = SMTP_HOST
|
| 174 |
myMail.Subject="Version "& rsQry("pkg_version") &" of Package "& rsQry("pkg_name") &" in Project " & rsQry("proj_name") &" on Release Branch " & rsQry("rtag_name") &" has been released."
|
174 |
myMail.Subject="Version "& rsQry("pkg_version") &" of Package "& rsQry("pkg_name") &" in Project " & rsQry("proj_name") &" on Release Branch " & rsQry("rtag_name") &" has been released."
|
| 175 |
myMail.Body = "You have received this email as a result of your interest in this package. If you do not wish to receive further emails then remove your package interest from the notifications area in Release Manager."
|
175 |
myMail.Body = "You have received this email as a result of your interest in this package. If you do not wish to receive further emails then remove your package interest from the notifications area in Release Manager."
|
| 176 |
myMail.From=ADMIN_EMAIL
|
176 |
myMail.From=ADMIN_EMAIL
|
| 177 |
myMail.AddAddress rsQry("user_email")
|
177 |
myMail.AddAddress rsQry("user_email")
|
| 178 |
|
- |
|
| 179 |
myMail.Send
|
178 |
myMail.Send
|
| 180 |
set myMail=nothing
|
179 |
set myMail=nothing
|
| 181 |
Else
|
- |
|
| 182 |
Call RaiseMsg( enum_MSG_ERROR, "Failed to send notification email of release - possible problem on server with SMTP service or permission to use the service. Error Number = " + CStr(Err.Number) )
|
- |
|
| 183 |
End If
|
180 |
End If
|
| 184 |
rsQry.MoveNext
|
181 |
rsQry.MoveNext
|
| 185 |
Wend
|
182 |
Wend
|
| 186 |
|
183 |
|
| 187 |
End If
|
184 |
End If
|
| Line 301... |
Line 298... |
| 301 |
|
298 |
|
| 302 |
Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
|
299 |
Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
|
| 303 |
|
300 |
|
| 304 |
If rsQry.RecordCount <> "" Then
|
301 |
If rsQry.RecordCount <> "" Then
|
| 305 |
While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
|
302 |
While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
|
| - |
|
303 |
If rsQry("user_email") <> "" Then
|
| 306 |
Set myMail=Server.CreateObject("Persits.MailSender")
|
304 |
Set myMail=Server.CreateObject("Persits.MailSender")
|
| 307 |
myMail.Host = SMTP_HOST
|
305 |
myMail.Host = SMTP_HOST
|
| 308 |
myMail.Subject="New Version of Package "& rsQry("pkg_name") &" in Project " & rsQry("proj_name") &" on Release Branch " & rsQry("rtag_name") &" would be autobuild soon."
|
306 |
myMail.Subject="New Version of Package "& rsQry("pkg_name") &" in Project " & rsQry("proj_name") &" on Release Branch " & rsQry("rtag_name") &" would be autobuild soon."
|
| 309 |
myMail.From=ADMIN_EMAIL
|
307 |
myMail.From=ADMIN_EMAIL
|
| 310 |
myMail.AddAddress rsQry("user_email")
|
308 |
myMail.AddAddress rsQry("user_email")
|
| 311 |
myMail.Send
|
309 |
myMail.Send
|
| 312 |
set myMail=nothing
|
310 |
set myMail=nothing
|
| - |
|
311 |
End If
|
| 313 |
rsQry.MoveNext
|
312 |
rsQry.MoveNext
|
| 314 |
Wend
|
313 |
Wend
|
| 315 |
End If
|
314 |
End If
|
| 316 |
|
315 |
|
| 317 |
rsQry.Close()
|
316 |
rsQry.Close()
|
| Line 382... |
Line 381... |
| 382 |
comments = comments & "<br>"
|
381 |
comments = comments & "<br>"
|
| 383 |
End If
|
382 |
End If
|
| 384 |
|
383 |
|
| 385 |
Err.Clear
|
384 |
Err.Clear
|
| 386 |
On Error Resume Next
|
385 |
On Error Resume Next
|
| 387 |
Set myMail=Server.CreateObject("Persits.MailSender")
|
- |
|
| 388 |
If Err.Number <> 0 Then
|
386 |
If rsQry("owner_email") <> "" Then
|
| 389 |
If rsQry("owner_email") <> "" Then
|
387 |
Set myMail=Server.CreateObject("Persits.MailSender")
|
| 390 |
myMail.Host = SMTP_HOST
|
388 |
myMail.Host = SMTP_HOST
|
| 391 |
myMail.Subject="Build required for package "& rsQry("pkg_name") &" in Project " & rsQry("proj_name") &" on Release Branch " & rsQry("rtag_name")
|
389 |
myMail.Subject="Build required for package "& rsQry("pkg_name") &" in Project " & rsQry("proj_name") &" on Release Branch " & rsQry("rtag_name")
|
| 392 |
release = release & "<table width='100%' border='0' cellspacing='0' cellpadding='1'>"
|
390 |
release = release & "<table width='100%' border='0' cellspacing='0' cellpadding='1'>"
|
| 393 |
release = release & "<tr>"
|
391 |
release = release & "<tr>"
|
| 394 |
release = release & "<td background='#CAC5B8' nowrap class='form_field'><font size='2' face='tahoma,sans-serif'><b>Release</b></font></td>"
|
392 |
release = release & "<td background='#CAC5B8' nowrap class='form_field'><font size='2' face='tahoma,sans-serif'><b>Release</b></font></td>"
|
| 395 |
release = release & "</tr>"
|
393 |
release = release & "</tr>"
|
| 396 |
release = release & "<tr>"
|
394 |
release = release & "<tr>"
|
| 397 |
release = release & "<td background='#CAC5B8' nowrap class='form_item'><a href='http://erg:8002/ManagerSuite/Release_Manager/dependencies.asp?rtag_id="_
|
395 |
release = release & "<td background='#CAC5B8' nowrap class='form_item'><a href='http://erg:8002/ManagerSuite/Release_Manager/dependencies.asp?rtag_id="_
|
| 398 |
& NNrtag_id & "'><font size='1' face='tahoma,sans-serif'>"&rsQry("rtag_name")&"</font></a></td>"
|
396 |
& NNrtag_id & "'><font size='1' face='tahoma,sans-serif'>"&rsQry("rtag_name")&"</font></a></td>"
|
| 399 |
release = release & "</tr>"
|
397 |
release = release & "</tr>"
|
| 400 |
release = release & "</table>"
|
398 |
release = release & "</table>"
|
| 401 |
release = release & "<br>"
|
399 |
release = release & "<br>"
|
| 402 |
|
400 |
|
| 403 |
package = package & "<table width='100%' border='0' cellspacing='0' cellpadding='1'>"
|
401 |
package = package & "<table width='100%' border='0' cellspacing='0' cellpadding='1'>"
|
| 404 |
package = package & "<tr>"
|
402 |
package = package & "<tr>"
|
| 405 |
package = package & "<td background='#CAC5B8' nowrap class='form_field'><font size='2' face='tahoma,sans-serif'><b>Package</b></font></td>"
|
403 |
package = package & "<td background='#CAC5B8' nowrap class='form_field'><font size='2' face='tahoma,sans-serif'><b>Package</b></font></td>"
|
| 406 |
package = package & "</tr>"
|
404 |
package = package & "</tr>"
|
| 407 |
package = package & "<tr>"
|
405 |
package = package & "<tr>"
|
| 408 |
package = package & "<td background='#CAC5B8' nowrap class='form_item'><a href='http://erg:8002/ManagerSuite/Release_Manager/fixed_issues.asp?pv_id=" _
|
406 |
package = package & "<td background='#CAC5B8' nowrap class='form_item'><a href='http://erg:8002/ManagerSuite/Release_Manager/fixed_issues.asp?pv_id=" _
|
| 409 |
& NNpv_id & "&rtag_id=" & NNrtag_id & "'><font size='1' face='tahoma,sans-serif'>"&rsQry("pkg_name")&" "&rsQry("pkg_version")&"</font></a></td>"
|
407 |
& NNpv_id & "&rtag_id=" & NNrtag_id & "'><font size='1' face='tahoma,sans-serif'>"&rsQry("pkg_name")&" "&rsQry("pkg_version")&"</font></a></td>"
|
| 410 |
package = package & "</tr>"
|
408 |
package = package & "</tr>"
|
| 411 |
package = package & "</table>"
|
409 |
package = package & "</table>"
|
| 412 |
package = package & "<br>"
|
410 |
package = package & "<br>"
|
| 413 |
|
411 |
|
| 414 |
EmailBody = release & package & comments & EmailBody
|
412 |
EmailBody = release & package & comments & EmailBody
|
| 415 |
myMail.IsHTML = True
|
413 |
myMail.IsHTML = True
|
| 416 |
myMail.Body = EmailBody
|
414 |
myMail.Body = EmailBody
|
| 417 |
myMail.From=ADMIN_EMAIL
|
415 |
myMail.From=ADMIN_EMAIL
|
| 418 |
|
416 |
|
| 419 |
' if before 8AM or after 5PM then send to owners personal email address else send to their work email address
|
417 |
' if before 8AM or after 5PM then send to owners personal email address else send to their work email address
|
| 420 |
If Timer < 28800 OR Timer > 61200 Then
|
418 |
If Timer < 28800 OR Timer > 61200 Then
|
| 421 |
If rsQry("owner_personal_email") <> "" Then
|
419 |
If rsQry("owner_personal_email") <> "" Then
|
| 422 |
myMail.AddAddress rsQry("owner_personal_email")
|
420 |
myMail.AddAddress rsQry("owner_personal_email")
|
| 423 |
Else
|
- |
|
| 424 |
myMail.AddAddress rsQry("owner_email")
|
- |
|
| 425 |
End If
|
- |
|
| 426 |
Else
|
421 |
Else
|
| 427 |
myMail.AddAddress rsQry("owner_email")
|
422 |
myMail.AddAddress rsQry("owner_email")
|
| 428 |
End If
|
423 |
End If
|
| 429 |
|
- |
|
| 430 |
myMail.Send
|
424 |
Else
|
| 431 |
set myMail=nothing
|
425 |
myMail.AddAddress rsQry("owner_email")
|
| 432 |
End If
|
426 |
End If
|
| - |
|
427 |
|
| 433 |
Else
|
428 |
myMail.Send
|
| 434 |
Call RaiseMsg( enum_MSG_ERROR, "Failed to send notification email of release - possible problem on server with SMTP service or permission to use the service. Error Number = " + CStr(Err.Number) )
|
429 |
set myMail=nothing
|
| 435 |
End If
|
430 |
End If
|
| 436 |
End Sub
|
431 |
End Sub
|
| 437 |
'-------------------------------------------------------------------------------------
|
432 |
'-------------------------------------------------------------------------------------
|
| 438 |
Sub PRIVATE_MakeApproved (NNrtag_id, NNpv_id)
|
433 |
Sub PRIVATE_MakeApproved (NNrtag_id, NNpv_id)
|
| 439 |
|
434 |
|