Subversion Repositories DevTools

Rev

Rev 6876 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6876 Rev 7290
Line 30... Line 30...
30 
Dim sLink
 30 
Dim sLink
31 
'------------ Constants Declaration -----------
 31 
'------------ Constants Declaration -----------
32 
Const MaxRows = 100
 32 
Const MaxRows = 100
33 
'------------ Variable Init -------------------
 33 
'------------ Variable Init -------------------
34 
parKeyword = Request("filename")
 34 
parKeyword = Request("filename")
35 
 
 - 
 
36 
parFPkgName = Request("fpkgname")
 35 
parFPkgName = RequestDefault("fpkgname", "*")
37 
If parFPkgName = "" Then  parFPkgName = "*"
 - 
 
38 
 
 - 
 
39 
parFPkgVersion = Request("fpkgversion")
 36 
parFPkgVersion = RequestDefault("fpkgversion", "*")
40 
If parFPkgVersion = "" Then  parFPkgVersion = "*"
 - 
 
41 
 
 37 
 
42 
'----------------------------------------------
 38 
'----------------------------------------------
43 
%>
 39 
%>
44 
<%
 40 
<%
45 
'-----------------------------------------------------------------------------------------------------------------------
 41 
'-----------------------------------------------------------------------------------------------------------------------
Line 50... Line 46...
50 
If (parKeyword = "") Then
46 
If (parKeyword = "") Then
51 
    Call Destroy_All_Objects
 47 
    Call Destroy_All_Objects
52 
    Response.Redirect ("index.asp")
 48 
    Response.Redirect ("index.asp")
53 
End If
 49 
End If
54 
'==============================================================
 50 
'==============================================================
- 
 
 51 
Sub ShowMainPanel
- 
 
 52 
%>
- 
 
 53 
	<!-- PACKAGE SEARCH ------------------------------------------------>
- 
 
 54 
	<%
- 
 
 55 
	' Format keyword for search
- 
 
 56 
	If InStr( parKeyword, "*" ) > 0 Then
- 
 
 57 
		' Use wild cards
- 
 
 58 
		FileName = Replace( parKeyword, "*", "%")
- 
 
 59 
	Else
- 
 
 60 
		' Wildcard is not used, hence append card to the end for better results
- 
 
 61 
		FileName = parKeyword & "%"
- 
 
 62 
	End If
- 
 
 63 
 
- 
 
 64 
 
- 
 
 65 
	OraDatabase.Parameters.Add "FILE_NAME", 	FileName, ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 66 
	OraDatabase.Parameters.Add "PKG_NAME", 		Replace( parFPkgName, "*", "%" ), ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 67 
	OraDatabase.Parameters.Add "PKG_VERSION", 	Replace( parFPkgVersion, "*", "%" ), ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 68 
	OraDatabase.Parameters.Add "PAGE_SIZE", 	MaxRows, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 69 
 
- 
 
 70 
	Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("FindFiles.sql"), 0 )
- 
 
 71 
 
- 
 
 72 
	OraDatabase.Parameters.Remove "FILE_NAME"
- 
 
 73 
	OraDatabase.Parameters.Remove "PKG_NAME"
- 
 
 74 
	OraDatabase.Parameters.Remove "PKG_VERSION"
- 
 
 75 
	OraDatabase.Parameters.Remove "PAGE_SIZE"
- 
 
 76 
 
- 
 
 77 
	%>
- 
 
 78 
	<table width="100%"  border="0" cellspacing="0" cellpadding="5">
- 
 
 79 
	  <tr>
- 
 
 80 
		<td class="body_sect">Files</td>
- 
 
 81 
	  </tr>
- 
 
 82 
	  <tr>
- 
 
 83 
		<td nowrap class="body_txt">
- 
 
 84 
			Results for <b><%=parKeyword%></b>. Showing max. <%=MaxRows%> results.
- 
 
 85 
		</td>
- 
 
 86 
	  </tr>
- 
 
 87 
	</table>
- 
 
 88 
	<table width="100%" border="0" cellspacing="1" cellpadding="5" class=stdGrey>
- 
 
 89 
	<form name="file_search" method="get" action="<%=ScriptName%>">
- 
 
 90 
	  <input type="hidden" name="filename" value="<%=parKeyword%>">
- 
 
 91 
	  <input type="hidden" name="listby" value="<%=parListBy%>">
- 
 
 92 
	  <thead>
- 
 
 93 
		<tr>
- 
 
 94 
		<th width="20%" nowrap>File</th>
- 
 
 95 
		<th width="40%" nowrap>Path</th>
- 
 
 96 
		<th width="20%" nowrap>Package Name</th>
- 
 
 97 
		<th width="20%" nowrap>Version</th>
