Subversion Repositories DevTools

Rev

Rev 6876 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5357 dpurdie 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|				        view by file			     |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
' Good idea to set when using redirect
12 
Response.Expires = 0	' always load the page, dont store
13 
%>
14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
17 
<!--#include file="common/qstr.asp"-->
18 
<!--#include file="common/common_subs.asp"-->
19 
<%
20 
'------------ ACCESS CONTROL ------------------
21 
%>
6181 dpurdie 22 
<!--#include file="_access_control_login_optional.asp"-->
5357 dpurdie 23 
<!--#include file="_access_control_general.asp"-->
24 
<%
25 
'------------ Variable Definition -------------
26 
Dim rsRep
27 
Dim parKeyword
28 
Dim parFPkgName, parFPkgVersion
29 
Dim FileName
30 
Dim sLink
31 
'------------ Constants Declaration -----------
32 
Const MaxRows = 100
33 
'------------ Variable Init -------------------
34 
parKeyword = Request("filename")
7290 dpurdie 35 
parFPkgName = RequestDefault("fpkgname", "*")
36 
parFPkgVersion = RequestDefault("fpkgversion", "*")
5357 dpurdie 37 
 
38 
'----------------------------------------------
39 
%>
40 
<%
41 
'-----------------------------------------------------------------------------------------------------------------------
42 
'-----------------------------------------------------------------------------------------------------------------------
43 
%>
44 
<%
45 
'==================== MAIN LINE ===============================
5957 dpurdie 46 
If (parKeyword = "") Then
47 
    Call Destroy_All_Objects
48 
    Response.Redirect ("index.asp")
49 
End If
5357 dpurdie 50 
'==============================================================
7290 dpurdie 51 
Sub ShowMainPanel
5357 dpurdie 52 
%>
7290 dpurdie 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
141 
%>
5357 dpurdie 142 
<html>
7290 dpurdie 143 
	<head>
144 
	<title>Release Manager</title>
145 
	<link rel="shortcut icon" href="<%=FavIcon%>"/>
146 
	<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
147 
	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
148 
	<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
149 
	<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
150 
	<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
151 
	<!--#include file="_jquery_includes.asp"-->
152 
	<!-- DROPDOWN MENUS -->
153 
	<!--#include file="_menu_def.asp"-->
154 
	<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
155 
	</head>
156 
	<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
157 
	<!-- HEADER -->
158 
	<!--#include file="_header.asp"-->
159 
	<!-- BODY ---->
160 
		<table width="100%" border="0" cellspacing="0" cellpadding="0">
5357 dpurdie 161 
			<tr>
7290 dpurdie 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>
171 
										<td width="1%"></td>
172 
										<td width="100%" align="right"><img src="images/h_trsp_dot.gif" width="1" height="20"></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>
5357 dpurdie 190 
			</tr>
191 
			<tr>
7290 dpurdie 192 
				<td class='bg_panel_btm' height="350">
193 
					<img src="images/img_gear.gif" width="107" height="107" vspace="20" hspace="30"></td>
194 
				<td></td>
5357 dpurdie 195 
			</tr>
7290 dpurdie 196 
		</table>
197 
		<!-- FOOTER -->
198 
		<!--#include file="_footer.asp"-->
199 
	</body>
5357 dpurdie 200 
</html>