p5pRT
commented
23 years ago From @nwc10
Created by @nwc10
What's the \
Bugs remaining
1: I've no idea what the missing text after "We'll" should be:
a time. Multithreaded servers are covered in Chapter 6 of the Camel.
Here's the code. We'll
#!/usr/bin/perl -w
2: The example that follows uses Net::hostent. It's not working becuse Net::hostent in bleadperl is shagged.
3: Net::hostent doesn't have a regression test to detected that it's shagged.
Hopefully I'll get a chance to fix 2 and 3 tomorrow.
Nicholas Clark
*** pod/perlipc.pod.orig Tue Nov 7 00:12:07 2000
--- pod/perlipc.pod Tue Nov 28 10:58:41 2000
***************
*** 660\,673 ****
BEGIN { $ENV{PATH} = '/usr/ucb:/bin' }
use Socket;
use Carp;
! $EOL = "\015\012";
sub logmsg { print "$0 $$: @_ at "\, scalar localtime\, "\n" }
my $port = shift || 2345;
my $proto = getprotobyname('tcp');
! ($port) = $port =~ /^(\d+)$/ || die "invalid port";
socket(Server\, PF_INET\, SOCK_STREAM\, $proto) || die "socket: $!";
setsockopt(Server\, SOL_SOCKET\, SO_REUSEADDR\,
--- 660\,673 ----
BEGIN { $ENV{PATH} = '/usr/ucb:/bin' }
use Socket;
use Carp;
! my $EOL = "\015\012";
sub logmsg { print "$0 $$: @_ at "\, scalar localtime\, "\n" }
my $port = shift || 2345;
my $proto = getprotobyname('tcp');
! ($port) = $port =~ /^(\d+)$/ or die "invalid port";
socket(Server\, PF_INET\, SOCK_STREAM\, $proto) || die "socket: $!";
setsockopt(Server\, SOL_SOCKET\, SO_REUSEADDR\,
***************
*** 703\,709 ****
BEGIN { $ENV{PATH} = '/usr/ucb:/bin' }
use Socket;
use Carp;
! $EOL = "\015\012";
sub spawn; # forward declaration
sub logmsg { print "$0 $$: @_ at "\, scalar localtime\, "\n" }
--- 703\,709 ----
BEGIN { $ENV{PATH} = '/usr/ucb:/bin' }
use Socket;
use Carp;
! my $EOL = "\015\012";
sub spawn; # forward declaration
sub logmsg { print "$0 $$: @_ at "\, scalar localtime\, "\n" }
***************
*** 711\,717 ****
my $port = shift || 2345;
my $proto = getprotobyname('tcp');
! ($port) = $port =~ /^(\d+)$/ || die "invalid port";
socket(Server\, PF_INET\, SOCK_STREAM\, $proto) || die "socket: $!";
setsockopt(Server\, SOL_SOCKET\, SO_REUSEADDR\,
--- 711\,717 ----
my $port = shift || 2345;
my $proto = getprotobyname('tcp');
! ($port) = $port =~ /^(\d+)$/ or die "invalid port";
socket(Server\, PF_INET\, SOCK_STREAM\, $proto) || die "socket: $!";
setsockopt(Server\, SOL_SOCKET\, SO_REUSEADDR\,
***************
*** 865\,870 ****
--- 865\,871 ----
use Carp;
BEGIN { $ENV{PATH} = '/usr/ucb:/bin' }
+ sub spawn; # forward declaration
sub logmsg { print "$0 $$: @_ at "\, scalar localtime\, "\n" }
my $NAME = '/tmp/catsock';
***************
*** 899\,904 ****
--- 900\,928 ----
print "Hello there\, it's now "\, scalar localtime\, "\n";
exec '/usr/games/fortune' or die "can't exec fortune: $!";
};
+ }
+
+ sub spawn {
+ my $coderef = shift;
+
+ unless (@_ == 0 && $coderef && ref($coderef) eq 'CODE') {
+ confess "usage: spawn CODEREF";
+ }
+
+ my $pid;
+ if (!defined($pid = fork)) {
+ logmsg "cannot fork: $!";
+ return;
+ } elsif ($pid) {
+ logmsg "begat $pid";
+ return; # I'm the parent
+ }
+ # else I'm the child -- go spawn
+
+ open(STDIN\, "\<&Client") || die "can't dup client to stdin";
+ open(STDOUT\, ">&Client") || die "can't dup client to stdout";
+ ## open(STDERR\, ">&STDOUT") || die "can't dup stdout to stderr";
+ exit &$coderef();
}
As you see\, it's remarkably similar to the Internet domain TCP server\, so
Migrated from rt.perl.org#4792 (status was 'resolved')
Searchable as RT4792$