- 
 
 98 
		<th width="1%" nowrap>CheckSum&nbsp;(CKSUM)</th>
- 
 
 99 
	  </tr>
- 
 
 100 
	  <tr>
- 
 
 101 
		<th nowrap></th>
- 
 
 102 
		<th nowrap></th>
- 
 
 103 
		<th nowrap><input name="fpkgname" type="text" class="form_item" size="10" value="<%=parFPkgName%>"></th>
- 
 
 104 
		<th nowrap><input name="fpkgversion" type="text" class="form_item" size="10" value="<%=parFPkgVersion%>"></th>
- 
 
 105 
		<th nowrap></th>
- 
 
 106 
	  </tr>
- 
 
 107 
	 </thead>
- 
 
 108 
	  <%
- 
 
 109 
	  If rsRep.RecordCount = 0 Then
- 
 
 110 
		With Response
- 
 
 111 
			.write "<tr>"
- 
 
 112 
			.write "<td colspan='5'>Your search <b>"& parKeyword &"</b> did not match any file names.</td>"
- 
 
 113 
			.write "</tr>"
- 
 
 114 
		End With
- 
 
 115 
	  End If
- 
 
 116
- 
 
 117 
	  Do While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
- 
 
 118 
		sLink = dpkg_archiveURL & rsRep("pkg_name") &"/"& rsRep("pkg_version") &"/"& Replace( rsRep("file_path") & rsRep("file_name"), "\", "/" )
- 
 
 119 
	  %>
- 
 
 120 
		  <tr>
- 
 
 121 
			<td nowrap><a href="<%=sLink%>" class="body_link"><img src='images/rex_images/ext_blank.gif' border='0' hspace='2' align='absmiddle'><%=Highlight_Substring( rsRep("file_name"), parKeyword )%></a></td>
- 
 
 122 
			<td nowrap><%=rsRep("file_path")%></td>
- 
 
 123 
			<td nowrap><%=rsRep("pkg_name")%></td>
- 
 
 124 
			<td nowrap><a href="dependencies.asp?pv_id=<%=rsRep("pv_id")%>" class="body_link"><%=rsRep("pkg_version")%></a></td>
- 
 
 125 
			<td nowrap><%=rsRep("crc_cksum")%></td>
- 
 
 126 
		  </tr>
- 
 
 127 
	  <%
- 
 
 128 
		  rsRep.MoveNext
- 
 
 129 
	  Loop
- 
 
 130
- 
 
 131 
	  rsRep.Close()
- 
 
 132 
	  %>
- 
 
 133 
	  <tr>
- 
 
 134 
		<td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 135 
	  </tr>
- 
 
 136
- 
 
 137 
	  </form>
- 
 
 138 
	</table>
- 
 
 139 
<%
- 
 
 140 
End Sub
55 
%>
 141 
%>
56 
<html>
 142 
<html>
57 
<head>
 143 
	<head>
58 
<title>Release Manager</title>
 144 
	<title>Release Manager</title>
59 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
 145 
	<link rel="shortcut icon" href="<%=FavIcon%>"/>
60 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 146 
	<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
61 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 147 
	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
62 
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
 148 
	<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
63 
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
 149 
	<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
64 
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
 150 
	<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
65 
<!--#include file="_jquery_includes.asp"-->
 151 
	<!--#include file="_jquery_includes.asp"-->
66 
<!-- DROPDOWN MENUS -->
 152 
	<!-- DROPDOWN MENUS -->
67 
<!--#include file="_menu_def.asp"-->
 153 
	<!--#include file="_menu_def.asp"-->
68 
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
 154 
	<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
69 
</head>
 155 
	</head>
70 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 156 
	<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
71 
<!-- HEADER -->
 157 
	<!-- HEADER -->
72 
<!--#include file="_header.asp"-->
 158 
	<!--#include file="_header.asp"-->
73 
<!-- BODY ---->
 159 
	<!-- BODY ---->
74 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 - 
 
75 
  <tr>
- 
 
76 
    <td class='bg_panel'>
 - 
 
77 
      <!--#include file="_front_explorer.asp"-->
 - 
 
78 
    </td>
 - 
 
79 
    <td rowspan="2" valign="top">
- 
 
80 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
 - 
 
81 
        <tr>
- 
 
82 
          <td >
 - 
 
83
- 
 
84 
		  <table width="100%" border="0" cellspacing="0" cellpadding="0">
 160 
		<table width="100%" border="0" cellspacing="0" cellpadding="0">
85 
			<tr>
161 
			<tr>
- 
 
 162 
				<td width="20%" class='bg_panel'>
- 
 
 163 
				<!--#include file="_front_explorer.asp"-->
- 
 
 164 
				</td>
- 
 
 165 
				<td rowspan="2" valign="top">
- 
 
 166 
					<table width="100%" border="0" cellspacing="0" cellpadding="0">
- 
 
 167 
						<tr>
- 
 
 168 
							<td >
- 
 
 169 
								<table width="100%" border="0" cellspacing="0" cellpadding="0">
- 
 
 170 
									<tr>
86 
			  <td width="1%"></td>
 171 
										<td width="1%"></td>
87 
			  <td width="100%" align="right"><img src="images/h_trsp_dot.gif" width="1" height="20"></td>
 172 
										<td width="100%" align="right"><img src="images/h_trsp_dot.gif" width="1" height="20"></td>
88 
			  <td width="1%"></td>
 173 
										<td width="1%"></td>
- 
 
 174 
									</tr>
- 
 
 175 
									<tr>
- 
 
 176 
										<td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="500"></td>
- 
 
 177 
										<td bgcolor="#FFFFFF" valign="top">
- 
 
 178 
											<%Call ShowMainPanel%>
- 
 
 179 
											<br>
- 
 
 180 
											<!------------------------------------------------------------>
- 
 
 181 
										</td>
- 
 
 182 
										<td background="images/lbox_bgside_white.gif">&nbsp;</td>
- 
 
 183 
									</tr>
- 
 
 184 
								</table>
- 
 
 185 
							</td>
- 
 
 186 
						</tr>
- 
 
 187 
				  </table>
- 
 
 188 
				</td>
- 
 
 189 
				<td width="11%">&nbsp;</td>
89 
			</tr>
 190 
			</tr>
90 
			<tr>
191 
			<tr>
91 
			  <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="500"></td>
 - 
 
92 
			  <td bgcolor="#FFFFFF" valign="top">
192 
				<td class='bg_panel_btm' height="350">
93 
				<!-- PACKAGE SEARCH ------------------------------------------------>
 - 
 
94 
				<%
 - 
 
95 
				' Format keyword for search
 - 
 
96 
				If InStr( parKeyword, "*" ) > 0 Then
 - 
 
97 
					' Use wild cards
 - 
 
98 
					FileName = Replace( parKeyword, "*", "%")
 - 
 
99 
				Else
 - 
 
100 
					' Wildcard is not used, hence append card to the end for better results
 - 
 
101 
					FileName = parKeyword & "%"
 - 
 
102 
				End If
 - 
 
103
- 
 
104
- 
 
105 
				OraDatabase.Parameters.Add "FILE_NAME", 	FileName, ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
106 
				OraDatabase.Parameters.Add "PKG_NAME", 		Replace( parFPkgName, "*", "%" ), ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
107 
				OraDatabase.Parameters.Add "PKG_VERSION", 	Replace( parFPkgVersion, "*", "%" ), ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
108 
				OraDatabase.Parameters.Add "PAGE_SIZE", 	MaxRows, ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
109
- 
 
110 
			  	Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("FindFiles.sql"), 0 )
 - 
 
