From: Stephen L Johnson <sjohnson@monsters.org>
Date: Wed, 24 Jul 2002 18:22:21 +0000 (+0000)
Subject: added debug statement to print $HOST
X-Git-Tag: spong-2_8_0-beta1~66
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9ed6a9de01342885bf2798c13dd0b9c13c5a46ae;p=spong.git

added debug statement to print $HOST
---

diff --git a/src/spong-client.pl b/src/spong-client.pl
index 3e3ad41..083eee7 100755
--- a/src/spong-client.pl
+++ b/src/spong-client.pl
@@ -12,7 +12,7 @@
 # History:
 # (1) Ported bb-local.sh script to perl. (Ed Hill Feb 26, 1997)
 #
-# $Id: spong-client.pl,v 1.23 2002/06/24 17:40:14 sljohnson Exp $
+# $Id: spong-client.pl,v 1.24 2002/07/24 18:22:21 sljohnson Exp $
 
 use lib '@@LIBDIR@@';
 
@@ -45,6 +45,7 @@ $me        = "@@BINDIR@@/spong-client";
 $conf_file = $ARGV[0] || "@@ETCDIR@@/spong.conf";
 ($HOST)    = gethostbyname(&Sys::Hostname::hostname());
 $HOST      =~ tr/A-Z/a-z/;
+debug("Host name found to name $HOST");
 
 $CHECKS = "";