X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=c91049ab19de50f9fb3b871d5a93520a43e1085d;hb=575db552c5a635ce2eb431de07f568113374735f;hp=501d137d1454ba49bdc971312cffbfd39c1bc0c8;hpb=6d56cd879560a16b952a938fc47eee420511e628;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 501d137d..c91049ab 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -287,8 +287,7 @@ sub process
 						$ref->swop_it($self->call);
 						
 						# look for 'bad' to addresses 
-#						if (grep $ref->{to} eq $_, @badmsg) {
-						if ($ref->dump_it($self->call)) {
+						if ($ref->dump_it) {
 							$ref->stop_msg($self->call);
 							dbg('msg', "'Bad' message $ref->{to}");
 							Log('msg', "'Bad' message $ref->{to}");
@@ -761,7 +760,7 @@ sub init
 		}
 		
 		# delete any messages to 'badmsg.pl' places
-		if (grep $ref->{to} eq $_, @badmsg) {
+		if ($ref->dump_it) {
 			dbg('msg', "'Bad' TO address $ref->{to}");
 			Log('msg', "'Bad' TO address $ref->{to}");
 			$ref->del_msg;
@@ -976,7 +975,6 @@ sub forward_it
 sub dump_it
 {
 	my $ref = shift;
-	my $call = shift;
 	my $i;
 	
 	for ($i = 0; $i < @badmsg; $i += 3) {