added debug statement to print $HOST

diff --git a/src/spong-client.pl b/src/spong-client.pl
index 3e3ad4164618efdf68c166f541113464e471ff4b..083eee74de3a0e1fe5b7f15fb8707dee7a33165e 100755 (executable)
--- 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 = "";