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/perluse LWP;use CGI qw(:standard);$CGI::POST_MAX=1024 * 100; # max 100K postsmy($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 requestmy $req = HTTP::Request->new(POST => $finalUrl);$req->content("appid=$YahooAppID&query=$query&results=50");# Pass request to the user agent and get a response backmy $res = $ua->request($req);print "Content-type: text/xml\n\n";print $res->content;
