Re^2: Getting client ip address from socket connect

Or even the peerhost() method if you want the IP address directly in the usual dotted-quad(x.x.x.x) notation.

Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it. -- Brian W. Kernighan

Comment on Re^2: Getting client ip address from socket connect Download Code

Replies are listed 'Best First'.
Re^3: Getting client ip address from socket connect by minixman (Beadle) on Nov 01, 2005 at 14:45 UTC
sorry using use IO::Socket::INET; `my $server = IO::Socket::INET->new( Proto => 'tcp', LocalPort => $serverport, Listen => SOMAXCONN, Reuse => 1); die "can't setup server" unless $server; my $remotehost; &writelog("$date: INFO: Server $0 started accepting clients connection +s"); while ($client = $server->accept()) { $client->autoflush(1); $remotehost = $client->peeraddr; } But i get this in the log 01/11/2005/ 14:42: INFO: New client connection from Ьі` [download]	[reply] [d/l]
Re^4: Getting client ip address from socket connect by tirwhan (Abbot) on Nov 01, 2005 at 15:11 UTC
Yes, that's because `peeraddr()` returns the raw in_addr struct. Either convert it to a string with `$remotehost=inet_ntoa($client->peeraddr);` [download] or use `$remotehost=$client->peerhost;` [download] like I suggested in my node. Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it. -- Brian W. Kernighan	[reply] [d/l] [select]
Re^4: Getting client ip address from socket connect by Spidy (Chaplain) on Nov 01, 2005 at 17:11 UTC
One thing that I would change is the die unless that you have, you could probably rewrite that to this: `my $server = IO::Socket::INET->new( Proto => 'tcp', LocalPort => $serverport, Listen => SOMAXCONN, Reuse => 1) or die("Can't setup server: $!");` [download] I'm not 100% sure that that will work though, I haven't really gone near IO::Socket. Spidy My Website	[reply] [d/l]