X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=9dc9d5e48506d90961d15ef5e6295a43f58ef9c5;hb=331ae9a34defd23c476ceaecdf29d9f49b60faed;hp=5e324fa47f2af7656ebbff28e7fbcccadb834557;hpb=8409ae7d77dc4c13bab2062703a094a4a12c1664;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 5e324fa4..9dc9d5e4 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -535,7 +535,7 @@ sub handle_11 # RouteDB::update($_[7], $self->{call}); # RouteDB::update($_[6], $_[7]); - my @spot = Spot::prepare($_[1], $_[2], $d, $_[5], $_[6], $_[7]); + my @spot = Spot::prepare($_[1], $_[2], $d, $_[5], $nossid, $_[7]); # global spot filtering on INPUT if ($self->{inspotsfilter}) { my ($filter, $hops) = $self->{inspotsfilter}->it(@spot); @@ -548,7 +548,7 @@ sub handle_11 # this goes after the input filtering, but before the add # so that if it is input filtered, it isn't added to the dup # list. This allows it to come in from a "legitimate" source - if (Spot::dup($_[1], $_[2], $d, $_[5], $_[6])) { + if (Spot::dup(@spot[0..4])) { dbg("PCPROT: Duplicate Spot ignored\n") if isdbg('chanerr'); return; }