Untitled Document

#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser); use CGI qw(:cgi); use LWP::Simple;

use Time::Local; use Net::Google; use constant LOCAL_GOOGLE_KEY => "yourgooglekey";@address ={"www.reuters.com","www.cnn.com","www.nytimes.com"};
my $pageCall = get("http://your.site.com/vari.txt");
my $stamp = get("http://your.site.com/stamp.txt");
chomp($stamp);
my $google = Net::Google->new(key=>LOCAL_GOOGLE_KEY,maxResults=>1,);
my $search = $google->search();
my $query = $pageCall;$search->query($query);print $pageCall . "\n";
print $stamp . "\n";
###############
@gtitle = @{$search->results()};;
print $gtitle[0]->title() . "\n";open (fileOUT, ">title.txt");
print fileOUT $gtitle[0]->title() . "\n";
close (fileout);@gsummary = @{$search->results()};;
print $gsummary[0]->summary() . "\n";open (fileOUT, ">summary.txt");
print fileOUT $gsummary[0]->summary() . "\n";
close (fileout);@gsnippet = @{$search->results()};;
print $gsnippet[0]->snippet() . "\n";open (fileOUT, ">snippet.txt");
print fileOUT $gsnippet[0]->snippet() . "\n";
close (fileout);@gurl = @{$search->results()};;
#\print $gurl[0]->URL() . "\n";open (fileOUT, ">url.txt");
print fileOUT $gurl[0]->URL() . "\n";
close (fileout);###############
print fileOUT "<table width=\"500\" border=\"0\"/>";
print fileOUT "<tr>";
print fileOUT "<th scope=\"col\">";print fileOUT "</th>";
print fileOUT "<th scope=\"col\">";print fileOUT "</th>";
print fileOUT "</tr>";
print fileOUT "</table>";
open (fileOUT, ">directory/path /text/" . $stamp . "\.shtml");
print fileOUT "<div align=\"center\">";
print fileOUT "<table width=\"370\" border=\"0\"/>";
print fileOUT "<div align=\"center\">";
print fileOUT "<tr>";
print fileOUT "<th scope=\"col\">";print fileOUT "<div align=\"right\">";
print fileOUT "<img src=\"../images/".$pageCall.".jpg\"><br><br>";print fileOUT "</div>";
print fileOUT "</th>";
print fileOUT "</tr>";
#print fileOUT "<th scope=\"col\">";
print fileOUT "<tr>";
print fileOUT "<td>";
print fileOUT "<div align=\"left\">";#print fileOUT "<img src="images/" . $stamp . "\.jpg" />"
print $pageCall . "\n";
print fileOUT "<p>";
print fileOUT "<a href=\"".$gurl[0]->URL()."\">";
print fileOUT $pageCall;
print fileOUT "</a>";
print fileOUT "</p>";
print fileOUT $gtitle[0]->title() . "\n";
print fileOUT "<p>";
print fileOUT $gsummary[0]->summary();
print fileOUT $gsnippet[0]->snippet();
print fileOUT "</p>";
#print fileOUT "<p>";
#print fileOUT "<a href=\"".$gurl[0]->URL()."\">";
#print fileOUT $pageCall;
#print fileOUT "</a>";
#print fileOUT "</p>";
#print fileOUT "<p>";
#print fileOUT $gurl[0]->URL() . "\n";
#print fileOUT "</p>";
print fileOUT "</div>";print fileOUT "</td>";
print fileOUT "</tr>";
print fileOUT "</div>";
print fileOUT "</table>";
print fileOUT "</div>";
close (fileOUT);open (fileOUT, ">directory/path/main.txt");
print fileOUT "<tr>";
print fileOUT "<th scope=\"col\">";
print fileOUT "<div align=\"right\">";
print fileOUT "<img src=\"images/".$pageCall.".thumb.jpg\"><br><br>";print fileOUT "</div>";
print fileOUT "</th>";
print fileOUT "<th scope=\"col\">";
print fileOUT "<div align=\"left\">";#print fileOUT "<img src="images/" . $stamp . "\.jpg" />"
print $pageCall . "\n";
print fileOUT "<span class=\"style3\">";
print fileOUT "<p>";
print fileOUT "<a href=\"".$gurl[0]->URL()."\">";
print fileOUT "<big>";
print fileOUT $pageCall;
print fileOUT "</big>";
print fileOUT "</a>";
print fileOUT "</p>";
#print fileOUT "<span class=\"style3\">";
print fileOUT $gtitle[0]->title() . "\n";
print fileOUT "<p>";
print fileOUT $gsummary[0]->summary();
print fileOUT $gsnippet[0]->snippet();
print fileOUT "</p>";
#print fileOUT "<p>";
#print fileOUT "<a href=\"".$gurl[0]->URL()."\">";
#print fileOUT $pageCall;
#print fileOUT "</a>";
#print fileOUT "</p>";
#print fileOUT "<p>";
#print fileOUT $gurl[0]->URL() . "\n";
#print fileOUT "</p>";
print fileOUT "</span>";print fileOUT "</div>";print fileOUT "</th>";
print fileOUT "</tr>";
close (fileOUT);
open (fileOUT, ">directory/path/cell.wml");print fileOUT "<!DOCTYPE html PUBLIC \"-//WAPFORUM//DTD XHTML Mobile 1.0//EN\" \"http://www.wapforum.org/DTD/xhtml-mobile10.dtd\">";
print fileOUT "<html>";print fileOUT "<head>";
print fileOUT "</head>";
print fileOUT "<body>";
#print fileOUT "<img src=\"../images/".$pageCall.".thumb.jpg\"/><br/><br/>";print fileOUT "<img src=\"cell.jpg\"/><br/><br/>";#print fileOUT "<a href=\"".$gurl[0]->URL()."\"/>";
print fileOUT $pageCall;
#print fileOUT "</a>";print fileOUT $gtitle[0]->title() . "\n";
print fileOUT $gsummary[0]->summary() . "\n";
print fileOUT $gsnippet[0]->snippet() . "\n";
#print fileOUT "<a href=\"".$gurl[0]->URL()."\"/>";
#print fileOUT $pageCall;
#print fileOUT "</a>";
#print fileOUT $gurl[0]->URL() . "\n";
print fileOUT "</BODY>";print fileOUT "</HTML>";
close (fileOUT);open (fileOUT, ">directory/path/cell.html");print fileOUT "<!DOCTYPE html PUBLIC \"-//WAPFORUM//DTD XHTML Mobile 1.0//EN\" \"http://www.wapforum.org/DTD/xhtml-mobile10.dtd\">";
print fileOUT "<html>";print fileOUT "<head>";
print fileOUT "</head>";
print fileOUT "<body>";
print fileOUT "<img src=\"latest.jpg\"/><br/><br/>";#print fileOUT "<a href=\"".$gurl[0]->URL()."\"/>";
print fileOUT $pageCall;
#print fileOUT "</a>";print fileOUT $gtitle[0]->title() . "\n";
print fileOUT $gsummary[0]->summary() . "\n";
print fileOUT $gsnippet[0]->snippet() . "\n";
#print fileOUT "<a href=\"".$gurl[0]->URL()."\"/>";
#print fileOUT $pageCall;
#print fileOUT "</a>";
#print fileOUT $gurl[0]->URL() . "\n";
print fileOUT "</BODY>";print fileOUT "</HTML>";
close (fileOUT);