From: Stephen L Johnson <sjohnson@monsters.org>
Date: Tue, 29 Aug 2000 18:13:33 +0000 (+0000)
Subject: added debug statement for parsing of server spec
X-Git-Tag: spong-2_7_0-beta1~60
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ee9b8e76793f80e13f6979f53fee10b803469eca;p=spong.git

added debug statement for parsing of server spec
---

diff --git a/src/lib/Spong/Status.pm b/src/lib/Spong/Status.pm
index d37f31b..978d178 100755
--- a/src/lib/Spong/Status.pm
+++ b/src/lib/Spong/Status.pm
@@ -84,6 +84,8 @@ sub SendMsg {
       my($host, $p ) = split /:/,$server;
       $p = $port if (! $p);               # Default to $port if no port
 
+      main::debug("Status.pm: host $host, port $p",7);
+
       # Set an alarm on this block in case we run into problem talking to
       # the spong server.
       eval 
@@ -99,7 +101,7 @@ sub SendMsg {
                                    );
 
          if ( ! defined $sock ) {
-            die "$@";
+            die "server: $server - $@";
          }
 
          $sock->autoflush(1);