#!/usr/bin/perl

# This is a CGI script to do a complex search of the oanda database.
# It is to be installed at /web/herald/htdocs/heraldry/OandA/oanda_complex.cgi on atensubmissions.nexiliscom.com.

# Set URL for this script.
$cgi_url = '/cgi-bin/heraldry/OandA/oanda_complex.cgi';

require '/web/herald/cgi-bin/heraldry/OandA/common.pl';

# Set title for form.
$form_title = 'Complex Search Form';

$criteria = 5;

# option settings

@methods = ('', 'armory description', 'name pattern', 'record type', 'blazon pattern', 'broad name');

@sorts = ('score and name', 'score only', 'name only', 'last action date', 'blazon');
$sort = 'score and name';  # default

foreach $pair (split (/\&/, $ENV{'QUERY_STRING'})) {
  ($left, $right) = split (/=/, $pair, 2);
  $left = &decode ($left);
  $right = &decode ($right);

  if ($left =~ /^w(\d+)$/) { 
    $weight[$1] = $right if ($1 > 0 && $1 <= $criteria);
  } elsif ($left =~ /^m(\d+)$/) {
    $method[$1] = $right if ($1 > 0 && $1 <= $criteria);
  } elsif ($left =~ /^p(\d+)$/) {
    $p[$1] = $right if ($1 > 0 && $1 <= $criteria);
  }
  $arm_descs = $right if ($left eq 'a');
  $era = $right if ($left eq 'd');
  $gloss_links = $right if ($left eq 'g');
  $limit = $right if ($left eq 'l');
  $sort = $right if ($left eq 's');
}
$limit = 25
  if ($limit !~ /^\d+$/);

&print_header ();

$invalid = 0;
$valid = 0;
for $i (1 .. $criteria) {
  if ($weight[$i] !~ /^[+&]?\d+$/) {
    if ($method[$i] ne '') {
      print "<h4>You specified an invalid weight ($weight[$i]) for criterion #$i; a weight must be a positive number.</h4>";
      $invalid++;
    }
  } else {
    if ($method[$i] eq '') {
      print "<h4>You specified a weight ($weight[$i]) for criterion #$i without specifying a search method.</h4>";
      $invalid++;
    } else {
      $valid++;
    }
  }
}

if ($valid > 0 && $invalid == 0) {
  &connect_to_data_server ();

  print S 'l ', $limit;
  for $i (1 .. $criteria) {
    if ($method[$i] eq 'name pattern') {
      print S "e1 $weight[$i] $p[$i]";
    } elsif ($method[$i] eq 'record type') {
      $temp = $p[$i];
      s/([^\\])?/$1\\?/g;
      print S "e3 $weight[$i] ^($p[$i])\$";
    } elsif ($method[$i] eq 'armory description') {
      print S "d0 $weight[$i] $p[$i]";
    } elsif ($method[$i] eq 'blazon pattern') {
      print S "ebi $weight[$i] $p[$i]";
    } elsif ($method[$i] eq 'broad name') {
      print S "n $weight[$i] $p[$i]";
    }
  }
  print S 'EOF';

  $n = &get_matches ();
  
  if ($sort eq 'score only') {
    $scoresort = 1;
  } elsif ($sort eq 'score and name') {
    $scoresort = 1;
    @matches = sort byscorename @matches;
  } elsif ($sort eq 'name only') {
    $scoresort = 0;
    @matches = sort byname @matches;
  } elsif ($sort eq 'last action date') {
    $scoresort = 0;
    @matches = sort bylastdate @matches;
  } elsif ($sort eq 'blazon') {
    $scoresort = 0;
    @matches = sort byblazon @matches;
  }
}
  
print '<p>There are <a href="/oanda.shtml">other search forms</a> available.';
print 'For help using this form, please refer to the <a href="/heraldry/OandA/hints_complex.html">hints page</a>.';
  
print '<h3>Scoring criteria:</h3><ol>';
for $i (1 .. $criteria) {
  print '<li>weight=';
  print '<input type="text" name="w', $i, '" value="', $weight[$i], '" size=3>';

  # method selector
  print 'method=';
  &select ("m$i", $method[$i], @methods);

  print 'pattern=';
  print '<input type="text" name="p', $i, '" value="', $p[$i], '" size=20>';
}
print '</ol>';
print '<p>Maximum number of items to display -&#62;';
print '<input type="text" name="l" value="', $limit, '" size=3>';

&display_options ();

print '<h3>Actions:</h3>';
print '<input type="submit" value="search for items matching the above criteria">';
print '<a href="', $cgi_url, '">[reset the scoring criteria]</a>';
print '</form>';

if ($valid) {
  print '<hr>';
  &print_results ('the scoring criteria above', $n, $scoresort);
}
&print_trailer ();
# end of /web/herald/htdocs/heraldry/OandA/oanda_complex.cgi