111
- 
 
112 
				OraDatabase.Parameters.Remove "FILE_NAME"
 - 
 
113 
				OraDatabase.Parameters.Remove "PKG_NAME"
 - 
 
114 
				OraDatabase.Parameters.Remove "PKG_VERSION"
 - 
 
115 
				OraDatabase.Parameters.Remove "PAGE_SIZE"
 - 
 
116
- 
 
117 
				%>
 - 
 
118
- 
 
119 
				<table width="100%"  border="0" cellspacing="0" cellpadding="5">
 - 
 
120 
				  <tr>
 - 
 
121 
                    <td class="body_sect">Files</td>
 - 
 
122 
                  </tr>
 - 
 
123 
                  <tr>
 - 
 
124 
                    <td nowrap bgcolor="#E4E9EC" class="body_txt">
 - 
 
125 
						Results for <b><%=parKeyword%></b>. Showing max. <%=MaxRows%> results.
 - 
 
126 
					</td>
 - 
 
127 
                  </tr>
 - 
 
128 
                </table>
 - 
 
129
- 
 
130
- 
 
131
- 
 
132 
				<table width="100%" border="0" cellspacing="1" cellpadding="5">
 - 
 
133 
				<form name="file_search" method="get" action="<%=ScriptName%>">
 - 
 
134 
				  <input type="hidden" name="filename" value="<%=parKeyword%>">
 - 
 
135 
				  <input type="hidden" name="listby" value="<%=parListBy%>">
 - 
 
136 
				 <tr>
 - 
 
137 
                    <td width="20%" nowrap class="body_col" bgcolor="#E4E9EC">File</td>
 - 
 
138 
					<td width="40%" nowrap class="body_col" bgcolor="#E4E9EC">Path</td>
 - 
 
139 
					<td width="20%" nowrap class="body_col" bgcolor="#E4E9EC">Package Name</td>
 - 
 
