#!/usr/sbin/perl # ---------------------- # VARIBALES $docroot = "/performer"; $dbsdir = "/var/www/htdocs/performer/dbs"; $cgiroot = "/cgi-bin"; # ---------------------- $SEARCHTYPE = $ARGV[0]; if ($SEARCHTYPE =~ /_HRCHY/) { ($TREE = $SEARCHTYPE) =~ s/LIB(.*)_HRCHY/$1/; $TREE =~ tr/A-Z/a-z/; print qq! Query Tool !; &javafunc(); print qq! !; print qq!
API Search Tool:
Lib${TREE} Hierarchy

!; &srchbuttons(); print qq!
!; #print "
\n"; print "\n
\n\n\"${TREE}\"\n
"; } else { $logo = 1; &searchsetup(); } # end if SEARCHTYPE # ---------------------------------------- sub searchsetup { print qq! Query Tool !; &javafunc(); print qq! !; if ($logo eq 1) { print qq! \n\n\n\n !; } print qq!
\n !; } else { print qq!
\n !; } &srchbuttons(); if ($logo eq 1) { print "\\n"; #print "\\n"; &libstr(); print "\\n"; } else { print qq!
!; print "\n"; } # End searchsetup # -------------------------------------- # Setups the row of buttons at the bottom right corner sub libstr { print qq! !; } # end libstr # -------------------------------------- # Setups the row of buttons for searching sub srchbuttons { print < Search for:

For:  C C++ END # Makes a straight line if in Hierarchy if ($logo eq 1) { print "
\n"; } print < END } # end srchbuttons # ---------------------------------------- sub javafunc { print qq! !; }