Test Here: http://rodan.ics.uci.edu:$ port/\n\n"; print "
\n\n";
# Subroutine declaration
$SIG{'INT'} = sub {
print STDERR "bytes_sent = $bytes_out, bytes_received = $bytes_in\n";
exit 0;
};
socket(SOCK, AF_INET, SOCK_STREAM, $protocol) or die "socket() failed: $!";
setsockopt(SOCK,SOL_SOCKET,SO_REUSEADDR,1) or die "Can't set SO_REUSADDR: $!" ;
my $my_addr = sockaddr_in($port,INADDR_ANY);
bind(SOCK,$my_addr) or die "bind() failed: $!";
listen(SOCK,SOMAXCONN) or die "listen() failed: $!";
warn "waiting for incoming connections on port $port...\n";
next unless my $remote_addr = accept(SESSION,SOCK);
my ($remotePort,$hisaddr) = sockaddr_in($remote_addr);
warn "Connection from [",inet_ntoa($hisaddr),",$remotePort]\n";
SESSION->autoflush(1);
# Generates a page whenever the server is accesse by a web server.
# It dies after the generation.
while (Fake Web Server
";
print SESSION " This is a HTML page generated on port $port
";
print SESSION " The browser used port $remotePort to request this page
";
print SESSION "";
warn "Connection from [",inet_ntoa($hisaddr),",$port] finished\n";
warn "Closing session...\n";
close SESSION;
}
close SOCK;