140 
					<td width="20%" nowrap class="body_col" bgcolor="#E4E9EC">Version</td>
 - 
 
141 
					<td width="1%" nowrap class="body_col" bgcolor="#E4E9EC">CheckSum&nbsp;(CKSUM)</td>
 - 
 
142 
                  </tr>
 - 
 
143 
				  <tr>
 - 
 
144 
                    <td nowrap class="body_col" bgcolor="#E4E9EC"></td>
 - 
 
145 
					<td nowrap class="body_col" bgcolor="#E4E9EC"></td>
 - 
 
146 
					<td nowrap bgcolor="#E4E9EC"><input name="fpkgname" type="text" class="form_item" size="10" value="<%=parFPkgName%>"></td>
 - 
 
147 
					<td nowrap bgcolor="#E4E9EC"><input name="fpkgversion" type="text" class="form_item" size="10" value="<%=parFPkgVersion%>"></td>
 - 
 
148 
					<td nowrap bgcolor="#E4E9EC"><input name="btn" type="image" src="images/spacer.gif" width="1" height="1" border="0"></td>
 - 
 
149 
                  </tr>
 - 
 
150 
				  <%
 - 
 
151 
				  If rsRep.RecordCount = 0 Then
 - 
 
152 
					With Response
 - 
 
153 
						.write "<tr>"
 - 
 
154 
						.write "<td colspan='5' class='body_row'>Your search <b>"& parKeyword &"</b> did not match any file names.</td>"
 - 
 
155 
						.write "</tr>"
 - 
 
156 
					End With
 - 
 
157 
				  End If
 - 
 
158
- 
 
159 
				  Do While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
- 
 
160 
				  	sLink = dpkg_archiveURL & rsRep("pkg_name") &"/"& rsRep("pkg_version") &"/"& Replace( rsRep("file_path") & rsRep("file_name"), "\", "/" )
 - 
 
161 
				  %>
 - 
 
162 
					  <tr>
- 
 
163 
						<td nowrap class="body_row"  bgcolor="#F5F5F5"><a href="<%=sLink%>" class="body_link"><img src='images/rex_images/ext_blank.gif' border='0' hspace='2' align='absmiddle'><%=Highlight_Substring( rsRep("file_name"), parKeyword )%></a></td>
 - 
 
164 
						<td nowrap class="body_row"  bgcolor="#F5F5F5"><%=rsRep("file_path")%></td>
 - 
 
165 
						<td nowrap class="body_row"  bgcolor="#F5F5F5"><%=rsRep("pkg_name")%></td>
 - 
 
166 
						<td nowrap class="body_row"  bgcolor="#F5F5F5"><a href="dependencies.asp?pv_id=<%=rsRep("pv_id")%>" class="body_link"><%=rsRep("pkg_version")%></a></td>
 - 
 
167 
						<td nowrap class="body_txt_gray"  bgcolor="#F5F5F5"><%=rsRep("crc_cksum")%></td>
 - 
 
168 
					  </tr>
 - 
 
169 
				  <%
- 
 
170 
					  rsRep.MoveNext
 - 
 
171 
				  Loop
 - 
 
172
- 
 
173 
				  rsRep.Close()
 - 
 
174 
				  %>
 - 
 
175 
				  <tr>
- 
 
176 
					<td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 193 
					<img src="images/img_gear.gif" width="107" height="107" vspace="20" hspace="30"></td>
177 
				  </tr>
 - 
 
178
- 
 
179 
				  </form>
 - 
 
180 
				</table>
 - 
 
181 
				<br>
 - 
 
182 
				<!------------------------------------------------------------>
- 
 
183
- 
 
184
- 
 
185 
				</td>
 194 
				<td></td>
186 
			  <td background="images/lbox_bgside_white.gif">&nbsp;</td>
 - 
 
187 
			</tr>
 195 
			</tr>
188 
		  </table>
 196 
		</table>
189
- 
 
190 
		  </td>
 - 
 
191 
        </tr>
 - 
 
192 
      </table>
 - 
 
193 
    </td>
 - 
 
194 
    <td width="11%">&nbsp;</td>
 - 
 
195 
  </tr>
 - 
 
196 
  <tr>
- 
 
197 
    <td class='bg_panel_btm'><img src="images/img_gear.gif" width="107" height="107" vspace="20" hspace="30"></td>
 - 
 
198 
    <td>&nbsp;</td>
 - 
 
199 
  </tr>
 - 
 
200 
</table>
 - 
 
201 
<!-- FOOTER -->
 197 
		<!-- FOOTER -->
202 
<!--#include file="_footer.asp"-->
 198 
		<!--#include file="_footer.asp"-->
203 
</body>
 199 
	</body>
204 
</html>
 200 
</html>