Subversion Repositories DevTools

Rev

Rev 2365 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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