One of the other features that my AJAX application had was Related Searches. This API connected to the Yahoo API and performed a query. The query is a single search term; the results are searches that a User could perform to get similar results.

For instance if you were to put the keyword "Kinlan" into the API, it might bring back searches that would related to "Kinlan", so "Funky Person, Cool Dude and Amazing Geeza" might be some of the searhes that would also relate to the topic of Kinlan.

This is quite a handy little thing, because you can link it in with my previous entry to bring back all the related searches to all the keywords are provided.

The idea was to allow me to specify some searches that would allow the reader to target related topics and subjects through a search engine such as MSN, Google or Yahoo

Anyway, here is the code.

#!/usr/bin/perl

use LWP;
use CGI qw(:standard);
$CGI::POST_MAX=1024 * 100;  # max 100K posts

my($qCGI) = new CGI();
my($YahooAppID) = "APPIDHERE";
my($baseUrl) = "http://api.search.yahoo.com/
WebSearchService/V1/relatedSuggestion";

my($query) = $qCGI->param('query');
my($finalUrl) = $baseUrl

$ua = LWP::UserAgent->new;
$ua->agent("YahooPassThrough/0.1 ");

# Create a request
my $req = HTTP::Request->new(POST => $finalUrl);
$req->content(
"appid=$YahooAppID&query=$query&results=50");

# Pass request to the user agent
 and get a response back
my $res = $ua->request($req);

print "Content-type: text/xml\n\n";
print $res->content;

Technorati Tags

Cgi [feed], Related Searches [feed], Proxy Script [feed], Lwp [feed], Api [feed], Google [feed], Search Term [feed], Search Engine [feed], Msn [feed], Ajax [feed], Keywords [feed]