Query Error

From 52461c587563822939b238379bb1d72975e80b62 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Tue, 14 Apr 1998 16:03:45 +0000 Subject: New files --- doc/tools/src2html1.4a/src2html.cgi | 100 ++++++++++++++++++++++++++++++++++++ 1 file changed, 100 insertions(+) create mode 100644 doc/tools/src2html1.4a/src2html.cgi (limited to 'doc/tools/src2html1.4a/src2html.cgi') diff --git a/doc/tools/src2html1.4a/src2html.cgi b/doc/tools/src2html1.4a/src2html.cgi new file mode 100644 index 0000000000..cfc93d4134 --- /dev/null +++ b/doc/tools/src2html1.4a/src2html.cgi @@ -0,0 +1,100 @@ +#!/usr/local/bin/perl +# +# src2html.cgi -- A search script to file symbols in a src2html tree. +# You need to install this in your httpd script directory AND set the +# httpd web root below. +# +# We need the cgi-lib.pl package to be available to Perl +require 'cgi-lib.pl'; +# +## We MUST know the root of the httpd server, so we can find the ctags +## +# +$Http_root= "/usr/pub/pub/www"; + + # Parse input -> %in +&ReadParse; # and print first 2 lines + +@keys= keys(%in); # We only expect one name/val pair +if ($#keys != 0) { # Otherwise, return an error document + print <<"query_error"; +Content-type: text/html + +

Query Error

+ The document you used to query this source tree has an error in it. + You should email the maintainer of the source tree with a copy of the + document with the query form in it. + +query_error + exit(1); +} + # Given the name, determine which tree +$Htmltree= "$Http_root/$keys[0]"; +$Htmltree=~ s/\/[^\/]*$//; # Location of the Html tree root +$Srctree= "/$keys[0]"; # URL of the actual source +$Ctags= "$Htmltree/ctags"; # Location of the ctags files + +@symbol= split(/\s+/, $in{$keys[0]}); # Get one symbol to search for + +if ($#symbol != 0) { # Hmm, <> 1 symbol, return an error + print <<"symbol_error"; +Content-type: text/html + +

$Htmltree Search Error

+ Hmm, you either sent in no symbols to me to search, or a number of + symbols to find, separated by whitespace.

+ The search function can only handle regexp expressions with no + whitespace. Try resubmitting your query. + +symbol_error + exit(1); +} + # Let's go to work, egrep the ctags + +# Naftali Schwartz (nschwart@SLINKY.CS.NYU.EDU) reports that using the ^ +# on the following line stops the script from working under SunOS 4.1.3. +# Sounds like ctags-new doesn't start the symbol in the 1st column. +open(IN, "cat $Ctags/* | egrep ^$symbol[0] |") || die "$0: egrep failed\n"; +$cnt=0; +while() { + ($sym, $line, $file, $com)= split(/\s+/); + $Sym[$cnt]=$sym; $Line[$cnt]= $line; $File[$cnt]= $file; $cnt++; +} +close(IN); + # How many did we get? Zero, no symbol +if ($cnt == 0) { + print <<"symbol_missing"; +Content-type: text/html + +

$Htmltree Search Error

+ The symbol $symbol[0] does not appear in the source tree. + +symbol_missing + exit(1); +} + +if ($cnt == 1) { # Exactly one, return ptr to that doc + print "Location: $Srctree/$File[0]"; + +# I used to use the commented out line under NCSA httpd because the other +# line didn't work. You may need to try things out on your server. + print ".html\#$Sym[0]\n\n"; +# print ".html\n\n"; + exit(0); +} + # Else return a list of choices +print <<"many_found"; +Content-type: text/html + +

$Htmltree Search

$Sym[$i] $File[$i]:$Line[$i]\n"; +} +print "

\n"; +exit(0); -- cgit v1.2.3