Php > Complete Programs

Searches through a local INN server's discussions

Searches through a local INN server's discussions

<?php 

    #INNSearch 
  
    #This  allows  users  to  search  through  a  local  INN  server's  archives 
    #We  use  it  to  search  through  old  postings  to  our  private  newsgroups 

    #location  of  news  active  file 
    $active  =  "/var/lib/news/active"; 

    #locate  of  news  spool 
    $spooldir  =  "/var/spool/news/"; 
    #number  of  levels  deep  subdirs  of  $spooldir  are 
    $dirdepth  =  4;   

    #minimum  number  of  articles  in  group  to  show  up  on  main  search  page 
    $minarticles  =  1; 

    #groups  with  more  articles  than  this  will  not  be  selected  by  default 
    $maxarticles  =  1000; 

    print( "<HTML>"); 
    print( "<head>"); 
    print( "<title>"); 
    print( "INNSearch"); 
    print( "</title>"); 
    print( "</head>"); 
    if  ($query)  { 
        $searchgroups  =  ""; 
        $sgroups  =  split( "&",  getenv( "QUERY_STRING")); 
        for  ($i=0;  $i  <  count($sgroups);  $i++)  { 
            if  (ereg( "=on",  $sgroups[$i]))  { 
                $tgroup  =  split( "=",  $sgroups[$i]); 
                $tgroup[0]  =  ereg_replace( "\.",  "/",  $tgroup[0]); 
                $searchgroups  =  $searchgroups  .  "  "  .  $spooldir  .  $tgroup[0].  "/*"; 
            } 
        } 
        print  ( "Search  for  \"$query\"<P>"); 
        $fp  =  popen( "/bin/grep  \"$query\"  $searchgroups",  "r"); 
        while  ($line  =  fgets($fp,  150))  { 
              $file  =  explode( ":",  $line); 
              $group  =  explode( "/",  $file[0]); 
              $newsgroup  =  ""; 
              for  ($i  =  $dirdepth;  $i  <  (count($group)-1);  $i++)  { 
                  if  ($i  >  $dirdepth)  {  $newsgroup  =  $newsgroup  .  ".";} 
                  $newsgroup  =  "$newsgroup$group[$i]"; 
              } 
              if  ($newsgroup)  { 
                  print( "<B>$newsgroup</B>"); 
                  print( "  <A  HREF=\"innsearch.phtml?article=$newsgroup.$group[$i]\">$grou 
p[$i]</A>"); 
                  $la  =  split( ":",  $line,  2); 
                  $line  =  htmlspecialchars($la[1]); 
                  print( "  $line<BR>\n"); 
                  reset($file); 
                  reset($group); 
              } 
        } 
        pclose($fp); 
    }  else  if  ($article)  { 
        $article  =  ereg_replace( "\.",  "/",  $article); 
        $fp  =  popen( "/bin/cat  $spooldir$article",  "r"); 
        while  ($line  =  fgets($fp,  150))  { 
            $line  =  htmlspecialchars($line); 
            print( "$line<BR>\n"); 
        } 
        pclose($fp); 
    }  else  { 
        print  ( "INNSearch<P>\n"); 
        print  ( "<FORM  METHOD=\"get\"  action=\"innsearch.phtml\">\n"); 
        print  ( "<INPUT  name=\"query\"  size=\"25\">\n"); 
        print  ( "<INPUT  type=\"submit\"  value  =  \"Search\"><BR>\n"); 
        $fp  =  popen( "cat  $active",  "r"); 
        while  ($line  =  fgets($fp,  150))  { 
            $group  =  split( "  ",  $line); 
            if  ($group[1]  >  $minarticles)  { 
                print( "<input  type=\"checkbox\"  name=\"$group[0]\""); 
                if  ($group[1]  <  $maxarticles)  { 
                    print( "  checked  "); 
                } 
                print( ">$group[0]<BR>\n");         
            } 
        } 
        pclose($fp); 
        print  ( "</FORM>\n"); 
    }     
?>