#!/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
many_found
for ($i = 0; $i < $cnt; $i++) {
print "- $Sym[$i] $File[$i]:$Line[$i]\n";
}
print "
\n";
exit(0);