From a49c70c54727220c6582340baece9b03d1c08a8b Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Tue, 27 Jan 2009 17:39:06 +0000
Subject: [PATCH] added what amounts to -l (use localhost as fqdn) support for
 correctly reporting status to the terminal

git-svn-id: svn://svn.open-ils.org/OpenSRF/branches/rel_1_0@1646 9efc2488-bf62-4759-914b-345cdb29e865
---
 bin/opensrf-perl.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/opensrf-perl.pl b/bin/opensrf-perl.pl
index d66d19f..be6374d 100755
--- a/bin/opensrf-perl.pl
+++ b/bin/opensrf-perl.pl
@@ -34,7 +34,7 @@ my $opt_settings_pause = 0;
 my $opt_help = 0;
 my $verbose = 0;
 my $sclient;
-my $hostname = hostfqdn();
+my $hostname = $ENV{OSRF_HOSTNAME} || hostfqdn();
 my @hosted_services;
 
 GetOptions(
-- 
2.11.0