add skeletons for new commands Rt, Ping and T.

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 5580a2bee408fb954168a7ef6d4dc410683c0a30..712f933e833f29bd8a4508f79be4df614d4d9dec 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -37,6 +37,9 @@ use Investigate;
 use RouteDB;
 use Thingy;
 use Thingy::Dx;
+use Thingy::Rt;
+use Thingy::Ping;
+use Thingy::T;
 
 use strict;
 
@@ -504,7 +507,7 @@ sub handle_11
        }
 
        # is it 'baddx'
-       if ($baddx->in($_[2]) || BadWords::check($_[2]) || $_[2] =~ /COCK/) {
+       if ($baddx->in($_[2]) || BadWords::check($_[2])) {
                dbg("PCPROT: Bad DX spot, ignored") if isdbg('chanerr');
                return;
        }
@@ -1738,36 +1741,6 @@ sub process
 #
 
 
-sub send_dx_spot
-{
-       my $self = shift;
-       my $line = shift;
-       my @dxchan = DXChannel->get_all();
-       my $dxchan;
-       
-       # send it if it isn't the except list and isn't isolated and still has a hop count
-       # taking into account filtering and so on
-       foreach $dxchan (@dxchan) {
-               next if $dxchan == $main::me;
-               next if $dxchan == $self && $self->is_node;
-               $dxchan->dx_spot($line, $self->{isolate}, @_, $self->{call});
-       }
-}
-
-sub dx_spot
-{
-       my $self = shift;
-       my $line = shift;
-       my $isolate = shift;
-       my ($filter, $hops);
-
-       if ($self->{spotsfilter}) {
-               ($filter, $hops) = $self->{spotsfilter}->it(@_);
-               return unless $filter;
-       }
-       send_prot_line($self, $filter, $hops, $isolate, $line);
-}
-
 sub send_prot_line
 {
        my ($self, $filter, $hops, $isolate, $line) = @_;