]> git.etc.gen.nz Git - spong.git/commitdiff
added debuging statement before messaging functions are called for the
authorStephen L Johnson <sjohnson@monsters.org>
Fri, 5 Apr 2002 20:11:21 +0000 (20:11 +0000)
committerStephen L Johnson <sjohnson@monsters.org>
Fri, 5 Apr 2002 20:11:21 +0000 (20:11 +0000)
 notifictions

src/spong-message.pl

index 15c21d82190d50cd2c5c2943a11e77df36d66987..02f6b962320225e85b919df5c6639638f57fe2aa 100755 (executable)
@@ -12,7 +12,7 @@
 # (2) Added rules based paging (Stephen Johnson  Nov 14, 1998)
 # (3) Added checks against Acks and downtime (Stephen Johnson  Mar 17, 1999)
 #
-# $Id: spong-message.pl,v 1.32 2002/01/30 16:54:39 supermathie Exp $
+# $Id: spong-message.pl,v 1.33 2002/04/05 20:11:21 sljohnson Exp $
 
 use lib "@@LIBDIR@@";
 
@@ -630,6 +630,8 @@ RULE:
 
                ($subj,$body) = eval_template($person,$f);
 
+               debug("Calling msg function $f for $person");
+
                # Call the message function as referenced by the MSGFUNCS hash
                eval { (&{$MSGFUNCS{$f}}($HUMANS{$person}->{$f},$subj,$body)); };
 
@@ -643,6 +645,8 @@ RULE:
 
             ($subj,$body) = eval_template($person,$func);
 
+            debug("Calling msg function $f for $person");
+
             # Call the message function as referenced by the MSGFUNCS hash
             eval { &{$MSGFUNCS{$func}}($HUMANS{$person}->{$func},$subj,$body); };