evil hack to support full text search in ports/<category>/<port>/pkg-descr
This commit is contained in:
parent
cedb2f22f4
commit
c71248d604
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=8291
1 changed files with 13 additions and 3 deletions
|
@ -24,7 +24,7 @@
|
|||
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||
# SUCH DAMAGE.
|
||||
#
|
||||
# $FreeBSD: www/en/cgi/ports.cgi,v 1.45 2000/04/23 09:54:35 wosch Exp $
|
||||
# $FreeBSD: www/en/cgi/ports.cgi,v 1.46 2000/09/03 16:30:26 wosch Exp $
|
||||
#
|
||||
# ports.cgi - search engine for FreeBSD ports
|
||||
# o search for a port by name or description
|
||||
|
@ -464,10 +464,11 @@ Search for:
|
|||
'all', 'All',
|
||||
'maintainer', 'Maintainer',
|
||||
'text', 'Description',
|
||||
'pkgdescr', 'Long Description',
|
||||
'requires', 'Requires',
|
||||
);
|
||||
|
||||
foreach ('all', 'name', 'text', 'maintainer', 'requires') {
|
||||
foreach ('all', 'name', 'text', 'pkgdescr', 'maintainer', 'requires') {
|
||||
print "<OPTION" . (($_ eq $stype) ? ' SELECTED ' : ' ') .
|
||||
qq{VALUE="$_">} . ($d{$_} ? $d{$_} : $_) . qq{</OPTION>\n};
|
||||
}
|
||||
|
@ -536,7 +537,7 @@ sub footer {
|
|||
<img ALIGN="RIGHT" src="/gifs/powerlogo.gif">
|
||||
© 1996-2000 by Wolfram Schneider. All rights reserved.<br>
|
||||
};
|
||||
#print q{$FreeBSD: www/en/cgi/ports.cgi,v 1.45 2000/04/23 09:54:35 wosch Exp $} . "<br>\n";
|
||||
#print q{$FreeBSD: www/en/cgi/ports.cgi,v 1.46 2000/09/03 16:30:26 wosch Exp $} . "<br>\n";
|
||||
print qq{Please direct questions about this service to
|
||||
<I><A HREF="$mailtoURL">$mailto</A></I><br>\n};
|
||||
print qq{General questions about FreeBSD ports should be sent to } .
|
||||
|
@ -642,6 +643,15 @@ if ($path_info eq "/source") {
|
|||
&exit;
|
||||
}
|
||||
|
||||
# Full text search in ports/<category>/port>/pkg-descr
|
||||
if ($stype eq 'pkgdescr') {
|
||||
local($url) =
|
||||
'http://www.FreeBSD.org/cgi/search.cgi?source=pkgdescr&max=25';
|
||||
print "Location: $url&words=$query\n";
|
||||
print "Content-type: text/plain\n\n";
|
||||
&exit;
|
||||
}
|
||||
|
||||
&header;
|
||||
if ($path_info eq "/faq.html") {
|
||||
&faq;
|
||||
|
|
Loading…
Reference in a new issue