From c0c189f44fceba6146e1c8c4bdb4240bffa34fbb Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Tue, 27 Jan 2009 17:38:30 +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/trunk@1645 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 9d5724f..cf84b85 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