Query Error

From e84c52869baf3ba40890f37887e1e0893079bdf3 Mon Sep 17 00:00:00 2001 From: Ralf Corsepius Date: Fri, 14 Feb 2003 03:29:01 +0000 Subject: Merger from rtems-4-6-branch. --- doc/tools/src2html1.4a/src2html.cgi | 100 ------------------------------------ 1 file changed, 100 deletions(-) delete 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 deleted file mode 100644 index cfc93d4134..0000000000 --- a/doc/tools/src2html1.4a/src2html.cgi +++ /dev/null @@ -1,100 +0,0 @@ -#!/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