#!/usr/local/bin/perl
################################################################################
#
#   File name: search
#   Project: PEERS
#   Description: Search the PEERS directory
#
#
#   External documents:
#
#
#   Author: Peter Haworth
#   Date created: 1996
#
#   sccs version: 1.3    last changed: 04/27/99
#
#   Copyright Institute of Physics Publishing 1999
#
################################################################################

require 'IOPP/PEERS.pl';
require 'IOPP/hdbm.pl';
use TextSearch;
use CGI;

# These are the search types available
%stypes=(
  string => q(
    Phrases. <font size="-1" class="smlgry">For example, "time and space" finds
    records containing the phrase "time and space"</font>
  ),
  expr => q(
    Boolean Expressions. <font size="-1" class="smlgry">For example, "time and
    space" finds records containing the words "time" and "space"</font>
  ),
);

my $uri=$PEERS_admin ? "$PEERS_cgi/Admin" : $PEERS_cgi;
$query=CGI->new;
&escapeHTML_query($query);
$query->import_names('query');
$query->autoEscape(undef);
@args=split('/',$query->path_info);
shift @args;
while($arg=$args[0]){
  if($arg=~/^_(\d+)_(\d+)$/){
    ($seqn,$start)=($1,$2);
    shift @args;
  }elsif($arg=~/^__(\d+)$/){
    $anticache=$1;
    shift @args;
  }elsif($PEERS_admin && $arg=~/^_(\d+)_dump$/){
    $seqn=$1;
    $do_dump=1;
    shift @args;
  }else{
    last;
  }
}

if($seqn){
  # Read previously generated search results

  if(&hdbm_read(\%searchdb,$PEERS_searchdb)){
    if(@searchrec=split(/\0/,$searchdb{$seqn})){
      @hits=split(/\001/,$searchrec[$PEERS_search_results]);
      $nhits=@hits;
    }else{
      push @errors,"No such search record: $seqn";
    }
  }else{
    push @errors,"The search database cannot be opened: $!";
  }
  undef $do_dump if @errors;
}elsif($query::submitting){
  # Process a request, putting any errors in @errors

  @query::itype=grep($_ ne '.all',@query::itype);
  foreach(qw(sname dept inst itype ctry subj)){
    my($terms,@values)=$_ eq 'itype'
    ? ($query::itype_other,@query::itype)
    : (${"query::$_"})
    ;

    my $search=new TextSearch($query::stype,'or',
	"\$field=\$data->[\$PEERS_db_$_]",$terms,[@values],\&push_error);
    if($search){
      $search{$_}=$search->{'code'};
    }
  }
  
  if($code=join('','my $field;',values %search)){
    my $sub=eval($code=join('','sub{my($data)=@_;',$code,"1}\n"))
    or push @errors,"$code$@";
    my $sort1=${"PEERS_db_$query::sort1"};
    $sort1=$PEERS_db_sname if $sort1 eq '';
    my $sort2=$query::sort2=~/\w/
      ? ${"PEERS_db_$query::sort2"}
      : $PEERS_db_sname;
    $sort2=$PEERS_db_sname if $sort2 eq '';
    my $sortcode="sub{my(\$key,\@record)=\@_; lc \"\$record[$sort1]\\0\$record[$sort2]\\0\$record[$PEERS_db_fname]\\0\$key\"}\n";
    my $sort=eval $sortcode or push @errors,"$sortcode$@";
    
    if(!@errors){
     if(&hdbm_read(\%emaildb,$PEERS_emaildb)){
      while(($key,$record)=each %emaildb){
        @record=split(/\0/,$record);
        if(&$sub(\@record)){
          push @hits,&$sort($key,@record);
          if(++$nhits>$PEERS_search_m){
            push @errors,"Your search matched more than $PEERS_search_m records.
		Please narrow your search terms.";
            last;
          }
        }
      }
      untie %emaildb;
      if($nhits){
        $query::itype=join(' or ',grep($_,(map {$PEERS_itypes{$_}} @query::itype),$query::itype_other));
        @hits=map {(split(/\0/))[-1]} sort @hits;
        if(&hdbm_write(\%searchdb,$PEERS_searchdb)){
          $seqn=$searchdb{'_seqn_'};
          ++$seqn;
          $searchdb{'_seqn_'}=$seqn;

          @searchrec=();
          foreach(qw(sname dept inst itype ctry subj)){
            $searchrec[${"PEERS_search_$_"}]=${"query::$_"};
          }
          $searchrec[$PEERS_search_time]=time;
          $searchrec[$PEERS_search_results]=join("\001",@hits);
          $searchdb{$seqn}=join("\0",@searchrec);
          untie %searchdb;
          $PEERS_helpurl=~s|/$PEERS_script.*|/$PEERS_script/_${seqn}_0|;
        }else{
          push @errors,"the search database cannot be opened: $!";
        }
      }else{
        push @errors,"Your search terms matched none of the records in the directory.";
      }
     }else{
      push @errors,"The database cannot be opened: $!";
     }
    }
  }else{
    push @errors,"You must define your search terms.";
  }
}

