home *** CD-ROM | disk | FTP | other *** search
/ ftp.sunet.sepub/pictures / 2014.11.ftp.sunet.se-pictures.tar / ftp.sunet.se / pub / pictures / ACiD-artpacks / www / mirrors / acheron / cgi-bin / vision_Search.cgi < prev    next >
Text File  |  1999-01-24  |  24KB  |  619 lines
  1. #!/usr/bin/perl
  2.  
  3. #########################################################################
  4. #site Search
  5. #Version 2.00b
  6. #copyright  1997-1998 Krishnan Jayakrishnan.
  7. #All Rights Reserved
  8. #------------------------------------------------------------------------
  9. #copyright Notice:-
  10. #site Search is a shareware program and may be used , modified or
  11. #distributed  by anyone free of charge. site Search is provided on an
  12. #"as-is" basis and Krishnan Jayakrishnan makes no warranties either
  13. #expressed or implied with respect to the software's merchantablity or
  14. #fitness for any particular purpose. By using site Search, you agree to
  15. #indemnify Krishnan Jayakrishnan from any and all incidental or
  16. #consequential damages that may arise from its use. Please obtain a
  17. #written permission before selling this program.In all cases this
  18. #copyright Notice  must remain intact.
  19. #------------------------------------------------------------------------
  20. #Contact information
  21. #krishnan@bayou.uh.edu
  22. #
  23. #Krishnan . J
  24. #Allied Geophysical Labs
  25. #University of Houston
  26. #Houston TX77204-4231
  27. #------------------------------------------------------------------------
  28. #Version History
  29. #Intial Release on September 17th 1997                  Version 1.00
  30. #2nd Release on September 23rd 1997                     Version 1.01
  31. #3rd Release on September 25th 1997                     Version 1.02
  32. #4th Release on January 21nd 1998                         Version 2.00b
  33. #
  34. #The latest version is available at http://www.agl.uh.edu/~saljxk/site_Search
  35. #------------------------------------------------------------------------
  36. #Thanks To,
  37. #
  38. #B. G. Mahesh (www.mahesh.com),
  39. #Darron Hutchison (tm)(www.webmakers.com.au),
  40. #Cinnamon Chu, Tina Ma, 
  41. #Bob Lenaerts, Patrice Serrano, 
  42. #V.A.
  43. #------------------------------------------------------------------------
  44.  
  45.  
  46. open(READ,"vision_Search.conf ") or &Error_Module("1");
  47. require("./vision_Search.conf");
  48. require ("cgi-lib.pl") or &Error_Module("2");
  49.  
  50. $version = "2.00b";
  51. @months = (January,February,March,April,May,June,July,August,September,October,November,December);
  52.  
  53. &Check_Configurations    if($check_script eq "1");
  54. &Clean_Scratch          if($clean_scratch eq "1");
  55. &Get_Search_Terms;
  56. &Get_Files_to_Search    if($skip_search ne "1");
  57. &Search_Files;
  58. &Display_Results1 if ((scalar(@file_names_to_display) == 0) ||
  59.                 (scalar(@file_names_to_display) <= int($get_hits)) ||
  60.                 ($get_hits =~ /all/i) ||
  61.                 ($get_hits eq "") ||
  62.         ($multi_display eq "0"));
  63.         
  64. &Display_Results2;
  65.  
  66. #        -:PRIMARY MODULES:-            #
  67. #########################################################
  68. #    Module Checks for errors in configuration file    #
  69. #########################################################
  70. sub Check_Configurations{
  71. print &Header;
  72.  
  73. &Error_Module("3")    if(!(-r "site_Search.desc") && ($desc1 eq "1"));
  74. &Error_Module("4")    if(!(-d "$base_path") || !(-r "$base_path"));
  75. &Error_Module("5")    if(scalar(@filetypes) == 0);   
  76.  
  77. if ($multi_display eq "1"){
  78. &Error_Module("6")    
  79.     if(($scratch eq "") || !(-d "$base_path/$scratch") || !(-w "$base_path/$scratch") || !(-r "$base_path/$scratch"));
  80. }
  81.  
  82. if ($record_usage eq "1"){
  83. &Error_Module("7")    if ((-e "site_Search.usage") && !(-w "site_Search.usage"));
  84. }
  85.  
  86. &Error_Module("8")    if ($path_to_searchform eq "");
  87. &Error_Module("9")    if ((($output_form eq "1") && ($form_to_use !~ /\binternal\b/)) && !(-r "$form_to_use"));
  88.  
  89. ($name_of_URI = "http:\/\/" . $ENV{'HTTP_HOST'}) if (length($name_of_URI) == 0);
  90.  
  91. print
  92.  
  93. "<P>No errors were Found. However, the script only runs a simple check through the configuration file.
  94. If you notice the script not working as intended please go through the files,
  95. <BR><BR><STRONG><LI>readme.html<BR><LI>FAQ.html<BR><BR></STRONG> before 
  96. sending me a mail (krishnan\@bayou.uh.edu).</P>
  97. <P>To run the script set the variable \"\$check_script\" to \"0\" in the configuration file.</P>"
  98. if ($errors ne "1");
  99. print &Bottom;
  100. die;
  101. }
  102.  
  103. #################################################
  104. #       Module Cleans the Scratch directory     #
  105. #################################################
  106. sub Clean_Scratch{
  107. my @list;
  108. @list = <$base_path/$scratch/[1-9]*.html>;
  109. $^T = time;
  110.  
  111. foreach (@list){
  112.         unlink($_) if (int(100*($age = -M)) > int(100*($empty_scratch)));
  113. }
  114. }
  115.  
  116. #################################################
  117. #         Module Parses the Form Output         #
  118. #################################################
  119. sub Get_Search_Terms{
  120.         
  121. &ReadParse(*input);
  122. $search_terms = ($input{'Searchterms'});
  123. @get_search_terms = split(/ /,$search_terms);
  124. $get_case = ($input{'Case'});
  125. $get_construct = ($input{'Construct'});
  126.  
  127. if (defined $input{'OUTPUT_FORM'}){
  128.     $skip_search = $skip_hits = "1";
  129.     $get_hits = "ALL";
  130.     open(READ,$input{'List_File'});
  131.     @files_to_be_searched = <READ>;
  132. }
  133.  
  134.  
  135. $get_hits = ($input{'Hits'}) if ($skip_hits ne "1");
  136. &no_search_terms if (scalar(@get_search_terms) == 0);
  137. &record_usage if($record_usage eq "1");
  138. &get_desc if ($desc1 eq "1");
  139. }
  140.  
  141. #################################################
  142. #    Module Gathers the Files to be Searched    #
  143. #################################################
  144. sub Get_Files_to_Search{
  145. my $file;
  146.  
  147. @files_from_scandir = &scandir($base_path);
  148.  
  149.  
  150. foreach $file (@files_from_scandir){
  151.                 push(@files_from_scandir,&scandir($file)) if((-d $file) && (&dirs_avoid($file) ne "0"));
  152. }
  153.  
  154. foreach $file (@files_from_scandir){
  155.         push(@files_to_be_searched,$file) if((&scantype($file) == 1) && (&files_avoid($file) ne "0"));
  156. }
  157.  
  158. foreach $file (@files_to_include){
  159.         push(@files_to_be_searched,$file);
  160. }
  161. }
  162.  
  163. #################################################
  164. #    Module Searches Files for Search Term(s)   #
  165. #################################################
  166. sub Search_Files{
  167. my $count;
  168.  
  169. foreach $file_name (@files_to_be_searched){
  170.     my $file_match_y = 0;
  171.     my $str_length = 0;
  172.     $mod_time = (stat($file_name))[9];
  173.         $mod_time{$file_name} = &Get_Date;
  174.         open(READ,"$file_name");
  175.         my @file_chars = <READ>;
  176.         $file_to_search = join("",@file_chars);
  177.         $title_array{$file_name} = "$1"
  178.         if ($file_to_search =~ /<TITLE>([^>]+)<\/TITLE>/i);
  179.         $desc_array{$file_name} = "$1"
  180.         if (($file_to_search =~ /<[^>]*META[^>]+NAME\s*=[ "]*description[ "]+CONTENT\s*=\s*"(([^>"])*)"[^>]*>/i) && ($desc2 == "1"));
  181.     $file_to_search =~ s/<([^>])*>//gs;
  182.     @list_of_lines = split(/[.!?]/g,$file_to_search) if(($output_line eq "1") && ($smart eq "0"));
  183.         @list_of_lines = split(/[a-z]['")]*[.!?]+['")]*\s/g,$file_to_search) if(($output_line eq "1") && ($smart eq "1"));
  184.      $_ = $file_to_search;
  185.  
  186.     if ($get_construct eq "As a phrase"){
  187.             $get_search_terms = join(" ",@get_search_terms);
  188.         push(@file_names_to_display,$file_name) if (($count = /\b$get_search_terms\b/o)  && ($get_case eq "Sensitive"));
  189.         push(@file_names_to_display,$file_name) if (($count = /\b$get_search_terms\b/io)  && ($get_case eq "Insensitive"));
  190.             $line_array{$file_name} = &get_line(@list_of_lines) if  (($output_line eq "1") && ($count > 0));
  191.         $hits_array{$file_name} = &get_hits() if (($output_hits eq "1") && ($count > 0));
  192.     }
  193.     
  194.     if ($get_construct eq "Any search term"){
  195.          foreach $get_search_term (@get_search_terms)
  196.                         {
  197.         push(@file_names_to_display,$file_name) if (($count = /\b$get_search_term/) && ($get_case eq "Sensitive"));
  198.         push(@file_names_to_display,$file_name) if (($count = /\b$get_search_term/i) && ($get_case eq "Insensitive"));
  199.         last if($count > 0);    
  200.                         }
  201.                 $line_array{$file_name} = &get_line(@list_of_lines) if(($output_line eq "1") && ($count > 0));
  202.                 $hits_array{$file_name} = &get_hits() if (($output_hits eq "1") && ($count > 0));
  203.         }
  204.  
  205.     if ($get_construct eq "All search terms"){        
  206.                 $str_length = @get_search_terms;
  207.                 foreach $get_search_term (@get_search_terms){
  208.         $file_match_y++ if (($count = /\b$get_search_term/) && ($get_case eq "Sensitive"));
  209.         $file_match_y++ if (($count = /\b$get_search_term/i) && ($get_case eq "Insensitive"));
  210.         }
  211.             push(@file_names_to_display,$file_name) if ($file_match_y == $str_length);
  212.         $line_array{$file_name} = &get_line(@list_of_lines) if (($output_line eq "1") && ($count > 0));
  213.         $hits_array{$file_name} = &get_hits()  if (($output_hits eq "1") && ($count > 0));
  214.                 }
  215. } 
  216. }
  217.  
  218. #################################################
  219. #       Modules Display the Search Results      #
  220. #################################################
  221. sub Display_Results1{
  222. my $file_name;
  223.  
  224.         &No_Matches if (scalar(@file_names_to_display) == 0);
  225.         print &Header;
  226.         print &Top($title_for_search_page);
  227.         print "<CENTER>You searched for: <B><I>$search_terms</I></B>, returning ".@file_names_to_display." match(es)";
  228.         print "</CENTER><p>";
  229.                         
  230.         foreach $file_name (@file_names_to_display)
  231.         {
  232.                 my $file1 = substr($file_name,rindex($file_name,"/")+1);
  233.                 my $file2 = substr($file_name,length($base_path));
  234.                 my $mod_time = $mod_time{$file_name};
  235.  
  236.                 print "<A HREF=\"$name_of_URI$file2\"><B>$title_array{\"$file_name\"}</B></A> <font size=1><I>$mod_time</I></font><BR>";
  237.               #print " $desc_array{\"$file_name\"}<BR>" if (($desc1 eq "1") || ($desc2 eq "1"));
  238.               #print "$hits_array{\"$file_name\"}<BR>" if ($output_hits eq "1");
  239.                 print "$line_array{\"$file_name\"}" if ($output_line eq "1");
  240.                 print "<p>";
  241.            }
  242.         print "<BR>";
  243.         print "<CENTER><A HREF=\"$path_to_searchform\">[Search Again]</A></CENTER>";
  244.  
  245.     #print &output_form if ($output_form eq "1");
  246.     
  247.     print "<HR><A HREF=\"http://www.agl.uh.edu/~saljxk/site_Search\">
  248.     <FONT SIZE=-1>site Search Version $version copyright\©\; 1997, Krishnan Jayakrishnan</FONT></A>";
  249.     print &Bottom;
  250.     die;
  251. }
  252.  
  253. ### ... Module 2
  254. sub Display_Results2{
  255. my $counter = 0;
  256. my $counter2;
  257. my $files_displayed = 0;
  258. my $files_to_display = int($get_hits);
  259. my $output_fileno = 1;
  260. my $hits = int($get_hits);
  261.  
  262.     while($counter < scalar(@file_names_to_display)){
  263.         if($files_displayed == 0){
  264.             print &Header;
  265.             $output = "STDOUT";
  266.             $next_file = $$ . "_$output_fileno" . "_of_" . "$hits" . ".html";
  267.             }else{
  268.             $output = "WRITE";
  269.             open(WRITE,">$base_path/$scratch/$next_file");
  270.             $output_fileno++;
  271.             $next_file = $$ . "_$output_fileno" . "_of_" . "$hits" . ".html";
  272.             }
  273. print $output &Top($title_for_search_page);
  274. print $output "<B>You searched for: <I>$search_terms</I>, returning ";
  275. print $output "".scalar(@file_names_to_display)."  Match(es)</B><BR>";
  276. print $output "<P>Match(es) " . ($files_displayed+1) . " to " . ($files_displayed+$hits) . " </P>"
  277.         if (($counter + $hits) < scalar(@file_names_to_display));
  278. print $output "<P>Match(es) " . ($files_displayed+1) . " to " . scalar(@file_names_to_display) . " </P>"
  279.         if (($counter + $hits) > scalar(@file_names_to_display));
  280. print $output "</CENTER>";
  281. print $output "<FORM METHOD=\"GET\" ACTION=\"$name_of_URI/$scratch/$next_file\">" 
  282.         if (($counter + $hits) < scalar(@file_names_to_display));
  283.  
  284.          for($counter2 = $files_displayed;$counter2 < $files_to_display;$counter2++)
  285.                 {
  286.                         last if(length($file_names_to_display[$counter2]) == 0);
  287.                         $file1 = substr($file_names_to_display[$counter2],rindex($file_names_to_display[$counter2],"/")+1);
  288.                         $file2 = substr($file_names_to_display[$counter2],length($base_path));
  289.                         $mod_time = $mod_time{$file_names_to_display[$counter2]};
  290.         print $output "<A HREF=\"$name_of_URI$file2\"><B>$title_array{\"$file_names_to_display[$counter2]\"}</B></A> <font size=1><I>$mod_time</I></font><BR>";
  291.             #print $output "$desc_array{\"$file_names_to_display[$counter2]\"}<BR>" 
  292.             #        if (($desc1 eq "1") || ($desc2 eq "1"));
  293.             #print $output "$hits_array{\"$file_names_to_display[$counter2]\"}<BR>" if ($output_hits eq "1");
  294.                     print $output "$line_array{\"$file_names_to_display[$counter2]\"}" if ($output_line eq "1");
  295.         print $output "<p>";
  296.              
  297.                 }
  298.  
  299.         print $output "<P><CENTER><INPUT TYPE=\"SUBMIT\" VALUE=\"Display next $hits matches >>\"></CENTER></P>"
  300.         if (($counter + $hits) < scalar(@file_names_to_display));
  301.  
  302.         print $output "<BR><CENTER><A HREF=\"$path_to_searchform\">[Search Again]</A></CENTER>";
  303.         print $output "</FORM>";
  304.  
  305.         #print $output &output_form if ($output_form eq "1");
  306.  
  307.         print $output "<A HREF=\"http://www.agl.uh.edu/~saljxk/site_Search\">
  308.         <FONT SIZE=1>site Search Version $version copyright\©\; 1997, Krishnan Jayakrishnan</FONT></A>";
  309.         print $output &Bottom;
  310.  
  311.     $files_displayed += $hits;
  312.     $counter += $hits;
  313.     $files_to_display += $hits;
  314. }
  315. }
  316.  
  317. #########################################################
  318. #        -:SECONDARY MODULES:-            #
  319. #########################################################
  320. #___Module Prints Error Messages to Help Rectify___#
  321. sub Error_Module
  322. {
  323.         $errors = "1";
  324.         print &Header if ($_[0] eq "1");
  325.         print "<FONT SIZE=\"3\" FACE=\"HELVETICA\"><BR>";
  326.         print "<P> A Configuration file <STRONG> site_Search.conf </STRONG> could not be located in the current<BR>
  327.                 directory, either the file is not present or does not have read permissions. To get help rectifying<BR>
  328.                 the error, read the \"Errors\" section, (Error-1) of the \"readme.html\" file.<BR>" if ($_[0] eq "1");
  329.         print "<P> Could not load the cgi-lib.pl library. To get help rectifying the error, read<BR>
  330.                 read the \"Errors\" section, (Error-2) of the \"readme.html\" file.<BR>"     if ($_[0] eq "2");
  331.         print "<P> The description file <STRONG> site_Search.desc </STRONG> could not be opened for reading. There<BR>
  332.                 could be a permission problem. To get help rectifying the error, read the \"Errors\" section, (Error-3) of<BR>
  333.                 of the \"readme.html\" file.<BR>"                         if ($_[0] eq "3");
  334.         print "<P> There is a problem with the base-path specified to start the search. To get help rectifying the error,<BR>
  335.                 read the \"Errors\" section, (Error-4) of the \"readme.html\" file.<BR>"     if ($_[0] eq "4");
  336.         print "<P> No filetypes have been specified to search. To get help rectifying the error, read the \"Errors\" section,<BR>
  337.                 (Error-5) of the \"readme.html\" file.<BR>"                     if ($_[0] eq "5");
  338.         print "<P> There is a problem with the scratch directory specified. To get help rectifying the error, read the <BR>
  339.                 \"Errors\" section, (Error-6) of the \"readme.html\" file.<BR>"         if ($_[0] eq "6");
  340.         print "<P> There is a problem recording the script usage. To get help rectifying the error, read the \"Errors\" <BR>
  341.                 section, (Error-7) of the \"readme.html\" file.<BR>"                 if ($_[0] eq "7");
  342.         print "<P> A HTTP Path to the search form was not specified. To get help rectifying the error, read the \"Errors\" <BR>
  343.                 section, (Error-8) of the \"readme.html\" file.<BR>"                 if ($_[0] eq "8");
  344.         print "<P> No Valid form was found at $form_to_use . To get help rectifying the error, read the \"Errors\" <BR>
  345.                 section, (Error-9) of the \"readme.html\" file.<BR>"                 if ($_[0] eq "9");
  346.         print "</FONT>";
  347.         print &Bottom;
  348.  }
  349.  
  350. #_____Module Returns the Output Document Type______#
  351. sub Header
  352. {
  353.         return "Content-type: text/html\n\n";
  354. }   
  355.  
  356. #_____Module Returns the Output Document Head_______#
  357. sub Top
  358. {
  359.         my ($title) = @_;
  360.         return <<"ENDPRINT";
  361. <HTML>
  362. <HEAD>
  363. <TITLE>visions | search results</TITLE>
  364. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  365. </HEAD>
  366.  
  367. <BODY BGCOLOR="#FFFFFF">
  368. <a name="top"></a> 
  369. <div align="center">
  370. <table border="0" width="614" cellspacing="0" cellpadding="0">
  371.   <tr> 
  372.           <td bgcolor="#cccccc">
  373.             
  374.       <table border="0" width="614" cellspacing="0" cellpadding="2">
  375.         <tr> 
  376.                 <td><font size="2" face="Arial, Helvetica, sans-serif"><b>vision 
  377.                   | </b>literature on the web</font></td>
  378.                 <td align="right"><font size="1" face="Arial, Helvetica, sans-serif"><a href="/vision/index.shtml">home</a> 
  379.       | <a href="/vision/index.shtml">latest</a> | <a href="/vision/archive/archive.shtml">archive</a> 
  380.       | <a href="/vision/members.shtml">members</a> | <a href="/vision/links.shtml">links</a> 
  381.       | <a href="/vision/search.shtml">search</a></font></td>
  382.               </tr></table></td></tr>
  383.  
  384.               <tr> 
  385.                 <td bgcolor="#000000"><img src="/vision/images/trans_dot.gif" width="1" height="1"></td>
  386. <td bgcolor="#000000"><img src="/vision/images/trans_dot.gif" width="1" height="1"></td>
  387.               </tr>
  388.         <tr>
  389.           <td>
  390.             
  391.       <table border="0" width="614" cellspacing="0" cellpadding="2">
  392.         <tr>
  393.                 
  394.           <td width="87%" bgcolor="#000000"><a href="link"><font color="#FFFFFF" size="2">Tatharina:</font><font face="Times New Roman, Times, serif" size="2" color="#FFFFFF"> 
  395.             "Small quote taken from one of her pieces (recent)...."</font></a> 
  396.             <font color="#FFFFFF"><font face="Times New Roman, Times, serif" size="3"><font size="1" face="Arial, Helvetica, sans-serif">(</font></font></font><font face="Times New Roman, Times, serif" size="3"><font size="1" face="Arial, Helvetica, sans-serif"><a href="javascript:rand_quote();" onMouseOver="window.status='Random Musings'; return true" onMouseOut="window.status=' '; return true"><font color="#cccccc">random 
  397.             quote</font></a></font></font><font color="#FFFFFF"><font face="Times New Roman, Times, serif" size="3"><font size="1" face="Arial, Helvetica, sans-serif">)</font> 
  398.             </font></font></td>
  399.                 
  400.           <td width="13%" bgcolor="#FFCC00" align="center"><b>
  401. n/a</b></td>
  402.               </tr>
  403.             </table>
  404.           </td>
  405.         </tr>
  406.           <tr> 
  407.                 <td bgcolor="#000000"><img src="/vision/images/trans_dot.gif" width="1" height="1"></td>
  408. <td bgcolor="#000000"><img src="/vision/images/trans_dot.gif" width="1" height="1"></td>
  409.               </tr>
  410.       </table>
  411.       <table background="/vision/images/bg.gif" border="0" width="614" cellspacing="0" cellpadding="0">
  412.         <tr>
  413.           <td><font face="Arial" size="2"><img src="/vision/images/header-smp.gif" width="614" height="100"><br><br>          
  414. ENDPRINT
  415. }
  416.  
  417. #_____Module Returns the Output Document Bottom______#
  418. sub Bottom
  419. {
  420.         return "</td></tr></table></td></tr></table></BODY></HTML>\n";
  421. }
  422.  
  423. #____Module Scans Directories for all Files_____#
  424. sub scandir   
  425. {
  426.         $directory_to_scan = ($_[0]);
  427.         return(<$directory_to_scan/*>);
  428. }
  429.  
  430. #__Module Returns Only Files of Specified Type__#
  431. sub scantype
  432. {       
  433.         foreach $type (@filetypes){
  434.                 return 1 if((rindex $_[0], $type) >= 0);
  435.         }
  436. }
  437.  
  438. #____Module Checks for Validity of Directory____#
  439. sub dirs_avoid
  440. {
  441. my $check_dir = ($_[0]);
  442. my $dir; 
  443.  
  444.         foreach $dir (@directories_to_avoid){
  445.                 return 0 if($dir eq $check_dir);
  446.         }
  447. }       
  448.  
  449. #______Module Checks for Validity of File______#
  450. sub files_avoid
  451. {
  452. my $check_file = ($_[0]);
  453. my $file;
  454.  
  455.         foreach $file (@files_to_avoid){
  456.                 return 0 if($file  eq $check_file);
  457.         }
  458. }
  459.  
  460. #_Module Prints Message if no Search Terms are Entered_#
  461. sub no_search_terms{
  462. print &Header;
  463. print &Top("No Search Terms Entered");
  464.  
  465. print<<"ENDPRINT";
  466.         <CENTER><BR><P>No search terms were entered for search.
  467.     Please use your browser's <B>back</B> button to go back to the form and search again or do a
  468.         <A HREF="$path_to_searchform">New Search.</A></P></CENTER><HR>
  469.         <FONT SIZE=-1>
  470.     <A HREF=\"http://www.agl.uh.edu/~saljxk/site_Search\"><FONT SIZE=-1>
  471.         site Search Version $version copyright\©\; 1997, Krishnan Jayakrishnan<FONT></A>
  472. ENDPRINT
  473. print &Bottom;
  474. die;
  475. }
  476.  
  477. #_________Module Records Script Usage___________#
  478. sub record_usage{
  479.         open(WRITE,">>site_Search.usage");
  480.         $date = scalar localtime;
  481.         chomp($date);
  482.         print WRITE $date ."|".$ENV{'REMOTE_ADDR'}."|".$ENV{'REMOTE_HOST'}."|"."$search_terms\n";
  483.         close(WRITE);
  484. }
  485.  
  486. #_________Module Gathers Descriptions___________#
  487. sub get_desc{
  488. my $file_name;
  489. my $description;
  490.  
  491. open(READ,"site_Search.desc");
  492. while(<READ>){
  493.     ($file_name,$description) = split(/[sep]/,$_);
  494.     $desc_array{"$file_name"} = "$description";
  495. }
  496. }
  497.  
  498. #_______Module Returns the File Mod_Date________#
  499. sub Get_Date{
  500.         $mod_time = time unless ($mod_time);
  501.         ($day,$month,$year) = (localtime($mod_time))[3,4,5];
  502.         $date = "$day $months[$month] 19$year";
  503.         return $date;
  504. }
  505.         
  506. #_Module Returns the Line with the Search Term(s)_#
  507. sub get_line{
  508. my @array = @_;
  509. my $line;
  510. my $count = 0;
  511. my $sub_count = 0;
  512. my $search_term;
  513.  
  514. if ($get_construct eq "As a phrase"){
  515.         foreach $line (@array){
  516.                 $_ = $line;
  517.                  $count++;
  518.            $sub_count = s/\b$get_search_terms\b/\<B\>\<FONT COLOR=\"\#CCCCCC\"\>$get_search_terms\<\/FONT\>\<\/B\>/ig;
  519.                 return  "<FONT SIZE=\"2\" FACE=\"HELVETICA\">$array[$count-2].$_.$array[$count]</FONT><BR>" if ($sub_count > 0 );
  520.                 }
  521. }
  522. foreach $line (@array){
  523.     foreach $search_term (@get_search_terms){
  524.                 $_ = $line;
  525.                 $count++;
  526.                 $sub_count = s/\b$search_term\b/\<B\>\<FONT COLOR=\"\#CCCCCC\"\>$search_term\<\/FONT\>\<\/B\>/ig;
  527.                 return  "<FONT SIZE=\"2\" FACE=\"HELVETICA\">$array[$count-2].$_.$array[$count]</FONT><BR>" if ($sub_count > 0 );
  528.                 }
  529. }
  530. }
  531.  
  532. #_________Module Returns the no of Hits__________#
  533. sub get_hits{
  534. $_ = $file_to_search;
  535. my @hits;
  536. my $hits;
  537. my $search_term;
  538. my $line;
  539. my @lines;
  540.  
  541. if ($get_construct eq "As a phrase"){
  542.     ((@hits) = /\b$get_search_terms\b/og)  if ($get_case eq "Sensitive");
  543.         ((@hits) = /\b$get_search_terms\b/iog) if ($get_case eq "Insensitive");
  544.     $hits = int(scalar(@hits));
  545.     
  546.     return "<FONT SIZE=\"2\" FACE=\"HELVETICA\"><LI>$hits Occurence(s) of the search term <B>$get_search_terms</B></FONT><BR>";
  547. }
  548. foreach $search_term (@get_search_terms){
  549. ($hits = (@hits = /\b$search_term/g)) if ($get_case eq "Sensitive");
  550. ($hits = (@hits = /\b$search_term/ig)) if ($get_case eq "Insensitive");
  551. push(@lines,"<FONT SIZE=\"2\" FACE=\"HELVETICA\"><LI>$hits  occurence(s) 
  552. of the search term <B>$search_term</B> </FONT>"); 
  553. }
  554.  
  555. $line = join("",@lines);
  556. return $line."<BR>";
  557. }
  558.  
  559. #__Module Prints a Message if no Matches are Found___#
  560. sub No_Matches
  561. {
  562. print &Header;
  563. print &Top("No Matches Found");
  564.                 
  565. print "<CENTER>Case:$get_case | Construct:$get_construct | Hits Per Page:$get_hits | Terms:$search_terms</CENTER><BR><BR>";
  566.         print<<"ENDPRINT";
  567.         <CENTER><BR><P>No successful matches were found after the search.
  568.     Please use your browser's <B>back</B> button to go back to the form and search again or do a
  569.         <A HREF="$path_to_searchform">New Search.</A></P></CENTER><HR>
  570.         <A HREF=\"http://www.agl.uh.edu/~saljxk/site_Search\"><FONT SIZE=-1>
  571.         site Search Version $version copyright\©\; 1997, Krishnan Jayakrishnan<FONT></A>
  572. ENDPRINT
  573. print &Bottom;
  574. die;
  575. }
  576.  
  577. #_Module Outputs a Form to Perform Additional Searches_#
  578. sub output_form{
  579. my $files = scalar(@file_names_to_display);
  580. my $list_of_files = $$ . "_list_" . ".html";
  581.  
  582. open(LIST,">$base_path/$scratch/$list_of_files");
  583.  
  584. foreach $file (@file_names_to_display){
  585. chomp($file);
  586. print LIST "$file\n";
  587. }    
  588. if ($form_to_use !~ /\binternal\b/){
  589. open(READFORM,"$form_to_use");
  590. @lines = <READFORM>;
  591. return @lines;
  592. }
  593.  
  594. return <<"ENDPRINT";
  595. <HR>
  596. <FORM METHOD="GET" ACTION="$program_to_use">
  597.  
  598. <B>$files</B> file(s) matching your search criteria found.<BR>
  599. Narrow the search by searching <B>$files File(s)?</B>
  600.  
  601. <DIV ALIGN=LEFT><INPUT TYPE="TEXT" SIZE=20 MAXLENGTH=100 NAME="Searchterms"></DIV>
  602. Case:<SELECT NAME="Case">
  603. <OPTION VALUE="Insensitive">Insensitive 
  604. <OPTION VALUE="Sensitive">Sensitive
  605. </SELECT>
  606. Construct:<SELECT NAME="Construct">
  607. <OPTION VALUE="As a phrase">As a Phrase
  608. <OPTION VALUE="Any search term">Any Search Term
  609. <OPTION VALUE="All search terms">All Search Terms
  610. </SELECT>
  611.  
  612. <DIV ALIGN=LEFT><INPUT TYPE="SUBMIT" NAME="SUBMIT" VALUE="Search"><INPUT TYPE="RESET" VALUE="Reset"> </DIV>
  613. <INPUT TYPE="HIDDEN" NAME="List_File" VALUE="$base_path/$scratch/$list_of_files">
  614. <INPUT TYPE="HIDDEN" NAME="OUTPUT_FORM" VALUE="OK">
  615. </FORM>
  616. ENDPRINT
  617. }
  618.  
  619.