#!/usr/bin/perl use strict; use warnings; use CGI::Carp qw(fatalsToBrowser); use DBI; use CGI qw(:standard); my $q = new CGI; my $query = $q->param('query'); my $search_query = $query; $search_query =~ s/ /\+/g; print $q->header(); my $dbh = DBI->connect('DBI:mysql:db139512078', 'dbo139512078', 'bMdannBK', {RaiseError =>1}); &show; $dbh->disconnect(); sub show { my $check = $dbh -> prepare("SELECT * FROM words WHERE def='$query' LIMIT 1"); $check->execute(); while (my @row = $check -> fetchrow_array()) { my $term = uc $row[1]; &header($term); print qq|

$term

Find All Related Messages: $query
$row[2]



Find All Related Messages: $query |; &google_results($row[3]); &footer; } } sub google_results { my $query1 = $_[0] || 'medical+transcription'; my $query = "$query1 site:forum.mtstars.com"; use lib '/var/www/vhosts/mtstars.com/cgi-bin/lib'; use Net::Google; use constant LOCAL_GOOGLE_KEY => "egKsOdhQFHI5fTmONh+JUBzFgvJhDv5B"; my $google = Net::Google->new(key=>LOCAL_GOOGLE_KEY); my $search = $google->search(); # Search interface $search->query($query); $search->lr(qw(en fr)); $search->starts_at(0); $search->max_results(15); #map { print $_->snippet()."\n"; } @{$search->results()}; print qq|



More on WEB:   
|; my $result; foreach $result (@{$search->results()}) { my $url = $result->URL; my $title = $result->title; my $des = $result->snippet; $des =~ s/<b>//gi; $des =~ s/<\/b>//gi; $des =~ s/<br>//gi; $title =~ s/(<b>|<\/b>)//gi; print "$title
$des

\n"; } print "
\n"; } sub header { my $title = $_[0]; print qq| $title



CHAT now! Back Home
 

image

|; } sub footer { print qq|
image


|; } exit;