os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

evil hack to support full text search in ports/<category>/<port>/pkg-descr

Browse source
This commit is contained in:
Wolfram Schneider 2000-11-05 19:04:36 +00:00
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
Show stats Download patch file Download diff file Expand all files Collapse all files

16
en/cgi/ports.cgi
View file

@ -24,7 +24,7 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE. # 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 # ports.cgi - search engine for FreeBSD ports
# o search for a port by name or description # o search for a port by name or description
@ -464,10 +464,11 @@ Search for:
'all', 'All', 'all', 'All',
'maintainer', 'Maintainer', 'maintainer', 'Maintainer',
'text', 'Description', 'text', 'Description',
'pkgdescr', 'Long Description',
'requires', 'Requires', 'requires', 'Requires',
); );
foreach ('all', 'name', 'text', 'maintainer', 'requires') { foreach ('all', 'name', 'text', 'pkgdescr', 'maintainer', 'requires') {
print "<OPTION" . (($_ eq $stype) ? ' SELECTED ' : ' ') . print "<OPTION" . (($_ eq $stype) ? ' SELECTED ' : ' ') .
qq{VALUE="$_">} . ($d{$_} ? $d{$_} : $_) . qq{</OPTION>\n}; qq{VALUE="$_">} . ($d{$_} ? $d{$_} : $_) . qq{</OPTION>\n};
} }
@ -536,7 +537,7 @@ sub footer {
<img ALIGN="RIGHT" src="/gifs/powerlogo.gif"> <img ALIGN="RIGHT" src="/gifs/powerlogo.gif">
&copy; 1996-2000 by Wolfram Schneider. All rights reserved.<br> &copy; 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 print qq{Please direct questions about this service to
<I><A HREF="$mailtoURL">$mailto</A></I><br>\n}; <I><A HREF="$mailtoURL">$mailto</A></I><br>\n};
print qq{General questions about FreeBSD ports should be sent to } . print qq{General questions about FreeBSD ports should be sent to } .
@ -642,6 +643,15 @@ if ($path_info eq "/source") {
&exit; &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; &header;
if ($path_info eq "/faq.html") { if ($path_info eq "/faq.html") {
&faq; &faq;