From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 23 Jul 2010 14:36:34 +0000 (+0000)
Subject: log the IP address of the connecting client
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=9392a6f71b96967fd0eb415e7517a70f1f4d2859;p=evergreen%2Ftadl.git

log the IP address of the connecting client

git-svn-id: svn://svn.open-ils.org/ILS/trunk@17021 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/support-scripts/marc_stream_importer.pl b/Open-ILS/src/support-scripts/marc_stream_importer.pl
index 07350e4e87..5f74e3695f 100755
--- a/Open-ILS/src/support-scripts/marc_stream_importer.pl
+++ b/Open-ILS/src/support-scripts/marc_stream_importer.pl
@@ -26,6 +26,7 @@ use File::Basename qw/fileparse/;
 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 @@ sub process_request {   # The core Net::Server method
     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()) {