[Opensrf-commits] r1645 - trunk/bin

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-01-27 12:38:30 -0500 (Tue, 27 Jan 2009)
New Revision: 1645

Modified:
   trunk/bin/opensrf-perl.pl
Log:
added what amounts to -l (use localhost as fqdn) support for correctly reporting status to the terminal

Modified: trunk/bin/opensrf-perl.pl
===================================================================
--- trunk/bin/opensrf-perl.pl	2009-01-27 16:48:29 UTC (rev 1644)
+++ trunk/bin/opensrf-perl.pl	2009-01-27 17:38:30 UTC (rev 1645)
@@ -34,7 +34,7 @@
 my $opt_help = 0;
 my $verbose = 0;
 my $sclient;
-my $hostname = hostfqdn();
+my $hostname = $ENV{OSRF_HOSTNAME} || hostfqdn();
 my @hosted_services;
 
 GetOptions(