[open-ils-commits] r17021 - trunk/Open-ILS/src/support-scripts (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-07-23 10:36:34 -0400 (Fri, 23 Jul 2010)
New Revision: 17021

Modified:
   trunk/Open-ILS/src/support-scripts/marc_stream_importer.pl
Log:
log the IP address of the connecting client

Modified: trunk/Open-ILS/src/support-scripts/marc_stream_importer.pl
===================================================================
--- trunk/Open-ILS/src/support-scripts/marc_stream_importer.pl	2010-07-22 21:48:24 UTC (rev 17020)
+++ trunk/Open-ILS/src/support-scripts/marc_stream_importer.pl	2010-07-23 14:36:34 UTC (rev 17021)
@@ -26,6 +26,7 @@
 use File::Temp;
 use Getopt::Long qw(:DEFAULT GetOptionsFromArray);
 use Pod::Usage;
+use Socket;
 
 use OpenSRF::Utils::Logger qw/$logger/;
 use OpenSRF::AppSession;
@@ -346,7 +347,9 @@
     my $self = shift;
     my $client = $self->{server}->{client};
 
-    $logger->info("stream parser received contact from $client");
+    my $sockname = getpeername($client);
+    my ($port, $ip_addr) = unpack_sockaddr_in($sockname);
+    $logger->info("stream parser received contact from ".inet_ntoa($ip_addr));
 
     my $ph = OpenSRF::Transport::PeerHandle->retrieve;
     if(!$ph->flush_socket()) {