#!/usr/bin/perl
###################################################################
# SCRIPT PARAMETERS (CHANGE HERE).
###################################################################

### URL path where this script resides (+gifies for smilies). 
### (can also be a relative url)
$SCRIPTDIR="/board";  

### Where are the datafiles stored in ?
$DATADIR="./data";

### URL path where gif's are stored.
$GIFDIR="/board";

### background color of table headers
$BGCOLORTBLHEAD="33CCFF";

### title of all boards page
$ALLBOARDS="Michael's Message Board";

### style of fonts (is put into body tag of all generated files.
$FONTSTYLE= "style='font-family:verdana,helvetica,ariel;font-size:11pt'";

### How many subjects are listed in one page
$SUBJECTSPAGESIZE=20;

### encoding meta tag
$ENCODING="<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1250\">";

###################################################################
### HTTP Header string for HTML result
$HTTPHEADER = "Content-type: text/html\n\n";

$STARTTIME=time;


### read POST parameters into global $CgiParam{$name}
&parse_form; 

$BOARDID    = $CgiParam{"id"};
$THREADID   = $CgiParam{"tid"};
$STYLE      = $CgiParam{"style"};
$DO         = $CgiParam{"do"};
$BOARDTITLE = "KuKu";###$CgiParam{"title"};

### show one message board
if ($DO eq "brd"){
  ($STYLE == 1) ? &Subjects : &TheBoard;
}
### listing of discussions for one message board.
elsif ($DO eq "subj"){
  &Subjects;
}
### Show one thread
elsif ($DO eq "thrd"){
  &Thread;
}
### returns static html (if in Frames mode)
### trade off speed for ease of setup
elsif ($DO eq "nothread"){
  &NoThread;
}
### returns HTML with a entry form for new message
elsif ($DO eq "addmsgform"){
  &AddMsgForm;
  &TimeComment;

}
### add a reply for one message board
elsif ($DO eq "addmsg"){
  &AddMsg($DATADIR,$BOARDID,$THREADID,$CgiParam{'message'},$CgiParam{'subj'},$CgiParam{'mail'},$CgiParam{'auth'},$CgiParam{'smile'},$CgiParam{'msg'});
}
### Display form for 'search messages'
elsif ($DO eq "searchform"){
  &ShowSearchForm;
  &TimeComment;
}
### perform search of messages
elsif ($DO eq "dosearch"){
  &DoSearch;
}
### no parameters - show listof message boards.
else
{
  &BoardList;
}
	
### read POST parameters into global $CgiParam{$name}
sub parse_form 
{
   local($name,$value,$meth,$in,$len,$got,@pairs,$pair);

   $meth = $ENV{'REQUEST_METHOD'};

   # Get the request data
   if (!defined $meth || $meth eq '' || $meth eq 'GET' || $meth eq 'HEAD') {
     $in = $ENV{'QUERY_STRING'};
   } 
   elsif ($meth eq 'POST') {
     $len = $ENV{'CONTENT_LENGTH'};
     $got = read(STDIN, $in, $len);

     ($got==$len) || die "$HTTPHEADER Can't read POST data $got $len\n";
   } 
   else {
     die "$HTTPHEADER Unknown request method: $meth\n";
   }

   # Split the name-value pairs
   @pairs = split(/&/, $in);

   foreach $pair (@pairs) {
      ($name, $value) = split(/=/, $pair);

      # Un-Webify plus signs and %-encoding
      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      # Remove any NULL characters, Server Side Includes
      $value =~ s/\0//g;
      $value =~ s/<!--(.|\n)*-->//g;

      $CgiParam{$name} = $value;
   }
}

