#!/usr/bin/perl
# This is a CGI script to do a desc search of the oanda database.
# It is to be installed at /web/herald/htdocs/heraldry/OandA/oanda_desc.cgi on atensubmissions.nexiliscom.com.
# Set URL for this script.
$cgi_url = '/cgi-bin/heraldry/OandA/oanda_desc.cgi';
# Set title for form.
$form_title = 'Armory Description Search Form';
require '/web/herald/cgi-bin/heraldry/OandA/common.pl';
# Process arguments.
foreach $pair (split (/\&/, $ENV{'QUERY_STRING'})) {
($left, $right) = split (/[=]/, $pair, 2);
$left = &decode ($left);
$right = &decode ($right);
$p = $right if ($left =~ 'p');
}
&print_header ();
if ($p ne '') {
&connect_to_data_server ();
print S 'd0 1 ', $p;
print S 'EOF';
$n = &get_matches ();
$scoresort = 0;
@matches = sort byblazon @matches;
}
print '
There are other search forms available.';
print 'For help using this form, please refer to the hints page.';
print '
Enter a description of the armory for which you are searching ->';
print '';
print '
Actions:
';
print '';
print '';
if ($p ne '') {
print '';
&print_results ("description=\"".&escape($p)."\"", $n, $scoresort);
print 'convert to complex search'
}
&print_trailer ();
# end of /web/herald/htdocs/heraldry/OandA/oanda_desc.cgi