#!/usr/athena/bin/perl
# this resides in /mit/wwwdev/dev/uisearch/ncet
# salemme. based on todd's original script.
$cginame = "ncet";
# form data
$engine = 0;
$terms = 0;
#generated data
$searchurl = 0;
if ($ENV{'REQUEST_METHOD'} eq 'GET')
{
@pairs = split(/&/, $ENV{'QUERY_STRING'});
}
elsif ($ENV{'REQUEST_METHOD'} eq 'POST')
{
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
}
if (!@pairs)
{
&error("No arguments were entered.");
}
# Else split the pairs and preprocess
foreach $pair (@pairs)
{
local($cmd, $value) = split(/=/, $pair);
# command names in lower case for matching
$cmd =~ tr/A-Z/a-z/;
if ($cmd eq "engine")
{
$engine = $value;
}
if ($cmd eq "terms")
{
$terms = $value;
}
} #foreach
# Check for required data.
if (!$terms)
{
&error("No search terms were provided.");
}
# like the original query
$searchurl = "http://gloomybog.mit.edu/query.html?col=webmit&col=websrvrs&qt=" if ($engine eq "0");
$searchurl = "http://web.mit.edu/bin/cgicso?query=" if ($engine eq "1");
$searchurl = "http://www.mit.edu:8001/home?" if ($engine eq "2");
$searchurl = "http://gloomybog.mit.edu/query.html?col=webmit&qp=url%3Aweb.mit.edu%2Fcommunications%2Fbp%2F&lk=2&qt=" if ($engine eq "3");
# search default-searchable collections
$searchurl = "http://gloomybog.mit.edu/query.html?qt=" if ($engine eq "4");
# search athena lockers only
$searchurl = "http://gloomybog.mit.edu/query.html?col=webmit&qt=" if ($engine eq "5");
# search "mit webservers" only
$searchurl = "http://gloomybog.mit.edu/query.html?col=websrvrs&qt=" if ($engine eq "6");
# search iap guide only
$searchurl = "http://gloomybog.mit.edu/query.html?col=iap&qt=" if ($engine eq "7");
# search file scans only
$searchurl = "http://gloomybog.mit.edu/query.html?col=fscans&qt=" if ($engine eq "8");
# search everything
$searchurl = "http://gloomybog.mit.edu/query.html?col=webmit&col=websrvrs&col=iap&col=fscans&qt=" if ($engine eq "9");
# search the two main collections
$searchurl = "http://gloomybog.mit.edu/query.html?col=webmit&col=websrvrs&qt=" if ($engine eq "10");
print "Location: $searchurl$terms\n\n";
exit;
sub error
{
local($err) = @_;
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print " $cginame (Error)\n";
print "\n";
print "\n\n";
print "$err
\n\n";
print "\n";
print "\n";
exit;
}