if($nhits){
  $title='Search Results';
  $help='results';
  $up="$uri/search";
}else{
  $title='Search';
  $help='search';
  $up="$uri/main";
}

if($do_dump){
  print qq(Content-type: text/comma-separated-values; name="peers.csv"\n);
  print qq(Content-disposition: file; filename="peers.csv"\n);
  print "\n";
  print "email,title,forename,surname,address,department,institute,inst_type,job_title,subject_interest,country,phone,url,iop_member\n";
}else{
  &printHeader("$PEERS_name: $title",$title,{'up'=>$up},undef,[$help,($nhits?('main','search'):('main')),'add','update']);
  print "$IopStyle::TABLE<TR><TD>\n";
}

if($nhits && !@errors){
  if(&hdbm_read(\%emaildb,$PEERS_emaildb)){
    if($do_dump){
      foreach(@hits){
	my @record=split(/\0/,$emaildb{$_}) or next;
	my @data;
	foreach(qw(
	  email title fname sname addr dept inst itype job subj ctry
	  phone url iop
	)){
	  my $field=$record[${"PEERS_db_$_"}];
	  if($_ eq 'itype'){
	    $field=$PEERS_itypes{$field};
	  }elsif($_ eq 'iop'){
	    $field=$field ? 'Y' : 'N';
	  }
	  $field=~s/"/""/g;
	  $field=~s/[\n\r]+\s*/, /gs;

	  push @data,"\"$field\"";
	};
	print join(',',@data),"\n";
      }
    }else{
      $start=$start || 0;
      $start1=$start+1;
      $end=$start+$PEERS_search_n;
      if($end>$nhits){ $end=$nhits; }

      if($start || $end<$nhits){
	if($start){
	  my $pstart=$start-$PEERS_search_n;

	  $pntext=qq%<A HREF="$uri/search/_${seqn}_${pstart}">[&lt;&lt; Previous Page]</A>\n%;
	}
	if($end<$nhits){
	  my $nstart=$start+$PEERS_search_n;

	  $pntext.=qq%<A HREF="$uri/search/_${seqn}_${nstart}">[Next Page &gt;&gt;]</A>\n%;
	}
      }
      print "<P>Your search matched $nhits records.\n";
      print "Displaying hits $start1 to $end.\n$pntext" if $nhits>$PEERS_search_n;
      print qq(<P><A HREF="$uri/search/_${seqn}_dump">Download results as CSV file</A>\n)
	if $PEERS_admin;
      print "<p class=\"head3grn\">";
      print "Surname: $sname\n"
	if $sname=$searchrec[$PEERS_search_sname];
      print "<BR>Department: $dept\n"
	if $dept=$searchrec[$PEERS_search_dept];
      print "<BR>Institution/Company: $inst\n"
	if $inst=$searchrec[$PEERS_search_inst];
      print "<BR>Type of Institution: $itype\n"
	if $itype=$searchrec[$PEERS_search_itype];
      print "<BR>Country: $ctry\n"
	if $ctry=$searchrec[$PEERS_search_ctry];
      print "<BR>Subject: $subj\n"
	if $subj=$searchrec[$PEERS_search_subj];

      print "</p></TD></TR></TABLE><P><TABLE width=100% border=0 cellpadding=2 cellspacing=0><TR><TD>\n";
      foreach $number ($start..$end-1){
	my $bg = ($number / 2.0 == int($number / 2)) ? '#ffffff' : '#bbdbbd';
	my $key=$hits[$number];
	@record=split(/\0/,&escapeHTML($emaildb{$key}));
	$key=&urlEncode($key);
	print qq(
	  <TR bgcolor="$bg"><TD valign="middle">
	    <A HREF="$PEERS_cgi/details/_${seqn}_).($number+1).qq(/$key"><IMG
	      src="$PEERS_gfx/details.gif" alt="[Details]" align="middle" border=2></A>
	  </TD><TD valign="top" align="left">
	    <B>$record[$PEERS_db_sname], $record[$PEERS_db_fname]</B>,
	    $record[$PEERS_db_inst]<BR>
	    <A HREF="mailto:$record[$PEERS_db_email]">$record[$PEERS_db_email]</A>
	    <P>
	  </TD></TR>
	);
      }
      print "</TABLE><P>$IopStyle::TABLE<TR><TD>\n";
      untie %emaildb;
      print "<p>$pntext</p>" if $nhits>$PEERS_search_n;
    }
  }else{
    push @errors,"the e-mail database cannot be opened: $!";
  }
}

