#!/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 "

    print ".html#$Sym[$i]\">$Sym[$i] $File[$i]:$Line[$i]\n";

}

print "\n";

exit(0);