#!/usr/bin/perl
# Michael Tartaglia
# browser.cgi
# Program reads in an entered Web site address, and returns,
# 	via visiting browser, the HTML source code found at
#	that address


use CGI ':standard';
use LWP::UserAgent;
require template;

template::startHTML("Freelance Program","Cheapo HTML Browser");

my $uri = param("uri");		# DESIRED URL OF SOURCE CODE

if ($uri ne "") {
 my $agent = new LWP::UserAgent();
 my $request = new HTTP::Request('GET' => $uri);
 my $response = $agent->request($request);

 if ($response->is_success()) {
  my $file = $response->content();	# SOURCE CODE RETRIEVED
  print "<font size=1 face=\"Courier\">",
        "<textarea cols=42 wrap=no rows=45>$file</textarea></font>";
 } else {
  print "<font color=red>Your web address returned zilch!</font>\n";
 }

 print "<HR><BR><B>Try another search?</B>";
}


# END PROGRAM BY DISPLAYING QUERY BOX AGAIN
print <<end;
	<FORM ACTION="browser.cgi" METHOD="post">
	Enter address in the field below, then hit "Get It".
	<INPUT TYPE="text" NAME="uri" VALUE="http://" size=40>
	<BR><INPUT TYPE="submit" VALUE="Get It">
end


template::endHTML();