Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

http Redirector

by ginseng (Pilgrim)
on Sep 23, 2001 at 10:29 UTC ( #114146=snippet: print w/replies, xml ) Need Help??
Description: With the tremendous traffic caused by the nimdA virus, one of our really old servers couldn't keep up with the load on its web server. (Load averages hit 200 at one point.) Besides, all it really did was redirect traffic elsewhere. I threw together this perl snippet with the help of a Google search to sit on port 80 and do the redirecting more efficiently than Apache was, I think.
use strict;
use Socket;

local $SIG{PIPE} = 'IGNORE';

my $proto = getprotobyname('tcp');
my $port = 80;

socket(Server, PF_INET, SOCK_STREAM, $proto) or die "socket: $@";
setsockopt(Server, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) or die "set
+sockopt: $!";
bind(Server, sockaddr_in($port, INADDR_ANY)) or die "bind: $!";
listen(Server, SOMAXCONN) or die "listen: $!";
my $paddr;
for (; $paddr = accept(Client, Server); close Client) {
  print Client "HTTP/1.0 302 Over there\n";
  print Client "Location:\n\n";
Replies are listed 'Best First'.
Re: http Redirector
by merlyn (Sage) on Sep 23, 2001 at 12:56 UTC
    This is one of those programs that gets a bunch simpler when you use more modern interfaces. Programs that "use Socket" and nothing higher should generally be rewritten.
    #!/usr/bin/perl use strict; use IO::Socket; my $s = IO::Socket::INET->new( LocalPort => 80, Listen => 5, Reuse => 1, MultiHomed => 1) or die; while (my $c = $s->accept) { print $c "HTTP/1.0 302 Over there\n"; print $c "Location:\n\n"; }

    -- Randal L. Schwartz, Perl hacker

      Merlyn, as always your code looks sweet. Thank you.

      I have used IO::Socket before, and would have preferred use it again. However, this machine is an antiquated (legacy) SCO server that is thoroughly broken. We fear change on this box, and instead are migrating all services away, to OpenBSD computers. This philosophy led me to use the internal socket instead.

      Regardless of my reasons, I agree that your code is preferable!

      Thank you also for the benchmarking. I had no idea that the performance difference would be so great. I had hoped to eke out just a few more requests. Sounds like it may handle dozens. Since the nimdA virus seems to hit servers with 16 requests at a time, we should be in good shape until we can take that box offline.

Re: http Redirector
by echo (Pilgrim) on Sep 23, 2001 at 14:26 UTC
    This code handles one request at a time, hence serializing all requests. If the request rate is high, I don't see how this can bring more performance than Apache, which if properly tuned will have multiple processes ready to handle simultaneous requests.
      Apache has far more overhead from connect to response. And ultimately, all requests are serialized anyway, because only one process can accept at a time. And on a monoprocessor machine, the ultimate code execution is serial as well {grin}.

      I'd imagine this script (the original version or my version) would handle demonstratably more requests per second than Apache would.

      -- Randal L. Schwartz, Perl hacker


      Yes, I just benchmarked it. My apache did about 80 requests per second, and my Perl program did about 750(!) requests per second. This was for 10 concurrent requests, timed over 1000 requests, using the apache bench program.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: snippet [id://114146]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (1)
As of 2022-05-21 18:07 GMT
Find Nodes?
    Voting Booth?
    Do you prefer to work remotely?

    Results (77 votes). Check out past polls.