| Line 1... |
Line 1... |
| 1 |
<%
|
1 |
<%
|
| 2 |
'=====================================================
|
2 |
'=====================================================
|
| 3 |
' COMMON SUBs Part 1
|
3 |
' COMMON SUBs Part 1
|
| 4 |
'=====================================================
|
4 |
'=====================================================
|
| - |
|
5 |
Dim haveCommonSubs: haveCommonSubs = 1
|
| 5 |
%>
|
6 |
%>
|
| 6 |
<%
|
7 |
<%
|
| 7 |
'-----------------------------------------------------------------------------------------------------------------------------
|
8 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 8 |
Sub CloseWindow
|
9 |
Sub CloseWindow
|
| 9 |
%>
|
10 |
%>
|
| Line 135... |
Line 136... |
| 135 |
set brokenReadyHash = nothing
|
136 |
set brokenReadyHash = nothing
|
| 136 |
set brokenHash = nothing
|
137 |
set brokenHash = nothing
|
| 137 |
set pkgInfoHash = nothing
|
138 |
set pkgInfoHash = nothing
|
| 138 |
set OraDatabase = nothing
|
139 |
set OraDatabase = nothing
|
| 139 |
set OraSession = nothing
|
140 |
set OraSession = nothing
|
| 140 |
set userdetailsHash = nothing
|
- |
|
| 141 |
End Sub
|
141 |
End Sub
|
| 142 |
'-----------------------------------------------------------------------------------------------------------------------------
|
142 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 143 |
Function InStrPipes ( SSstr, SSsubstr )
|
143 |
Function InStrPipes ( SSstr, SSsubstr )
|
| 144 |
If InStr( SSstr, "|"& SSsubstr &"|") > 0 Then
|
144 |
If InStr( SSstr, "|"& SSsubstr &"|") > 0 Then
|
| 145 |
InStrPipes = true
|
145 |
InStrPipes = true
|
| Line 620... |
Line 620... |
| 620 |
LogError = SSlog &"|"& SSstr &"|"
|
620 |
LogError = SSlog &"|"& SSstr &"|"
|
| 621 |
End Function
|
621 |
End Function
|
| 622 |
'-----------------------------------------------------------------------------------------------------------------------------
|
622 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 623 |
Sub Send_Email ( SSfromName, SSfrom, SSto, SSsubject, SSbody, oAttachments )
|
623 |
Sub Send_Email ( SSfromName, SSfrom, SSto, SSsubject, SSbody, oAttachments )
|
| 624 |
Dim Mail, Keys, Key, canSend
|
624 |
Dim Mail, Keys, Key, canSend
|
| - |
|
625 |
'Response.write "<pre>Send_Email:" & SSfromName & " : "& SSfrom &" : "& SSto &" : "& SSsubject &" : "& SSbody
|
| 625 |
|
626 |
|
| 626 |
canSend = FALSE
|
627 |
canSend = FALSE
|
| 627 |
Set Mail = Server.CreateObject("Persits.MailSender")
|
628 |
Set Mail = Server.CreateObject("Persits.MailSender")
|
| 628 |
Mail.Host = SMTP_HOST
|
629 |
Mail.Host = MAIL_SERVER
|
| 629 |
|
- |
|
| 630 |
Mail.From = SSfrom
|
630 |
Mail.From = SSfrom
|
| 631 |
Mail.FromName = SSfromName
|
631 |
Mail.FromName = SSfromName
|
| 632 |
|
632 |
|
| 633 |
' Send TO:
|
633 |
' Send TO:
|
| 634 |
If IsObject( SSto ) Then
|
634 |
If IsObject( SSto ) Then
|
| Line 647... |
Line 647... |
| 647 |
Mail.Subject = SSsubject
|
647 |
Mail.Subject = SSsubject
|
| 648 |
Mail.IsHTML = True
|
648 |
Mail.IsHTML = True
|
| 649 |
Mail.Body = SSbody
|
649 |
Mail.Body = SSbody
|
| 650 |
|
650 |
|
| 651 |
' Add Attachments DDDDDDD Sash, It appears as if AddEmbededImage is premium functionality that costs money, can we just do a normal add attachment?
|
651 |
' Add Attachments DDDDDDD Sash, It appears as if AddEmbededImage is premium functionality that costs money, can we just do a normal add attachment?
|
| 652 |
'If IsObject( oAttachments ) Then
|
652 |
If IsObject( oAttachments ) Then
|
| 653 |
' Keys = oAttachments.Keys
|
653 |
Keys = oAttachments.Keys
|
| 654 |
' For Each Key In Keys
|
654 |
For Each Key In Keys
|
| 655 |
' Mail.AddEmbeddedImage rootPath & Key, oAttachments.Item( Key )
|
655 |
' Mail.AddEmbeddedImage rootPath & Key, oAttachments.Item( Key )
|
| - |
|
656 |
Mail.AddAttachment oAttachments.Item( Key )
|
| 656 |
' Next
|
657 |
Next
|
| 657 |
'
|
658 |
Else
|
| - |
|
659 |
Mail.AddAttachment oAttachments
|
| 658 |
'End If
|
660 |
End If
|
| 659 |
|
661 |
|
| 660 |
On Error Resume Next
|
662 |
On Error Resume Next
|
| 661 |
If canSend Then Mail.Send ' send message
|
663 |
If canSend Then Mail.Send ' send message
|
| 662 |
|
664 |
|
| 663 |
End Sub
|
665 |
End Sub
|
| Line 766... |
Line 768... |
| 766 |
msg = "<b>New Patch is Required</b><br>One or more Build Dependencies have been patched.<br>Please click Add button to create patch for this package."
|
768 |
msg = "<b>New Patch is Required</b><br>One or more Build Dependencies have been patched.<br>Please click Add button to create patch for this package."
|
| 767 |
|
769 |
|
| 768 |
Case "GENERATE_RELEASE_NOTES"
|
770 |
Case "GENERATE_RELEASE_NOTES"
|
| 769 |
msg = "<a href='_generate_release_notes.asp?rfile=&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' class='txt_linked'>Click here</a> to generate full release notes."
|
771 |
msg = "<a href='_generate_release_notes.asp?rfile=&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' class='txt_linked'>Click here</a> to generate full release notes."
|
| 770 |
Case "NOT_FOUND_IN_PKG_ARCHIVE_RELEASE_NOTES"
|
772 |
Case "NOT_FOUND_IN_PKG_ARCHIVE_RELEASE_NOTES"
|
| 771 |
msg = "<b>This package is not found in dpkg_archive or deploy_archive!</b><br>Release notes are not generated.<br><a href='_generate_release_notes.asp?rfile="& scriptName &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' class='txt_linked'>Click here</a> to try again."
|
773 |
msg = "<b>This package is not found in dpkg_archive!</b><br>Release notes are not generated.<br><a href='_generate_release_notes.asp?rfile="& scriptName &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' class='txt_linked'>Click here</a> to try again."
|
| 772 |
Case "FAILED_GENERATING_RELEASE_NOTES"
|
774 |
Case "FAILED_GENERATING_RELEASE_NOTES"
|
| 773 |
msg = "<span class='err_alert'><b>Failed generating release notes!</b></span><br>Please contact the <a href='mailto:"& adminEmail&"' class='txt_linked'>Administrator</a>"
|
775 |
msg = "<span class='err_alert'><b>Failed generating release notes!</b></span><br>Please contact the <a href='mailto:"& adminEmail&"' class='txt_linked'>Administrator</a>"
|
| 774 |
Case "GENERATING_RELEASE_NOTES"
|
776 |
Case "GENERATING_RELEASE_NOTES"
|
| 775 |
msg = "<b>Generating release notes...</b><br>It may take a minute. Please try refreshing this page a bit later."
|
777 |
msg = "<b>Generating release notes...</b><br>It may take a minute. Please try refreshing this page a bit later."
|
| 776 |
Case "NO_PREVIOUS_VERSION_RELEASE_NOTES"
|
778 |
Case "NO_PREVIOUS_VERSION_RELEASE_NOTES"
|
| Line 786... |
Line 788... |
| 786 |
msg = "<b>Unit test is Not Done!</b><br><a href='javascript:;' onClick=""MM_openBrWindow('_wform_reason_for_unit_test_not_done.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"','ReasonForNotDone','resizable=yes,width=400,height=250')"" class='txt_linked'>Click here</a> to supply/edit reason."
|
788 |
msg = "<b>Unit test is Not Done!</b><br><a href='javascript:;' onClick=""MM_openBrWindow('_wform_reason_for_unit_test_not_done.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"','ReasonForNotDone','resizable=yes,width=400,height=250')"" class='txt_linked'>Click here</a> to supply/edit reason."
|
| 787 |
Case "PACKAGE_NOT_PART_OF_RELEASE"
|
789 |
Case "PACKAGE_NOT_PART_OF_RELEASE"
|
| 788 |
msg = "<b>Package is Not Part of This Release Anymore!</b><br>This package cannot be found in the list on the left-hand side.<br>You can use 'lookup:' on the left-hand side to find the package inside this release. "
|
790 |
msg = "<b>Package is Not Part of This Release Anymore!</b><br>This package cannot be found in the list on the left-hand side.<br>You can use 'lookup:' on the left-hand side to find the package inside this release. "
|
| 789 |
|
791 |
|
| 790 |
Case "NOT_FOUND_IN_PKG_ARCHIVE_FILE_GENERATE"
|
792 |
Case "NOT_FOUND_IN_PKG_ARCHIVE_FILE_GENERATE"
|
| 791 |
msg = "<b>This package is not found in dpkg_archive or deploy_archive!</b><br>Files and folders are not captured.<br><a href='_generate_files_and_folders.asp?rfile="& scriptName &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' class='txt_linked' onClick=""ProgressBar.style.visibility='visible';"">Click here</a> to try again."
|
793 |
msg = "<b>This package is not found in dpkg_archive!</b><br>Files and folders are not captured.<br><a href='_generate_files_and_folders.asp?rfile="& scriptName &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' class='txt_linked' onClick=""ProgressBar.style.visibility='visible';"">Click here</a> to try again."
|
| 792 |
Case "GENERATE_FILES_AND_FOLDERS"
|
794 |
Case "GENERATE_FILES_AND_FOLDERS"
|
| 793 |
msg = "<b>Files and folders not found.</b><br><a href='_generate_files_and_folders.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' class='txt_linked' onClick=""ProgressBar.style.visibility='visible';"">Click here</a> to try capture them."
|
795 |
msg = "<b>Files and folders not found.</b><br><a href='_generate_files_and_folders.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' class='txt_linked' onClick=""ProgressBar.style.visibility='visible';"">Click here</a> to try capture them."
|
| 794 |
Case "NO_PRODUCT_FILES_CAPTURED"
|
796 |
Case "NO_PRODUCT_FILES_CAPTURED"
|
| 795 |
msg = "<b>Files and Folders not found for this product!</b><br>Capture of product components can only be done during the build time."
|
797 |
msg = "<b>Files and Folders not found for this product!</b><br>Capture of product components can only be done during the build time."
|
| 796 |
|
798 |
|
| Line 848... |
Line 850... |
| 848 |
|
850 |
|
| 849 |
Response.write msgTemplate
|
851 |
Response.write msgTemplate
|
| 850 |
End Sub
|
852 |
End Sub
|
| 851 |
'-----------------------------------------------------------------------------------------------------------------------------
|
853 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 852 |
Function Default_Label ( SSpv_id, SSbuild_type, SSpkg_name, SSpkg_version, SSv_ext )
|
854 |
Function Default_Label ( SSpv_id, SSbuild_type, SSpkg_name, SSpkg_version, SSv_ext )
|
| 853 |
Dim rsTemp, Query_String
|
- |
|
| 854 |
' Do not do anything is label already exists
|
- |
|
| 855 |
'If Not IsNull(rsPkgInfo("pkg_label")) OR (rsPkgInfo("pkg_label")<>"")Then
|
- |
|
| 856 |
' Default_Label = rsPkgInfo("pkg_label")
|
- |
|
| 857 |
' Exit Function
|
- |
|
| 858 |
'End If
|
- |
|
| 859 |
|
- |
|
| 860 |
If Request("rtag_id") <> "" Then
|
- |
|
| 861 |
|
- |
|
| 862 |
Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT PROJ_ID FROM RELEASE_TAGS WHERE RTAG_ID = "& Request("rtag_id") &"" , cint(0) )
|
- |
|
| 863 |
|
- |
|
| 864 |
If InStr(1, SSpkg_name, "ERG") = 1 AND rsTemp("proj_id") <> 202 Then
|
- |
|
| 865 |
' For ERG products
|
- |
|
| 866 |
If IsNull(SSv_ext) OR (SSv_ext = "") Then
|
- |
|
| 867 |
' blank extention e.i. MAS
|
- |
|
| 868 |
Default_Label = "MAS_"& UCase(SSpkg_name) &"_R_"& Format_Version( SSpkg_version, NULL )
|
- |
|
| 869 |
Else
|
- |
|
| 870 |
Default_Label = UCase( Replace(SSv_ext, ".", "") ) &"_"& UCase(SSpkg_name) &"_R_"& Format_Version( SSpkg_version, SSv_ext )
|
- |
|
| 871 |
End If
|
- |
|
| 872 |
Else
|
- |
|
| 873 |
' For others
|
- |
|
| 874 |
If SSbuild_type = "A" Then
|
855 |
If SSbuild_type = "A" Then
|
| 875 |
Default_Label = UCase(SSpkg_name & "." & SSpv_id & SSv_ext & ".WIP")
|
856 |
Default_Label = UCase(SSpkg_name & "." & SSpv_id & SSv_ext & ".WIP")
|
| 876 |
Else
|
- |
|
| 877 |
Default_Label = SSpkg_name &"_"& SSpkg_version
|
- |
|
| 878 |
End If
|
- |
|
| 879 |
|
- |
|
| 880 |
End If
|
- |
|
| 881 |
|
- |
|
| 882 |
rsTemp.Close()
|
- |
|
| 883 |
Set rsTemp = nothing
|
- |
|
| 884 |
Else
|
857 |
Else
|
| 885 |
If InStr(1, SSpkg_name, "ERG") = 1 Then
|
- |
|
| 886 |
' For ERG products
|
- |
|
| 887 |
If IsNull(SSv_ext) OR (SSv_ext = "") Then
|
- |
|
| 888 |
' blank extention e.i. MAS
|
- |
|
| 889 |
Default_Label = "MAS_"& UCase(SSpkg_name) &"_R_"& Format_Version( SSpkg_version, NULL )
|
- |
|
| 890 |
Else
|
- |
|
| 891 |
Default_Label = UCase( Replace(SSv_ext, ".", "") ) &"_"& UCase(SSpkg_name) &"_R_"& Format_Version( SSpkg_version, SSv_ext )
|
- |
|
| 892 |
End If
|
- |
|
| 893 |
Else
|
- |
|
| 894 |
' For others
|
- |
|
| 895 |
If SSbuild_type = "A" Then
|
- |
|
| 896 |
Default_Label = UCase(SSpkg_name & "." & SSpv_id & SSv_ext & ".WIP")
|
- |
|
| 897 |
Else
|
- |
|
| 898 |
Default_Label = SSpkg_name &"_"& SSpkg_version
|
858 |
Default_Label = SSpkg_name &"_"& SSpkg_version
|
| 899 |
End If
|
- |
|
| 900 |
End If
|
- |
|
| 901 |
End If
|
859 |
End If
|
| 902 |
End Function
|
860 |
End Function
|
| 903 |
'-----------------------------------------------------------------------------------------------------------------------------
|
861 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 904 |
Function Format_Version ( SSpkg_version, SSv_ext )
|
862 |
Function Format_Version ( SSpkg_version, SSv_ext )
|
| 905 |
Dim tempArr, tempVersion, patchArr, seg, myVersion
|
863 |
Dim tempArr, tempVersion, patchArr, seg, myVersion
|
| 906 |
myVersion = SSpkg_version
|
864 |
myVersion = SSpkg_version
|