I'm copying this note from a post I found on Geocrawler. I think Thierry
diserves a round of applause for actually posting something useful, so...
HooRah!!!!
I'm going to add some syntax highlighting to the code to make it cute, and
then we'll see.
FROM: Thierry Boudet
DATE: 12/01/1998 01:35:21
SUBJECT: RE: [PHP3] [php3] get the debug info
Rui Barreiros a �crit:
>
> how can i get the debug info that the php3 sends to
port 2000 (in my
> case)
>
=====================================================================
#!/usr/bin/perl -w
use Socket;
$port = 7869; # PHP debugger
my $proto = getprotobyname('tcp');
socket(Server, PF_INET, SOCK_STREAM, $proto)
or die "socket: $!";
setsockopt(Server, SOL_SOCKET, SO_REUSEADDR,
pack("l",1))
or die "setsockopt:
$!";
bind(Server, sockaddr_in($port, INADDR_ANY))
or die "bind: $!";
listen(Server, SOMAXCONN);
for ( ; $paddr = accept(Client, Server); close Client)
{
my ($port, $iaddr) = sockaddr_in($paddr);
my $name = gethostbyaddr($iaddr, AF_INET);
print "------------- $name $port --------";
while (<Client>) { print; }
}
=====================================================================
|