# Source Fetcher - by dark2k1(dark2k1.com);

#!/usr/local/perl/bin

use CGI 'param';

$func = param('func');

if($func eq "process") {
$url = param('url');
$render = param('render');

	if($render) {
	print "Content-Type: text/html

";
	}

use LWP::Simple;
getprint($url);
} else {
print "Content-Type: text/html

";
print "
<center><h3>Source Fetcher</h3></center>

<center>
<form action='socket.pl' method='post'>
URL: <input type='text' name='url'><br>
Render: Yes<input type='radio' name='render' value='1'> No<input type='radio' name='render' value='0'><br>
<input type='hidden' name='func' value='process'>
<input type='submit' value='Get Source'>
</form>
</center>";
}