X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXXml%2FPing.pm;h=04f830d1b534a8d701a32289a0b5d19c2db2ba29;hb=refs%2Fheads%2Fnewpc92timings;hp=d2a07b73aedf06870ad51a136ffba1d24383399f;hpb=7b9256ceade8b18b48f848c9ac659c2de7322b0b;p=spider.git diff --git a/perl/DXXml/Ping.pm b/perl/DXXml/Ping.pm index d2a07b73..04f830d1 100644 --- a/perl/DXXml/Ping.pm +++ b/perl/DXXml/Ping.pm @@ -1,7 +1,7 @@ # # XML Ping handler # -# $Id$ +# # # Copyright (c) Dirk Koopman, G1TLH # @@ -13,7 +13,6 @@ package DXXml::Ping; use DXDebug; use DXProt; use IsoTime; -use Investigate; use Time::HiRes qw(gettimeofday tv_interval); use vars qw(@ISA %pings); @@ -131,14 +130,10 @@ sub _handle_believe { my ($from, $via) = @_; - if (my $ivp = Investigate::get($from, $via)) { - $ivp->handle_ping; - } else { - my $user = DXUser->get_current($from); - if ($user) { - $user->set_believe($via); - $user->put; - } + my $user = DXUser->get_current($from); + if ($user) { + $user->set_believe($via); + $user->put; } } 1;