### Show subject list of a board.
sub Subjects
{   
  local($pos,$cnt,$line,@lines,$offset,$prevlink);

  $filename="$DATADIR/board_$BOARDID.data";

  if (open(BOARD,"$filename")) {
   flock(BOARD,1); ## shared read lock

   $offset=$CgiParam{"offs"};
   $cnt=$SUBJECTSPAGESIZE;

   if ($offset>0){
     $pos=$offset-$SUBJECTSPAGESIZE;
     $pos<0 ? $pos=0 : 1;
     $prevlink="&nbsp;<a href=\"$SCRIPTDIR/board.pl?do=subj&id=$BOARDID&offs=$pos\" title=\"Previous Page\">&lt;&lt;</A>&nbsp;"; 
   }
   
   $BOARDTITLE=<BOARD>;
   chop($BOARDTITLE);

   $pos=0;
   while(<BOARD>) {
    if ($pos>=$offset) {
      if ($cnt>0) {
        push @lines, $_;
        $cnt--;
      }
      else {
        $pos = $offset+$SUBJECTSPAGESIZE;
        $nextlink="&nbsp;<a href=\"$SCRIPTDIR/board.pl?do=subj&id=$BOARDID&offs=$pos\" title=\"Next Page\">&gt;&gt;</A>&nbsp;";
        break;
      }
    }     
    $pos++;
   }
   close(BOARD);
  }

  $dirs = "$prevlink$nextlink";
  if ($dirs ne "") {
    $dirs = "[$dirs]&nbsp;";
  }

  ###page + table header  
print <<ENDOFTEXT;
$HTTPHEADER<HTML><HEAD>$ENCODING<TITLE>$BOARDTITLE</TITLE><BODY $FONTSTYLE LEFTMARGIN="0" RIGHTMARGIN="0" TOPMARGIN="0">
<table $FONTSTYLE width=100%><tr><td align=center width=40%><b>$BOARDTITLE</b></td><td align=right>	
$dirs [ <a TARGET="_top" href="$SCRIPTDIR/board.pl">All Boards</a>]&nbsp; [ <a TARGET="_top" href="$SCRIPTDIR/board.pl?do=searchform&id=$BOARDID">Search this Board</a>]&nbsp; 
[ <a target=thread href="$SCRIPTDIR/board.pl?do=addmsgform&id=$BOARDID&tid=0&msg=0"> Start a new Discussion</a> ]</tr></table>
<TABLE $FONTSTYLE WIDTH="100%" BORDER=0 CELLSPACING=0 CELLPADDING=6><TR BGCOLOR=$BGCOLORTBLHEAD><TH WIDTH="16">&nbsp;</TH><TH WIDTH="60%">Subject of the Discussion</TH>
<TH WIDTH="15%">By</TH><TH>Time</TH><TH>Messages</TH><TH>ID</TH></TR>
ENDOFTEXT

   foreach $line (@lines) {
    ($tid, $pic, $nmsg, $date, $author, $subject) = split(/##/, $line);
print <<ENDOFTEXT;
<TR ALIGN="center">
<TD><img src="$GIFDIR/$pic.gif"></TD>
<TD><a target=thread href="$SCRIPTDIR/board.pl?do=thrd&id=$CgiParam{"id"}&tid=$tid">$subject</a></TD>
<TD WIDTH="15%">$author</TD><TD>$date</TD><TD>($nmsg)</TD><TD>$tid</TD></TR>
ENDOFTEXT
   }

  ####page footer
  print "</table></body></html>";
  &TimeComment;
}

### Show contents of one discussion thread
sub Thread
{
  print "$HTTPHEADER";
  $threadfile = "$DATADIR/thread_$CgiParam{'id'}_$THREADID.htm";
  open(THREAD,$threadfile) || die "<h3>No messages for this thread</h3>";
  flock(THREAD,1); ## shared read lock
  while(<THREAD>) {
    print $_;
  }
  close(THREAD);
  &TimeComment;
}

### Show one message board (with frames)
sub TheBoard
{
print <<ENDOFTEXT;
$HTTPHEADER<HTML><HEAD><TITLE>$ALLBOARDS</TITLE></HEAD>
 <FRAMESET MARGINHEIGHT=0 MARGINWIDTH=0  ROWS="50%,*" FRAMEBORDER="yes" NAME="main">
    <FRAME SRC="$SCRIPTDIR/board.pl?do=subj&id=$BOARDID&title=$BOARDTITLE" NAME="subj">
    <FRAME SRC="$SCRIPTDIR/board.pl?do=nothread" NAME="thread">
 <NOFRAMES>
    <a href="$SCRIPTDIR/board.pl?do=subj&id=$BOARDID">For a page without frames</a>
    <br>Sorry, this page works with frame enabled browsers only.
 </NOFRAMES>
 </FRAMESET>
</HTML>
ENDOFTEXT

}

### no thread
sub NoThread
{
print <<ENDOFTEXT;
$HTTPHEADER <HTML><HEAD>$ENCODING<BODY $FONTSTYLE><CENTER><H3>Please chose a forum</H3>
... by clicking on the subject line of a discussion.
ENDOFTEXT
}

### list of message boards
sub BoardList
{
print <<ENDOFTEXT;
$HTTPHEADER
<html><head>$ENCODING<title>$ALLBOARDS</title><body $FONTSTYLE>
<center><br><br><h1>$ALLBOARDS</h1><br><br>
<table $FONTSTYLE cellspacing=0 cellpadding=8 border=0 width=80%>
<tr >
  <td colspan=4 align=right>
  [ <a TARGET="_top" href="$SCRIPTDIR/board.pl?do=searchform&id=$BOARDID">Search All Messages</a>]
  </td>
</tr>  
  
<tr bgcolor=$BGCOLORTBLHEAD>
   <th width=0>Subject</th>
   <th>Comments</th>
   <th width=0>Last message</th>
   <th width=0>Messages</th>
</tr>
ENDOFTEXT

  if (open(BOARD,"$DATADIR/allboards.data")) {
   flock(BOARD,1); ## shared read lock
   while(<BOARD>) {
    chop($_);
    ($tid, $subject, $comment, $nummsg, $date_time) = split(/##/, $_);

    #$save_sbj = $subject;
    #$save_sbj =~ s/ /%20/g;
print <<ENDOFTEXT;
<tr align=center><td><a href="$SCRIPTDIR/board.pl?do=brd&id=$tid">
$subject</a></td><td>$comment</td><td>$date_time</td><td>($nummsg)</td></tr>
ENDOFTEXT
   }
   close(BOARD);
  }
  print "</table>";
  &TimeComment;
}


### writes a HTML Form for entering a new message.
sub AddMsgForm
{

  $title=$CgiParam{"title"};       
  if ($title ne "" && index(lc($title),"re:")!=0)
  {
    $title="Re: ".$title;
  }

print <<ENDOFTEXT;
$HTTPHEADER<form method="post" action="$SCRIPTDIR/board.pl">
  <input type="hidden" name="do" value="addmsg">
  <input type="hidden" name="id" value="$BOARDID">
  <input type="hidden" name="tid" value="$THREADID">
  <input type="hidden" name="msg" value="$CgiParam{"msg"}">
  <table $FONTSTYLE border="0">
    <tr><td>Subject</td><td><input name="subj" value="$title"></td></tr>
    <tr><td>Author</td><td><input name="auth"></td></tr>
    <tr><td>e-mail</td><td><input name="mail"> (Optional) </td></tr>
    <tr><td valign="top">Message
    <br><img title="note" src="$GIFDIR/1.gif"><input type="radio" name="smile" value="1"  checked>
    <br><img title="question" src="$GIFDIR/2.gif"><input type="radio" name="smile" value="2">
    <br><img title="exclamation" src="$GIFDIR/3.gif"><input type="radio" name="smile" value="3">
    <br><img title="smile" src="$GIFDIR/4.gif"><input type="radio" name="smile" value="4">
    <br><img title="Wow!" src="$GIFDIR/5.gif"><input type="radio" name="smile" value="5">
    <br><img title="angry" src="$GIFDIR/6.gif"><input type="radio" name="smile" value="6"></TD>
    <td><textarea name=message cols=60 rows=10 wrap=virtual></textarea></td></tr>
  <tr><td></td><td><input type="submit" value="Send Message"></td>
</table></form>
ENDOFTEXT
}


### Add message to the system ############################################
#
#  $_[0] - data directory
#  $_[1] - board id
#  $_[2] - argument thread id (if message added to existing thread)
#
#  $_[3] - message
#  $_[4] - subject
#  $_[5] - mail address
#  $_[6] - Author
#  $_[7] - smiley
#  $_[8] - message id
#
#########################################################################
sub AddMsg
{
  local($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst,$script);

  ### form a date string
  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
  $datestr = sprintf("%02d/%02d/%02d %02d:%02d %s",$mday,($mon+1),($year>=100?$year-100:$year),$hour%12,$min,$isdst?"AM":"PM");

  ### add message to thread file
  &AddToThreadFile($_[0],$_[1],$_[2],$_[3],$_[4],$_[5],$_[6],$_[7],$_[8],$datestr);
  
  ### add message count to list-of-boards file
  &AddToBoardList($_[0],$_[1],$datestr,1);

  ### ok message
  $script=$STYLE==0 ? "onload=\"top.subj.window.location='$SCRIPTDIR/board.pl?do=subj&id=$_[1]';\"" : "";
print <<ENDOFTEXT;
$HTTPHEADER <body $FONTSTYLE $script><center><h3>your message has been added to the board</h3>
Thank you for your comments.   
ENDOFTEXT
}

### add message to existing thread file
#
#  $_[0] - data directory 
#  $_[1] - board id
#  $_[2] - argument thread id (if message added to existing thread)
#
#  $_[3] - message
#  $_[4] - subject
#  $_[5] - mail address
#  $_[6] - Author
#  $_[7] - smiley
#  $_[8] - message id
#
#  $_[9] - date string
#
###
sub AddToThreadFile
{ 
   local(@threadlines,$threadfile,$line,$previndent,$width,$followup);
   local($body,$subj,$mail,$author,$TID,$NEWMSGNUM,$urltitle);

   ### prepare form parameters (values of the new message).
   $body =  $_[3];
   &CheckTextParam($body);

   if ($_[4]) {
    $subj = $_[4];
    $subj =~ s/\&/\&amp\;/g;
    $subj =~ s/"/\&quot\;/g;
    &CheckTextParam($subj);
   }     
   if ($subj eq "")
   {
    $subj = "NoSubject";   
   }

   ### check if email address looks valid
   $mail = ($_[5] =~ /.*\@.*\..*/) ? $_[5] : "";  
   &CheckTextParam($mail);

   ### author line (make link if email is present)
   $author = $mail eq "" ? $_[6] : "<a href='mailto:$mail'>$_[6]</a>";
   &CheckTextParam($author);

   ### create a new thread id (if a new thread is opened)
   $TID = ($_[2]!=0) ? $_[2] : get_number("$DATADIR/board_$_[1].num");

   ### get new unique message number for this thread 
   $threadfile = "$_[0]/thread_$_[1]_$TID";
   $NEWMSGNUM=get_number("$threadfile.num"); 
 
   ### if new message - create thread file.
   if ($_[8]==0) {
     open(THREAD,">$threadfile.htm") || die "$HTTPHEADER Can't open file $threadfile for writing";
     print THREAD "<html><head>$ENCODING<title>$_[4]</title>\n";
     print THREAD "<body $FONTSTYLE  LEFTMARGIN=0 RIGHTMARGIN=0 TOPMARGIN=0>\n<!--MsgId:0,0-->\n";
     close(THREAD);
   }  

   CreateIfNotThere("$threadfile.htm");
   open(THREAD,"+<$threadfile.htm") || die "$HTTPHEADER Can't open file $threadfile";
   flock(THREAD,2); ## exclusive write lock
   @threadlines = <THREAD>;

   seek(THREAD,0,0);
   foreach $line (@threadlines) {     
     print THREAD "$line";
     if ($line =~ /\<!--MsgId:(.*),(.*)-->/ && $1==$_[8]) {       
       $width=$2*5;
       $width=45 unless $width<45;
       $followup=$2+1;

       ### title to appear in reply form.
       ### make a safe string
       $urltitle = $subj;
       $urltitle =~ s/([^\w])/'%'.unpack('H',$&).unpack('h',$&)/eg;
      

print THREAD <<ENDOFTEXT;
<!--Start:$NEWMSGNUM,$followup-->
<TABLE $FONTSTYLE WIDTH=100% CELLSPACING=0 BORDER=0>
  <TR><TD ROWSPAN=2 WIDTH=$width%>
    </TD><TD BGCOLOR=$BGCOLORTBLHEAD>
       <IMG SRC=$GIFDIR/$_[7].gif>&nbsp;<b>$subj</b>
       <br>By: $author  On: $_[9] (#$NEWMSGNUM)
    </TD><TD BGCOLOR=$BGCOLORTBLHEAD WIDTH=1%>
    <A HREF=$SCRIPTDIR/board.pl?do=addmsgform&id=$_[1]&tid=$TID&msg=$NEWMSGNUM&title=$urltitle>[Reply]</A> 
    </TD></TR><TR><TD>$body</TD></TR></TABLE>
<!--MsgId:$NEWMSGNUM,$followup-->
ENDOFTEXT
     }
   }
   close(THREAD);


   ### modify subject listing (new thread-insert entry, known thread-update date)
   &AddToSubjects($_[0],$_[1],$TID,$_[3],$subj,$mail,$_[6],$_[7],$_[9]);
}

### add entry to subject file (keep the subject file sorted by date).
#
#  $_[0] - data directory 
#  $_[1] - board id
#  $_[2] - argument thread id (if message added to existing thread)
#
#  $_[3] - message
#  $_[4] - subject
#  $_[5] - mail address
#  $_[6] - Author
#  $_[7] - smiley
#
#  $_[8] - date string
#
#
###
sub AddToSubjects
{
  local(@boardlines,$filename,$line,$newline,$pos,$num,$pic,$nmsg,$date,$author,$subject);
  local($BOARDTITLE,$TID);

  $filename="$DATADIR/board_$BOARDID";
  CreateIfNotThere("$filename.data");
  open(BOARD,"+<$filename.data") || die "</TABLE>Can't open file $filename.data";
  flock(BOARD,2); ## exclusive write lock

  $BOARDTITLE=<BOARD>;  
  @boardlines=<BOARD>;

  ### new thread created
  if ($THREADID==0) {
    $newline=join("##",($_[2], $_[7], 1, $_[8], $_[6], $_[4]));
  }
  ### update existing thread
  else {
    $pos=0;
    foreach $line (@boardlines) {            
      ($TID) = split(/##/,$line);
      if ($TID == $_[2]) {
        ($TID, $pic, $nmsg, $date, $author, $subject) = split(/##/, $line);    
        $newline=join("##",$TID, $pic, $nmsg+1, $_[8], $author, $subject);
        chop($newline);
        splice(@boardlines,$pos,1);
        break;
      }
      ++$pos;
    }
  }
  ### write changes back.
  seek(BOARD,0,0);
  print BOARD $BOARDTITLE;
 
  chomp($newline);
  print BOARD $newline;

  $num = @boardlines;
  if ($num != 0)  {
    print BOARD "\n";
  }
  foreach $line (@boardlines) {    
    print BOARD $line;
  }
  close(BOARD);
}


### Update count of messages and date of last message
#
#  $_[0] - data directory 
#  $_[1] - board id
#
#  $_[2] - date string
#
#  $_[3] - increment.
#
###
sub AddToBoardList
{
  local(@boardlines,$filename,$line,$tid, $subject, $comment, $nummsg ,$date_time);

  $filename="$_[0]/allboards.data";
  CreateIfNotThere("$filename");
  open(BOARD,"+<$filename") || die "</TABLE>Can't open file $filename";
  flock(BOARD,2); ## exclusive write lock
  @boardlines=<BOARD>;

  seek(BOARD,0,0);

  ### write changes back.
  foreach $line (@boardlines) {
    if (!($line=="\n" || $line=="")) {
      chop($line);      
      ($tid, $subject, $comment, $nummsg, $date_time) = split(/##/, $line);      
      if ($BOARDID == $tid) {
        $nummsg += $_[3];
        $date_time=$_[2]; ### if ($_[2] ne "");
      }
      print BOARD "$tid##$subject##$comment##$nummsg##$date_time\n";
    }
  }
  truncate(BOARD,tell(BOARD));
  close(BOARD);
}

###
# Checks text parameters for undesired input.
###
sub CheckTextParam
{
   $_[0] =~ s/^\s+//;        #strip newlines (from start and end)
   $_[0] =~ s/\s+$//;
   $_[0] =~ s/<t[^>]+>//gi;  #strip table tags (they could upset the text.
   $_[0] =~ s-</t[^>]+>--gi;   
#  $_[0] =~ s/</&lt;/g;      #HTML Verboten.
#  $_[0] =~ s/>/&gt;/g; 
   $_[0] =~ s/\n\n/<p>/g;    #new lines are translated to <br> tags.
   $_[0] =~ s/\n/<br>/g;
}

### get a unique number key.
sub get_number 
{
   local($num);

   CreateIfNotThere($_[0]);
   open(NUMBER,"+<$_[0]") || die "$HTTPHEADER Can't open file $_[0]";
   flock(NUMBER,2); ## exclusive write lock.

   $num = <NUMBER>;
   if ($num == 999999 || $num !~ /^\d+$/)  {
      $num = "1";
   }
   else {
      $num++;
   }
   seek(NUMBER,0,0);
   print NUMBER "$num";
   close(NUMBER);

   $num;
}

### creates a file if it does not exist.
sub CreateIfNotThere
{ 
  if (!open(CHECK,"$_[0]")) {
    open(CHECK,">$_[0]") || die "$HTTPHEADER Can't create $_[0]";
  }
  close(CHECK);  
}

##############################################################################
### Show subject list of a board.
##############################################################################
sub ShowSearchForm
{   
print <<ENDOFTEXT;
$HTTPHEADER<HTML><HEAD>$ENCODING<TITLE>Search for messages</TITLE></HEAD>
<BODY><h2>Search for messages</h2><br><br>
<form name="search" method="post" action="$SCRIPTDIR/board.pl">
  <input type="hidden" name="do" value="dosearch">
  <table><tr><td width=130><font size=+1><b>Find results</b></font><td>with <b>all</b> of the words</td><td><INPUT SIZE=45 NAME="term1"></td><td><INPUT VALUE="Search Message Board" TYPE="SUBMIT"></td></tr>
    <tr><td>&nbsp;</td></tr>  
    <tr><td>&nbsp;</td><td>with the <b>exact phrase</b></td><td><INPUT SIZE=45 NAME="term2"></td></tr>  
    <tr><td>&nbsp;</td></tr>  
    <tr><td>&nbsp;</td><td>with <b>at least one</b> of the words &nbsp;&nbsp;&nbsp;</td><td><INPUT SIZE=45 NAME="term3"></td></tr>  
    <tr><td colspan=3><br><hr><br></td></tr>  
    <tr>
      <td>&nbsp;</td>
      <td>Search for messages in:</td><td>
 <select name="board">
ENDOFTEXT

  print "<option value='0'>All Boards&nbsp;&nbsp;&nbsp;" if ($BOARDID eq "");

  if (open(BOARD,"$DATADIR/allboards.data")) {
   flock(BOARD,1); ## shared read lock
   while(<BOARD>) {
    chop($_);
    ($tid, $subject) = split(/##/, $_);

    next if ($BOARDID ne "" && $BOARDID ne $tid);
    

    print "<option value=\"$tid\">$subject\n";
    
   }
   close(BOARD);
  }

print <<ENDOFTEXT;
 </select> &nbsp;&nbsp; with &nbsp;&nbsp; <input name="case" type="checkbox" value="on" checked>Matching case  
      </td></tr>
    <tr><td>&nbsp;</td></tr>  
    <tr><td>&nbsp;</td><td>&nbsp;</td><td></td></tr>
  </table>
ENDOFTEXT
}

##############################################################################
### perform search 
##############################################################################
sub DoSearch
{
  local ($board,@filez,$first);

  print $HTTPHEADER;

  $board=$CgiParam{"board"};

  if ($board eq "0") {
    @filez = <$DATADIR/thread\_?\_?.htm>;
  }
  else {
    @filez = <$DATADIR/thread\_$board\_?.htm>;
  }

  @AllWorlds  = split(/\s+/, $CgiParam{"term1"} );
  @OneOfWords = split(/\s+/, $CgiParam{"term3"} );
  $Phrase     = $CgiParam{"term2"};
  $Case       = $CgiParam{"case"};
  $first      = 0;

  if (0 == scalar @AllWorlds &&
      0 == scalar @OneOfWords &&
      $Phrase eq "")
  {
    print "<h3>Please enter something to search for</h3>";
    return;
  }

  foreach $ln (@filez) 
  {     
    $header = doSearch($ln,@allwords,$phrase,@oneofword);
    if ($header ne "")
    {
      if ($first==0)
      {
        $first=1;

print <<ENDOFTEXT;
<HTML><HEAD>$ENCODING<TITLE>Search results</TITLE></HEAD>
<h3>Search results</h3>
<table width="100%">
<tr BGCOLOR=$BGCOLORTBLHEAD><td>Subject of message</td></tr>
</table>
ENDOFTEXT
      }
      print "<a href='$ln'>$header</a><br>"; 
    }                                            
  }               
  print "<h3>Nothing found</h3>" if ($first==0);
  &TimeComment;
}

##############################################################################
### search one file.
##############################################################################
sub doSearch
{
  local ($found,$text,$size);

  open(FILE,$_[0]);
  flock(BOARD,1); ## shared read lock

  $size = (stat(FILE))[7];
  read(FILE, $text, $size);
  close(FILE);  

  #-----------------------------------------------------#  
  if (0 != scalar @AllWorlds)
  {
    foreach $term (@AllWorlds)
    {
      if ($Case ne "on") {
        return "" if ($text !~ /$term/i);
      }
      else {
        return "" if ($text !~ /$term/);
      }
    }
  }
  #-----------------------------------------------------#
  if (0 != scalar @OneOfWords)
  {
    $found=0;
    foreach $term (@OneOfWords)
    {
      if ($Case ne "on") {
        if ($text =~ /$term/i) {
          $found=1;
          break;   
        }
      }
      else {
        if ($text =~ /$term/) {   
          $found=1;
          break;   
        }
      }
    }
    return "" if ($found==0);
  }
  #-----------------------------------------------------#
  if ($Phrase ne "") {
    if ($Case ne "on") {
      $text = lc($text);
      $Phrase = lc($Phrase);
    }
    return "" if (index($text,$Phrase)==-1);
  }

  #-----------------------------------------------------#
  # if we got here - then the file is a match
  # find the title of the message and return it
  #
  # The title of this discussion is the first thing in bold.
  #-----------------------------------------------------#

  $pos=index($text,"<b>");
  $pos1=index($text,"</b>",$pos+1);
  $pos2=index($text,"</b>",$pos1+1);

  $pos1 = ($pos2 != -1) ? $pos2 : $pos1;

  $pos1=$pos+15 if ($pos1==-1 || ($pos1-$pos) > 80);


  return substr($text,$pos+3,$pos1-$pos-3);  
}

###
sub TimeComment
{
  print "<!-- Performance: ",time-$STARTTIME,"\n//-->";
}