added what amounts to -l (use localhost as fqdn) support for correctly reporting...
authorerickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Tue, 27 Jan 2009 17:38:30 +0000 (17:38 +0000)
committererickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Tue, 27 Jan 2009 17:38:30 +0000 (17:38 +0000)
git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1645 9efc2488-bf62-4759-914b-345cdb29e865

bin/opensrf-perl.pl

index 9d5724f..cf84b85 100755 (executable)
@@ -34,7 +34,7 @@ my $opt_settings_pause = 0;
 my $opt_help = 0;
 my $verbose = 0;
 my $sclient;
 my $opt_help = 0;
 my $verbose = 0;
 my $sclient;
-my $hostname = hostfqdn();
+my $hostname = $ENV{OSRF_HOSTNAME} || hostfqdn();
 my @hosted_services;
 
 GetOptions(
 my @hosted_services;
 
 GetOptions(