#!/bin/perl
require 'cgi-lib.pl';
&ReadParse(*in);
$buf=&PrintHeader;
print "$buf\n";
#&PrintVariables(%in);
$keyword = $in{'keyword'};
$selection = $in{'FormsRadioButton2'};
$keyword =~ s/\%/%25/g;
$keyword =~ s/ /%20/g;
# Selection Values
# altavista
# encyclopedia
# yahoo
# whitepages
# dictionary
# stargate
# google
# looksmart
# lycos
if ($keyword eq "") {
$framesource = "http://www.google.com";
} else {
if ($selection eq "looksmart") {
$framesource = "http://www.looksmart.com/r_search?key=$keyword&search=0&comefrom=iacj-search&isp=acj&look=";
} elsif ($selection eq "google") {
$framesource = "http://www.google.com/search?q=$keyword";
} elsif ($selection eq "dictionary") {
$framesource = "http://www.m-w.com/cgi-bin/dictionary?book=Dictionary&va=$keyword";
} elsif ($selection eq "thesaurus") {
$framesource = "http://www.m-w.com/cgi-bin/thesaurus?book=Thesaurus&va=$keyword";
} elsif ($selection eq "altavista") {
$framesource = "http://www.altavista.com/sites/search/web?q=$keyword&pg=q&avkw=tgz&kl=XX";
} elsif ($selection eq "yahoo") {
$framesource = "http://search.yahoo.com/bin/search?p=$keyword";
} elsif ($selection eq "help") {
$framesource = "http://help.stargate.net/cgi-bin/search/search.pl?Match=1&Terms=$keyword";
} elsif ($selection eq "lycos") {
$framesource = "http://search.lycos.com/default.asp?lpv=1&loc=searchhp&tab=web&query=$keyword";
}
}
open (OUT, ">>search.log");
print OUT "$keyword $selection \n";
close (OUT);
$url = $framesource;
$url =~ s/\%/%25/g;
$url =~ s/\&/%26/g;
$url =~ s/ /%20/g;
$url =~ s/\"/\'/g;
$url =~ s/\'/%27/g;
print "\n";
print "\n";
print "MyStargate.net\n";
print "\n";
print "\n";
print "\n";