#! /usr/local/bin/perl

# Worldcat lookup redirect script


use CGI;
use CGI qw(:cgi-lib);

ReadParse();

$query= $in{'query'};
$engine= $in{'engine'};

$prefix="";
$suffix="";

if ($engine eq "google")
	{
	$prefix="http\:\/\/www.google.com\/search?q=";
	}
elsif ($engine eq "yahoo")
	{
	$prefix="http\:\/\/search.yahoo.com\/search?p=";
	$suffix="&dups=1"; #allows duplicates in display.  Default in Yahoo is to hide dups.
	}
else { die;}


$query=$prefix.$query."\+site\:worldcatlibraries.org".$suffix;

print "Content-type: text/html\n";
print "Location: $query\n\n";