]> git.etc.gen.nz Git - spong.git/commitdiff
added fix for repeated notifications for contacts with 'delay' attribute
authorStephen L Johnson <sjohnson@monsters.org>
Wed, 1 Mar 2000 22:03:45 +0000 (22:03 +0000)
committerStephen L Johnson <sjohnson@monsters.org>
Wed, 1 Mar 2000 22:03:45 +0000 (22:03 +0000)
src/spong-message.pl

index dd8a6e0b0ecfb9f9f6b341f5202f4534982736fb..605826161ac497c04bea2cfb5010eb7454977b23 100755 (executable)
@@ -507,8 +507,9 @@ RULE:
               # Remove the old npfile and fall thru to send messages
               unlink $np_file;
            # If last page time + repeat time still in the future
-           # or if no delay specified
-           } elsif ( $pagetime + $repeat > time() || $delay == 0 )
+           # or if no repeat specified, or status is not red
+           } elsif ( $pagetime + $repeat > time() || $repeat == 0 
+                     || $color ne 'red' )
               { next; }  # next contact
            else {
               # Update np-file and fall thru to send message