added what amounts to -l (use localhost as fqdn) support for correctly reporting...

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1645 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/bin/opensrf-perl.pl b/bin/opensrf-perl.pl
index 9d5724f..cf84b85 100755 (executable)
--- 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(