sort out the remote db handling

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b0fdd2d9114e49f9338e9a18a999b56ccf4a6ae8..8f46826a60c9ee93498320e2cb1e31a9769255ab 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1372,7 +1372,13 @@ sub handle_37
        my $pcno = shift;
        my $line = shift;
        my $origin = shift;
-       DXDb::process($self, $line);
+       if ($_[1] eq $main::mycall) {
+               no strict 'refs';
+               my $sub = "DXDb::handle_$pcno";
+               &$sub($self, @_);
+       } else {
+               $self->route($_[1], $line) unless $self->is_clx;
+       }
 }
 
 # node connected list from neighbour