From 9392a6f71b96967fd0eb415e7517a70f1f4d2859 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 23 Jul 2010 14:36:34 +0000
Subject: [PATCH] log the IP address of the connecting client
git-svn-id: svn://svn.open-ils.org/ILS/trunk@17021 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
Open-ILS/src/support-scripts/marc_stream_importer.pl | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
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()) {
--
2.11.0