| Line 19... |
Line 19... |
| 19 |
<!--#include file="common/_form_window_common.asp"-->
|
19 |
<!--#include file="common/_form_window_common.asp"-->
|
| 20 |
<%
|
20 |
<%
|
| 21 |
'------------ ACCESS CONTROL ------------------
|
21 |
'------------ ACCESS CONTROL ------------------
|
| 22 |
%>
|
22 |
%>
|
| 23 |
<!--#include file="_access_control_general.asp"-->
|
23 |
<!--#include file="_access_control_general.asp"-->
|
| 24 |
<!-- Only used locally for display purposes -->
|
- |
|
| 25 |
<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER SRC="common/DictDump.vbs"></SCRIPT>
|
- |
|
| 26 |
<%
|
24 |
<%
|
| 27 |
'------------ Variable Definition -------------
|
25 |
'------------ Variable Definition -------------
|
| 28 |
Dim rsQry
|
26 |
Dim rsQry
|
| 29 |
Dim query_string
|
27 |
Dim query_string
|
| 30 |
Dim styleAlt1
|
28 |
Dim styleAlt1
|
| Line 131... |
Line 129... |
| 131 |
RelRef = bms.Item("RTAG_NAME")
|
129 |
RelRef = bms.Item("RTAG_NAME")
|
| 132 |
DRef = bms.Item("DISPLAY_NAME")
|
130 |
DRef = bms.Item("DISPLAY_NAME")
|
| 133 |
|
131 |
|
| 134 |
If Not buildStatus.Exists(ProjRef) Then
|
132 |
If Not buildStatus.Exists(ProjRef) Then
|
| 135 |
Set buildStatus(ProjRef) = CreateObject("Scripting.Dictionary")
|
133 |
Set buildStatus(ProjRef) = CreateObject("Scripting.Dictionary")
|
| 136 |
buildStatus(ProjRef).Item("count") = 0
|
- |
|
| 137 |
Set buildStatus(ProjRef).Item("data") = CreateObject("Scripting.Dictionary")
|
134 |
Set buildStatus(ProjRef).Item("data") = CreateObject("Scripting.Dictionary")
|
| - |
|
135 |
'buildStatus(ProjRef).Item("PROJ_ID") = bms.Item("PROJ_ID")
|
| - |
|
136 |
'buildStatus(ProjRef).Item("PROJ_NAME") = bms.Item("PROJ_NAME")
|
| - |
|
137 |
|
| 138 |
End If
|
138 |
End If
|
| 139 |
|
139 |
|
| 140 |
If Not buildStatus(ProjRef).Item("data").Exists(RelRef) Then
|
140 |
If Not buildStatus(ProjRef).Item("data").Exists(RelRef) Then
|
| 141 |
Set buildStatus(ProjRef).Item("data").Item(RelRef) = CreateObject("Scripting.Dictionary")
|
141 |
Set buildStatus(ProjRef).Item("data").Item(RelRef) = CreateObject("Scripting.Dictionary")
|
| 142 |
buildStatus(ProjRef).Item("data").Item(RelRef).Item("count") = 0
|
- |
|
| 143 |
Set buildStatus(ProjRef).Item("data").Item(RelRef).Item("data") = CreateObject("Scripting.Dictionary")
|
142 |
Set buildStatus(ProjRef).Item("data").Item(RelRef).Item("data") = CreateObject("Scripting.Dictionary")
|
| - |
|
143 |
'buildStatus(ProjRef).Item("data").Item(RelRef).Item("RTAG_NAME") = bms.Item("RTAG_NAME")
|
| - |
|
144 |
'buildStatus(ProjRef).Item("data").Item(RelRef).Item("RTAG_ID") = bms.Item("RTAG_ID")
|
| 144 |
End If
|
145 |
End If
|
| 145 |
|
146 |
|
| 146 |
buildStatus(ProjRef).Item("count") = buildStatus(ProjRef).Item("count") + 1
|
- |
|
| 147 |
buildStatus(ProjRef).Item("data").Item(RelRef).Item("count") = buildStatus(ProjRef).Item("data").Item(RelRef).Item("count") + 1
|
- |
|
| 148 |
Set buildStatus(ProjRef).Item("data").Item(RelRef).Item("data").Item(DRef) = bms
|
147 |
Set buildStatus(ProjRef).Item("data").Item(RelRef).Item("data").Item(DRef) = bms
|
| 149 |
|
148 |
|
| 150 |
rsQry.MoveNext
|
149 |
rsQry.MoveNext
|
| 151 |
Loop
|
150 |
Loop
|
| 152 |
rsQry.Close()
|
151 |
rsQry.Close()
|
| Line 196... |
Line 195... |
| 196 |
|
195 |
|
| 197 |
Next
|
196 |
Next
|
| 198 |
Next
|
197 |
Next
|
| 199 |
Next
|
198 |
Next
|
| 200 |
|
199 |
|
| 201 |
' '
|
- |
|
| 202 |
' ' Iterate again and delete elements that we are not going to display
|
- |
|
| 203 |
' '
|
- |
|
| 204 |
' For Each project in buildStatus
|
200 |
' Debug the data structure
|
| 205 |
' Set eProject = buildStatus.Item(project)
|
- |
|
| 206 |
' For Each release in eProject.Item("data")
|
- |
|
| 207 |
' Set eRelease = eProject.Item("data").Item(release)
|
- |
|
| 208 |
' If NOT (eRelease.Exists("bDisplay_some") OR eRelease.Exists("bDisplay_whole_set")) Then
|
- |
|
| 209 |
' eProject.Item("data").Remove(release)
|
201 |
' Requires common/DictDump.vbs to be included to work
|
| 210 |
' End If
|
- |
|
| 211 |
' Next
|
- |
|
| 212 |
' Next
|
- |
|
| 213 |
|
- |
|
| 214 |
'Response.Write "<br>Pretty Dictionary Display<pre>"
|
202 |
'Response.Write "<br>Pretty Dictionary Display<pre>"
|
| 215 |
'Response.Write DICToutput(buildStatus)
|
203 |
'Response.Write DICToutput(buildStatus)
|
| 216 |
|
204 |
|
| 217 |
End Sub
|
205 |
End Sub
|
| 218 |
|
206 |
|
| Line 307... |
Line 295... |
| 307 |
Get_Daemon_Mode = "Slave"
|
295 |
Get_Daemon_Mode = "Slave"
|
| 308 |
Else
|
296 |
Else
|
| 309 |
Get_Daemon_Mode = "?"
|
297 |
Get_Daemon_Mode = "?"
|
| 310 |
End If
|
298 |
End If
|
| 311 |
End Function
|
299 |
End Function
|
| 312 |
|
- |
|
| 313 |
'--------------------------------------------------------------------------------------------------------------------------
|
- |
|
| 314 |
' Return HTML for a seperator line between rows in the table
|
- |
|
| 315 |
Function HTML_Row_Divider( projectChanged, projectChecked, releaseChanged, last_row_displayed )
|
- |
|
| 316 |
Dim s
|
- |
|
| 317 |
s = ""
|
- |
|
| 318 |
If projectChanged Then
|
- |
|
| 319 |
s = s + "<tr>"
|
- |
|
| 320 |
s = s + " <td colspan='8'><img src='images/spacer.gif' width='1' height='5'></td>"
|
- |
|
| 321 |
s = s + "</tr>"
|
- |
|
| 322 |
s = s + "<tr>"
|
- |
|
| 323 |
s = s + " <td colspan='8' background='images/bg_rep_line.gif'><img src='images/spacer.gif' width='1' height='5'></td>"
|
- |
|
| 324 |
s = s + "</tr>"
|
- |
|
| 325 |
Else
|
- |
|
| 326 |
if projectChecked = "checked" AND last_row_displayed = True Then
|
- |
|
| 327 |
s = s + "<tr>"
|
- |
|
| 328 |
If releaseChanged Then
|
- |
|
| 329 |
s = s + "<td></td>"
|
- |
|
| 330 |
s = s + "<td colspan='7' background='images/bg_rep_line.gif'><img src='images/spacer.gif' width='1' height='1'></td>"
|
- |
|
| 331 |
Else
|
- |
|
| 332 |
s = s + "<td></td>"
|
- |
|
| 333 |
's = s + "<td colspan='7' background='images/bg_rep_line.gif'><img src='images/spacer.gif' width='1' height='1'></td>"
|
- |
|
| 334 |
End If
|
- |
|
| 335 |
s = s + "</tr>"
|
- |
|
| 336 |
End If
|
- |
|
| 337 |
End If
|
- |
|
| 338 |
HTML_Row_Divider = s
|
- |
|
| 339 |
End Function
|
- |
|
| 340 |
'--------------------------------------------------------------------------------------------------------------------------
|
300 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 341 |
' Use this function to determine the state of a specified project checkbox
|
301 |
' Use this function to determine the state of a specified project checkbox
|
| 342 |
Function Is_Project_Checked( nProjId )
|
302 |
Function Is_Project_Checked( nProjId )
|
| 343 |
Dim hiddenProjects_arr
|
303 |
Dim hiddenProjects_arr
|
| 344 |
Dim hiddenProjects
|
304 |
Dim hiddenProjects
|
| Line 957... |
Line 917... |
| 957 |
<!-- Status Table Body -->
|
917 |
<!-- Status Table Body -->
|
| 958 |
<%
|
918 |
<%
|
| 959 |
Dim bProject_changed ' Signals a row change due to a different project
|
919 |
Dim bProject_changed ' Signals a row change due to a different project
|
| 960 |
Dim strProject_checked ' Can be "" or "checked". Determines appearance of project enable checkbox
|
920 |
Dim strProject_checked ' Can be "" or "checked". Determines appearance of project enable checkbox
|
| 961 |
Dim bRelease_changed ' signals a row change due to a different release
|
921 |
Dim bRelease_changed ' signals a row change due to a different release
|
| 962 |
Dim bRelease_link_displayed ' indicates whether the release name has been rendered yet
|
922 |
Dim bReleaseHeaderDone ' indicates whether the release name has been rendered yet
|
| 963 |
Dim bRow_displayed ' signals whether a row should be displayed or not
|
- |
|
| 964 |
Dim bProjectHeader ' Project Header done
|
923 |
Dim bProjectHeaderDone ' Project Header done
|
| 965 |
Dim bShowAge ' Display age warning
|
924 |
Dim bShowAge ' Display age warning
|
| 966 |
Dim bToggleStyle ' Data shown so toggle style
|
925 |
Dim bToggleStyle ' Data shown so toggle style
|
| 967 |
|
- |
|
| 968 |
bRow_displayed = false
|
926 |
Dim bShowReleaseSep ' Show Release Seperator
|
| 969 |
|
927 |
|
| 970 |
' Iterate over all projects, releases and machines
|
928 |
' Iterate over all projects, releases and machines
|
| 971 |
'
|
929 |
'
|
| 972 |
Dim project,release,machine
|
930 |
Dim project,release,machine
|
| 973 |
Dim eProject,eRelease,eMachine
|
931 |
Dim eProject,eRelease,eMachine
|
| 974 |
For Each project in buildStatus
|
932 |
For Each project in buildStatus
|
| 975 |
' Start of a new Project
|
933 |
' Start of a new Project
|
| 976 |
Set eProject = buildStatus.Item(project)
|
934 |
Set eProject = buildStatus.Item(project)
|
| - |
|
935 |
bProjectHeaderDone = false
|
| 977 |
bProject_changed = true
|
936 |
bProject_changed = true
|
| - |
|
937 |
bShowReleaseSep = False
|
| 978 |
|
938 |
|
| 979 |
For Each release in eProject.Item("data")
|
939 |
For Each release in eProject.Item("data")
|
| 980 |
' Start of a new Release
|
940 |
' Start of a new Release
|
| 981 |
Set eRelease = eProject.Item("data").Item(release)
|
941 |
Set eRelease = eProject.Item("data").Item(release)
|
| 982 |
bRelease_link_displayed = False
|
942 |
bReleaseHeaderDone = False
|
| 983 |
bRelease_changed = true
|
943 |
bRelease_changed = true
|
| 984 |
bShowAge = eRelease("bShowAge")
|
944 |
bShowAge = eRelease("bShowAge")
|
| 985 |
If bToggleStyle Then Call ToggleStyleNow
|
945 |
If bToggleStyle Then Call ToggleStyleNow
|
| 986 |
bToggleStyle = false
|
946 |
bToggleStyle = false
|
| 987 |
|
947 |
|
| 988 |
For Each machine in eRelease.Item("data")
|
948 |
For Each machine in eRelease.Item("data")
|
| 989 |
' Start of a new Machine
|
949 |
' Start of a new Machine
|
| 990 |
Set eMachine = eRelease.Item("data").Item(machine)
|
950 |
Set eMachine = eRelease.Item("data").Item(machine)
|
| 991 |
|
- |
|
| 992 |
strProject_checked = Is_Project_Checked(eMachine("PROJ_ID"))
|
951 |
strProject_checked = Is_Project_Checked(eMachine("PROJ_ID"))
|
| 993 |
|
952 |
|
| - |
|
953 |
' Display Project Header - ONCE
|
| - |
|
954 |
If NOT bProjectHeaderDone Then%>
|
| - |
|
955 |
<tr>
|
| 994 |
Response.Write HTML_Row_Divider(bProject_changed, strProject_checked, bRelease_changed, bRow_displayed)
|
956 |
<td colspan='8'><img src='images/spacer.gif' width='1' height='5'></td>
|
| 995 |
bRow_displayed = False
|
957 |
</tr>
|
| 996 |
|
- |
|
| - |
|
958 |
<tr>
|
| - |
|
959 |
<td colspan='8' background='images/bg_rep_line.gif'><img src='images/spacer.gif' width='1' height='5'></td>
|
| 997 |
If bProject_changed Then%>
|
960 |
</tr>
|
| 998 |
<tr>
|
961 |
<tr>
|
| 999 |
<td nowrap class="body_rowg">
|
962 |
<td nowrap class="body_rowg">
|
| 1000 |
<input name='DIS_PRJ_<%=eMachine("PROJ_ID")%>' id='DIS_PRJ_<%=eMachine("PROJ_ID")%>' type='checkbox' value=1 <%=strProject_checked%> onclick=toggle_project(<%=eMachine("PROJ_ID")%>)>
|
963 |
<input name='DIS_PRJ_<%=eMachine("PROJ_ID")%>' id='DIS_PRJ_<%=eMachine("PROJ_ID")%>' type='checkbox' value=1 <%=strProject_checked%> onclick=toggle_project(<%=eMachine("PROJ_ID")%>)>
|
| 1001 |
<a href='rtree.asp?proj_id=<%=eMachine("PROJ_ID")%>'><%=eMachine("PROJ_NAME")%>
|
964 |
<a href='rtree.asp?proj_id=<%=eMachine("PROJ_ID")%>'><%=eMachine("PROJ_NAME")%>
|
| 1002 |
</td>
|
965 |
</td>
|
| 1003 |
<%
|
966 |
<%
|
| 1004 |
bProjectHeader = true
|
- |
|
| 1005 |
Else
|
- |
|
| 1006 |
bProjectHeader = false
|
- |
|
| 1007 |
End If
|
967 |
End If
|
| 1008 |
|
968 |
|
| - |
|
969 |
' Consider displaying the body of this machine entry
|
| 1009 |
If strProject_checked = "checked" Then
|
970 |
If strProject_checked = "checked" Then
|
| 1010 |
bRow_displayed = eRelease.Exists("bDisplay_whole_set") OR eMachine.Exists("bRow_displayed")
|
971 |
If eRelease.Exists("bDisplay_whole_set") OR eMachine.Exists("bRow_displayed") Then
|
| 1011 |
If bRow_displayed Then
|
- |
|
| 1012 |
bToggleStyle = true
|
972 |
bToggleStyle = true
|
| 1013 |
|
973 |
|
| - |
|
974 |
' Empty cell, if the project header has been displayed
|
| 1014 |
If NOT bProjectHeader Then
|
975 |
If bProjectHeaderDone Then
|
| 1015 |
%><td nowrap class="body_rowg"></td><%
|
976 |
%><td nowrap class="body_rowg"></td><%
|
| 1016 |
End If
|
977 |
End If
|
| 1017 |
|
978 |
|
| - |
|
979 |
' Display Release Header - Once, or a filler
|
| 1018 |
If bRelease_changed OR NOT bRelease_link_displayed Then
|
980 |
If NOT bReleaseHeaderDone Then
|
| 1019 |
bRelease_link_displayed = True
|
981 |
bReleaseHeaderDone = True
|
| - |
|
982 |
|
| - |
|
983 |
' Display Release seperator, if this is not the first release in the project
|
| - |
|
984 |
If bShowReleaseSep Then
|
| - |
|
985 |
%>
|
| - |
|
986 |
<tr>
|
| - |
|
987 |
<td></td>
|
| - |
|
988 |
<td colspan='7' background='images/bg_rep_line.gif'><img src='images/spacer.gif' width='1' height='1'></td>
|
| - |
|
989 |
</tr>
|
| - |
|
990 |
<tr>
|
| - |
|
991 |
<td></td>
|
| - |
|
992 |
<%
|
| - |
|
993 |
End If
|
| - |
|
994 |
' Display the Release Header, with a marker to show aged releases
|
| 1020 |
%>
|
995 |
%>
|
| - |
|
996 |
<td nowrap <%=styleNow%>>
|
| 1021 |
<td nowrap <%=styleNow%>><a href='build_status.asp?rtag_id=<%=eMachine("RTAG_ID")%>' title='Last Build:<%=eMachine("last_build")%>'><%=eMachine("RTAG_NAME")%></a>
|
997 |
<a href='build_status.asp?rtag_id=<%=eMachine("RTAG_ID")%>' title='Last Build:<%=eMachine("last_build")%>'><%=eMachine("RTAG_NAME")%></a>
|
| 1022 |
<%
|
998 |
<%
|
| 1023 |
If bShowAge Then
|
999 |
If bShowAge Then
|
| 1024 |
%>
|
1000 |
%>
|
| 1025 |
<img src='images/s_warning.gif' width='14' height='13' border='0' title='No Build in this release since <%=eMachine("last_build")%>. [<%=eMachine("last_build_days")%> Days]' style='vertical-align: bottom;'>
|
1001 |
<img src='images/s_warning.gif' width='14' height='13' border='0' title='No Build in this release since <%=eMachine("last_build")%>. [<%=eMachine("last_build_days")%> Days]' style='vertical-align: bottom;'>
|
| 1026 |
<%
|
1002 |
<%
|
| 1027 |
End If
|
1003 |
End If
|
| 1028 |
%></td><%
|
1004 |
%></td><%
|
| 1029 |
Else
|
1005 |
Else
|
| 1030 |
%><td nowrap <%=styleNow%>></td><%
|
1006 |
%><td nowrap <%=styleNow%>></td><%
|
| 1031 |
End If
|
1007 |
End If
|
| - |
|
1008 |
bShowReleaseSep = true
|
| 1032 |
%>
|
1009 |
%>
|
| 1033 |
<td nowrap <%=styleNow%>><%=Get_Official(eMachine("OFFICIAL"))%></td>
|
1010 |
<td nowrap <%=styleNow%>><%=Get_Official(eMachine("OFFICIAL"))%></td>
|
| 1034 |
<td nowrap <%=styleNow%>><%=Get_Daemon_Mode(eMachine("DAEMON_MODE"))%></td>
|
1011 |
<td nowrap <%=styleNow%>><%=Get_Daemon_Mode(eMachine("DAEMON_MODE"))%></td>
|
| 1035 |
<td nowrap <%=styleNow%>><%=eMachine("DISPLAY_NAME")%></td>
|
1012 |
<td nowrap <%=styleNow%>><%=eMachine("DISPLAY_NAME")%></td>
|
| 1036 |
<td nowrap <%=styleNow%>><%=eMachine("dStateText")%></td>
|
1013 |
<td nowrap <%=styleNow%>><%=eMachine("dStateText")%></td>
|
| Line 1042... |
Line 1019... |
| 1042 |
End If
|
1019 |
End If
|
| 1043 |
|
1020 |
|
| 1044 |
' End of Display
|
1021 |
' End of Display
|
| 1045 |
bRelease_changed = false
|
1022 |
bRelease_changed = false
|
| 1046 |
bProject_changed = false
|
1023 |
bProject_changed = false
|
| - |
|
1024 |
bProjectHeaderDone = true
|
| 1047 |
Next
|
1025 |
Next
|
| 1048 |
Next
|
1026 |
Next
|
| 1049 |
Next
|
1027 |
Next
|
| 1050 |
%>
|
1028 |
%>
|
| 1051 |
</table>
|
1029 |
</table>
|