#!/usr/bin/perl  
open(OUTF,">>/home/sites/home/web/ssi/hackernews.txt") or &dienice("Couldn't open defaced.txt for writing. Please notify
          webmaster\@www.cyberarmy.com.");
use Socket;

$server_url = "http://" . $ENV{'HTTP_HOST'};
$htproto = $ENV{'SERVER_PROTOCOL'};
$doc_root = $ENV{'DOCUMENT_ROOT'};
$target = $ENV{'REDIRECT_URL'};
$rstatus = $ENV{'REDIRECT_STATUS'};
$browser = $ENV{'HTTP_USER_AGENT'};
$rhost = $ENV{'REMOTE_HOST'};
$ref_url = $ENV{'HTTP_REFERER'};

$| = 1;
print "$ENV{'SERVER_PROTOCOL'} 200 OK\n";

print "Server: $ENV{'SERVER_SOFTWARE'}\n";
print "Content-type: text/html\n\n";
print OUTF <<header;

header
@values = split(/\&/,$ENV{'QUERY_STRING'});
foreach $i (@values) {
	($varname, $mydata) = split(/=/,$i);
	$FORM{$varname} = $mydata;
	}
$host = "attrition.org";

$host =~ tr/+/ /;
$host =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$badstring1 = "\.html";
$badstring2 = "http\://";
$badstring3 = "/";
$badstring4 = ".mil";
$badstring5 = ".gov";

if($host =~ $badstring1) { &dienice("You can't figure out what kind of a server a html file is running!"); }
if($host =~ $badstring2) { &dienice("Don't Enter the http:// part of the server!  Just enter foobar.com or www.foobar.com (substitute your server in for that)."); }
if($host =~ $badstring3) { &dienice("There should not be any /'s in the hostname!"); }
if($host =~ $badstring4) { &dienice("Hey, I got fucked over last time someone was scanning a .mil site.  Dont try it again!"); }
if($host =~ $badstring5) { &dienice("Hey, I got fucked over last time someone was scanning a .gov site.  Dont try it again!"); }



if($host !~ /[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+/) { gethostbyname($host) or &dienice("Error: Can't resolv $host dns/ip.\n"); }
	$serverIP = inet_aton($host);
	$serverAddr = sockaddr_in(80, $serverIP);
	$protocol_name = "tcp";
	socket(CLIENT, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
	if(connect(CLIENT, $serverAddr)) {
		send(CLIENT,"GET /mirror/attrition/index.html\n\n",0);
#		recv(CLIENT, $thedata, 10000000, undef);
		@thedata=<CLIENT>;
#		close(CLIENT); 
		print OUTF "\n<br></td></tr><tr><td bgColor=#886600><small><em>latest web hacks</em><base href=\"http://www.attrition.org/mirror/attrition/\"><br><br>\n\n";
		for ($z = 26; $z < 31; $z++) {

if ($thedata[$z] =~ /p align/i) {last;}

		print OUTF "$thedata[$z]<br>\n";
		}
	}
	else { print "\nConnection Refused on $host\n"; }	

print OUTF "<br></small><base href=\"http://www.cyberarmy.com\">";
Close OUTF;

sub dienice() {
	($msg) = @_;
	print "\n\nError:\n<p>$msg";
	exit;
}