[Opensrf-commits] r1646 - branches/rel_1_0/bin

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-01-27 12:39:06 -0500 (Tue, 27 Jan 2009)
New Revision: 1646

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

Modified: branches/rel_1_0/bin/opensrf-perl.pl
===================================================================
--- branches/rel_1_0/bin/opensrf-perl.pl	2009-01-27 17:38:30 UTC (rev 1645)
+++ branches/rel_1_0/bin/opensrf-perl.pl	2009-01-27 17:39:06 UTC (rev 1646)
@@ -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(