# Print any errors, then the search form
if(@errors || !$query::submitting && !$nhits){
  if(@errors){
    print "
	<P>Sorry, your request could not be processed because of
	the following:<UL>
    ",(map { "<LI>$_\n"; } @errors),"</UL>$IopStyle::HR<P>\n";
  }else{
    print qq%
	<p>Thank you for using this service. We hope that you will find it quick,
	easy and useful.
	Searches are performed by completing one or more of the fields below,
	then pressing one of the `Search' buttons.
    %;
  }

  if(!$anticache){
    if(&hdbm_read(\%searchdb,$PEERS_searchdb)){
      $anticache=$searchdb{'_seqn_'};
      untie %searchdb;
    }else{
      $anticache=time^$$;
    }
  }
#  print "</TD></TR></TABLE>\n";
  print <<'!END!';
              <p><table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#bbdbbd">
                <tr> 
                  <td valign="top"><img src="/images/peers/tl.gif" width="9" height="9"></td>
                  <td>&nbsp;</td>
                  <td valign="top" align="right"><img src="/images/peers/tr.gif" width="9" height="9"></td>
                </tr>
                <tr> 
                  <td>&nbsp;</td>
                  <td>
                    <table border="0" width="100%" cellpadding="3" cellspacing="0">
                      <tr> 
                        <td>
!END!
  print $query->startform('POST',"$uri/search/__$anticache");
  print $query->hidden('submitting',1);
  print "<DL>\n";
  print "<DT>",$query->submit('',' Search '),"\n";
  print qq%<I><A HREF="$PEERS_helpurl?topic=search">Help</A> is available.</I>\n%;
  print "<DT><B>Surname:</B><DD>",$query->textfield('sname','',60),"\n";
  print "<DT><B>Department:</B><DD>",$query->textfield('dept','',60),"\n";
  print "<DT><B>Name of Institution/Company:</B><DD>",$query->textfield('inst','',60),"\n";
  @itypes=sort grep($_ ne '.z.other',keys %PEERS_itypes);
  print "<DT><B>Type of Institution:</B><DD>",$query->checkbox_group(
    -name => 'itype',
    -values => ['.all',@itypes],
    -labels => {%PEERS_itypes, '.all' => ' All '},
  ),"\n";
  print "<BR><B>or Other:</B> ",$query->textfield('itype_other','',50),"\n";
  print "<DT><B>Country:</B><DD>",$query->textfield('ctry','',60),"\n";
  print "<DT><B>Subject of interest:</B><DD>",$query->textfield('subj','',60),"\n";
  print "<DT><B>Sort results by:</B><DD>";
  print $query->popup_menu('sort1',\@PEERS_search_by_order,'sname',\%PEERS_db_fnames),"\n";
  print $query->popup_menu('sort2',['-',@PEERS_search_by_order],'-',{'-'=>'Secondary sort (optional)',%PEERS_db_fnames}),"\n";
  print "<DT><B>Search terms are:</B><DD>";
  $query->autoEscape(undef);
  print $query->radio_group('stype',['string','expr'],'string','true',\%stypes);
  $query->autoEscape('true');
  print qq%
    <I><A HREF="$PEERS_helpurl?topic=searchterms">Help</A>
    is available for boolean search terms.</I>
  %;
  print "<P><DT>",$query->submit('',' Search ');
  print "</DL>\n";
  print $query->endform;
  print <<"!END2!";
                        </td>
                      </tr>
                    </table>
                  </td>
                  <td>&nbsp;</td>
                </tr>
                <tr> 
                  <td valign="bottom"><img src="/images/peers/bl.gif" width="9" height="9"></td>
                  <td>&nbsp;</td>
                  <td valign="bottom" align="right"><img src="/images/peers/br.gif" width="9" height="9"></td>
                </tr>
              </table></p>
!END2!
#  print "$IopStyle::TABLE<TR><TD>\n";
}

&printFooter($help,$nhits?('main','search'):('main'),'add','update','help')
  unless $do_dump;


sub push_error{
  my($type,$error)=@_;

  push @errors,$error if $type eq 'fatal';
}