#!/usr/bin/perl
#print "content-type: text/plain\n\n";
#print "in evaluation now. sorry.\n";
#open (OUTPUT, ">searchvars");
#select OUTPUT;
#for (@ARGV){
#print "$_\n"; };
#print "$ENV{q}\n";
#for (%ENV){
#print "$_=$ENV{$_}\n";
#};
#close OUTPUT;
#$_=$ENV{INDEX};
#s/WHERE=//;
#s/&=/%26/;
#s/%3A/:/g;
#s/%2F/\//g;
#s/%3F/\?/g;
#s/%26/\&/g;
#substr($ENV{INDEX},6);
#print $_;
$query=$ENV{VAR_query};
$where=$ENV{QUERY_where};
if ($where=="ucsd_webster"){
  $location="http://work.ucsd.edu:5141/cgi-bin/http_webster";
  $flags="?$query";}
elsif ($where="altavista"){
  $location=="http://altavista.digital.com/cgi-bin/query";
  $flags="?pg=q&text=yes&query=$query";}
elsif ($where=="kg_validate"){
  $location="http://ugweb.cs.ualberta.ca/~gerald/validate";
  $flags="?pedantic-weblinting=on&url=$query";}
elsif ($where=="PGG"){
  $location="http://megadodo.com/cgi-bin/articlesearch";
  $flags="?probtype=r&probtype=s&probtype=u&where=all&searchval=$query";}
elsif ($where=="prawda"){
  $location="http://$ENV{HTTP_HOST}/Harvest/cgi-bin/nph-search.cgi";
  $flags="?$query";};
#print "location=$location\nflags=$flags\nwhere=$where\nquery=$query";
system ("lynx -mime_header $location$flags");