added code to display FDQN for hostname if $HISTORY_FQDN is set to 1

diff --git a/src/lib/Spong/History.pm b/src/lib/Spong/History.pm
index 1884d7feabe968eb9ebed6cbcb191a73ec03dfc9..8e707c1e1712a89d707b8c977ee08683d09cc16c 100755 (executable)
--- a/src/lib/Spong/History.pm
+++ b/src/lib/Spong/History.pm
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 #
 # This object represents an event that has happened that a record should be
 # kept for.  The current case is when a service changes state (color change).
@@ -20,6 +20,8 @@
 # History:
 # (1) Cleaned up (Ed July 31, 1997);
 
+# $Id: History.pm,v 1.5 2000/12/15 21:01:10 sljohnson Exp $
+
 package Spong::History;
 
 use Spong::HistoryService;
@@ -82,6 +84,7 @@ sub display_text {
    my( $min, $hour ) = (localtime($self->time()))[1,2];
    my $shost = $main::HOSTS{$self->host()}->{'display_name'};
 
+   $shost = $self->host() if $main::HISTORY_FQDN;
    $shost = (split( /\./, $self->host() ))[0] unless $shost;
 
    print $self->color(), " "x(7-length($self->color()));
@@ -103,6 +106,7 @@ sub display_html {
    my $other = $self->other();
    my $time = $self->time();
 
+   $shost = $self->host() if $main::HISTORY_FQDN;
    $shost = (split( /\./, $self->host() ))[0] unless $shost;
 
    print "<tr><td width=5% align=left valign=top>";