#!/usr/bin/perl

$!=1;

use HTTP::Request;
use HTTP::Response;
use LWP;
use LWP::Simple;
use LWP::UserAgent;

print "Content-Type: text/html\n\n";

#Get the list of all urls and strings from the file
open(URLS, "urls.txt");
@url_list = <URLS>;
close(URLS);

print "<table border=1 cellspacing=0 cellpadding=2>\n";
print "<tr><td><b>URL</b></td><td><b>Status</b></td><td><b>String Found on Page</b></td></tr>";

foreach $line (@url_list) {
	chomp($line);	

	#Seprate url and the string
	@values = split(',',$line);

	http200check($values[0],$values[1]);
}

print "</table>\n";
exit;


sub http200check {

my $u=@_[0];
my $read_line=@_[1];

my $ua = LWP::UserAgent->new(timeout => 240);
$agent="Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Alexa Toolbar) K";
$ref = "http://www.adroitweb.com/cgi-bin/monitor.cgi";
#print "[$u]\n";

$ua->agent($agent);
$req = HTTP::Request->new(GET => $u); 
$req->referer($ref);

#Get the url
$resp = $ua->request($req);
$code = $resp->code;

#If it is success
if ($resp->is_success) {
	$fullresp = $resp->content();

	#If line is found on the page
	if($fullresp =~ m/$read_line/) {
		print "<tr><td>$u</td><td><font color=green>Success</font></td><td>$read_line</td></tr>\n";
	} else { # line not found on the page
		print "<tr><td><b>$u</b></td><td><font color=red><b>Failed</b></font></td><td><font color=red><b>Site Up. Strong Not Found: '$read_line'</b></font></td></tr>\n";
	}
} else { # page could not be fetched.
	print "<tr><td><b>$u</b></td>";
	print "<td><font color=red><b>Failed</b></td><td><font color=red><b>Site not reachable. HTTP Code: $code</b></font></td></tr>\n";
}

} # end of function http200check