From 9ed6a9de01342885bf2798c13dd0b9c13c5a46ae Mon Sep 17 00:00:00 2001 From: Stephen L Johnson Date: Wed, 24 Jul 2002 18:22:21 +0000 Subject: [PATCH] added debug statement to print $HOST --- src/spong-client.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 = ""; -- 2.30.2