#!/usr/local/bin/perl


use CGI;

$q = new CGI;

$search = $q->param('search');
$using  = $q->param('using');

$search = CGI::escape($search);
$search =~ s/%20/+/g;


if ($using =~ /Yahoo/i) {
   $url = "http://search.yahoo.com/bin/search?p=$search";
} elsif ($using =~ /Metacrawler/i) {
   $url = "http://www.metacrawler.com/cgi-bin/nph-metaquery?general=$search";
} elsif ($using =~ /AltaVista/i) {
   $url = "http://altavista.digital.com/cgi-bin/query?q=$search";
} elsif ($using =~ /Hotbot/i) {   
   $url = "http://www.hotbot.com/?SM=MC&MT=$search";
} elsif ($using =~ /Infoseek/i) {      
   $url = "http://www.infoseek.com/Titles?qt=$search";
} elsif ($using =~ /Lycos/i) {
   $url = "http://www.lycos.com/cgi-bin/pursuit?query=$search";
} elsif ($using =~ /Dejanews/i) {
   $url = "http://search.dejanews.com/dnquery.xp?defaultOp=AND&ST=QS&svcclass=dncurrent&format=terse&QRY=$search";
} elsif ($using =~ /Webster/i) {
   $url = "http://www.m-w.com/cgi-bin/dictionary?va=$search";
} elsif ($using =~ /Google/i) {
   $url = "http://www.google.com/search?q=$search";
} elsif ($using =~ /Northern Light/i) {
   $url = "http://www.northernlight.com/nlquery.fcg?si=&cb=0&qr=$search";
} else {
   print $q->header;
   print "Unknown search engine, $using\n";
   exit(0);
}

print "Location: $url\n\n";