#!/usr/local/bin/perl
#Returns reselt of searching bibliography for LISS-380-83.
#####################
# initial data
open(BIB, "../bib");
$head = "Content-type: text/html\n\n";
$head .= "\n\n";
$head .= "LISS.380-83 BIBLIOGRAPHY SEARCH\n";
$head .= "\n";
$head .= "\n";
$head .= "
\n";
$head .= "![\"\"](\"/fs_home/jsneed/courses/LISS.380-83/images/logo03.gif\")
\n";
$head .= "LISS.380-83 ENVIRONMENT and HUMAN ADAPTATION in the NEW WORLD
\n";
$head .= "BIBLIOGRAPHY SEARCH
\n";
$head .= "
\n";
$head .= "
\n";
$tail = "
\n";
$tail .= "\n";
$tail .= "Colorado School of Mines
\n";
$tail .= "\n";
$tail .= "Division of Liberal Arts and International Studies
\n";
$tail .= "\n";
$tail .= "Dr. Joseph D. Sneed
\n";
$tail .= "\n";
$tail .= "jsneed@mines.edu\n";
$tail .= "
\n";
$tail .= "\n\n";
#####################
# get desired index number from dosearch result display
$word = $ENV{QUERY_STRING};
#####################
# send bibliography entry
print $head;
#print "INDEX NUMBER:
\n";
#print "$word
\n";
print "BIBLIOGRAPHY ENTRY:
\n";
#####################
# get bibliography entry and send
$word =~ s/\[/\\\[/; #convert $word to perl syntax
$word =~ s/\]/\\\]/;
####################
#search for entry corresponding to $word
$output = "\n";
while() {
until ($_ eq "\n") {
if (/\[.*\]/) {
$rec = 0;
}
if (/$word/) {
$rec = 1;
}
if ($rec) {
$output .= $_;
}
last;
}
}
print $output;
print "<\/DL>\n";
print $tail;