ansaurus

Question

Connection resets with simple Perl script

Answer 1

A:

Does HTTP::Daemon help? It is included in the core.

Results of searching Google for windows xp sp3 tcp connection limit might also be relevant.

Sinan Ünür 2009-10-07 20:16:01

I really don't think that article is referring to TCP, but rather SMB

Hasturkun 2009-10-07 20:20:35

@Hasturkun Thank you for pointing that I linked to the wrong article. I remember something about a limit on TCP connections as well, but I have not found the article yet.

Sinan Ünür 2009-10-07 21:10:10

Answer 2

+1 A:

Isn't fork on Win32 known as broken?

Really since your child process is doing something totally different from your parent section, you might be better off with threads.

In answer to your question in the comments, just think about replacing all your forking logic (!!) with

$peer_name = $connection->peerhost();
threads->create( \&do_it, $connection );
say "Got connection from $peer_name";

( See this for example. ) And don't worry about closing connection anywhere else but the server thread.

Axeman 2009-10-07 20:22:42

Is there an application that I can use that does what this script does? I won't be able to sort out this script to use threads in short time.

ZimmyDubZongyZongDubby 2009-10-07 20:51:01

This sounds like it. My guess is that the close() call in the parent is closing the child's descriptor too, and they are racing against each other. Certainly doing Unix-style fork is never going to be a good choice on windows, even when it works.

Andy Ross 2009-10-08 18:26:00

@Andy Ross: I was thinking that, but I also wondered about the problem of having two separate processes both thinking they have the same descriptor open. That looks like pretty undefined behavior as well.

Axeman 2009-10-08 21:28:22

Answer 3

A:

My module HTTP::Server::Brick works on Windows, but the tests hang on Strawberry perl unfortunately (it's on the todo list) so you would either need to do a manual install, or just copy in the single perl Module and use cpan to install the dependencies. It does however build/test fine under cygwin on Windows and of course on unix.

Here's how I'd implement your requirement using HTTP::Server::Brick, noting that it is fairly naive and suffers from the same problem as yours in that there is no upper limit on the number of threads/processes.

use strict;
use warnings;

use HTTP::Server::Brick;
use HTTP::Status qw(:constants);

my $server = HTTP::Server::Brick->new( port => 80 );

my $html = join '', <DATA>;

$server->mount( '/' => {
 wildcard => 1,
 handler => sub {
  my ($req, $res) = @_;
  $res->add_content($html);
  return HTTP_SERVICE_UNAVAILABLE;
 },
   });

$server->start;

__DATA__
<html>
<head><title>Down for Maintenance</title></head>
<body>
<h2>Down for Maintenance</h2>
<p>The site is down for maintenance. It will be online again shortly.</p>
</body>
</html>

Also a quick note about the comment re perl fork on windows known to be broken, it basically just uses perl threads to mimic the fork() call. It's not seamless, but for simple situations it's an easy way of using threads.

One final note - maybe you're just better off installing cygwin plus the apache or lighthttpd package? Sending a 503 for all urls is a pretty short apache config file.

Mark Aufflick 2009-10-08 00:54:06

ansaurus

tags:

views:

answers:

Connection resets with simple Perl script

related questions