#!/usr/bin/perl -w
# serverfork.pl - a server that forks a child
# process to handle client connections
use IO::Socket;
use Sys::Hostname;
use POSIX qw(:sys_wait_h);
sub REAP {
    1 until (-1 == waitpid(-1, WNOHANG));
    $SIG{CHLD} = \&REAP;
}
$SIG{CHLD} = \&REAP;
my $sock = new IO::Socket::INET(
                   LocalPort => 5555,
                   Proto     => 'tcp',
                   Listen    => SOMAXCONN,
                   Reuse     => 1,
                   Blocking  => 0);
$sock->autoflush(1);
$sock or die "no socket :$!";
my($new_sock, $buf, $kid);
while ($new_sock = $sock->accept()) {
    # execute a fork, if this is
    # the parent, its work is done, 
    # go straight to continue
    next if $kid = fork;
    die "fork: $!" unless defined $kid;
    # child now...
    # close the server - not needed
    #close $sock;
    $needed = true;
    if($kid){
    }else{
	    while ($needed) {
			my $outSock = new IO::Socket::INET (
				PeerAddr => 'XXX.XXX.XXX.XXX',
				PeerPort => '80',
				Proto => 'tcp',
			); die "Could not create socket: $!\n" unless $outSock;
			$done = 0;
			$post = 0;
			print "______________REQUEST_________________\n";
			while($done == 0) {
				print "Reading...\n";
				$buf = <$new_sock>;
				print "Read.\n";
				@header = split(/ /, $buf);
				print $outSock $buf;
				print $buf;
				if($header[0] eq "POST"){
					$post = 1;
				}
				if($buf =~ /^\r\n/ && $post == 0){
					$done = 1;
					print "Done get: $done\n";
				}if($buf =~ /^\r\n/ && $post == 1){
					print "Post Data: ".<$new_sock>;
					$done = 1;
					print "Done post: $done\n";
				}
			}
			print "______________RESPONSE_________________\n";
			while (($buf = <$outSock>)) {
				print $new_sock $buf;
				#print $buf;
			}
			print "______________END_________________\n";
			if(!$outSock){
				close($outSock);
				$needed = false;
			}
	    }
    }
    #exit;
} continue {
    print "Closing\n";
    # parent closes the client since
    # it is not needed
    close $new_sock;
}