From: minima Date: Sat, 12 Mar 2005 10:28:59 +0000 (+0000) Subject: change touser login in gen_DXProt X-Git-Tag: R_1_52~92 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=d0b280ab098497a7013807e869e4c641cbfcfc94;hp=8793642e3c927cbd8ef80e7fc1f35f3a62b8f0d8;p=spider.git change touser login in gen_DXProt --- diff --git a/perl/DXProtVars.pm b/perl/DXProtVars.pm index 05f02bb7..95acac91 100644 --- a/perl/DXProtVars.pm +++ b/perl/DXProtVars.pm @@ -15,7 +15,7 @@ package DXProt; $pc50_interval = 14*60; # the version of DX cluster (tm) software I am masquerading as -$myprot_version = 5252; +$myprot_version = 5253; # default hopcount to use $def_hopcount = 30; diff --git a/perl/Thingy/Ping.pm b/perl/Thingy/Ping.pm index a1ab4599..902347dc 100644 --- a/perl/Thingy/Ping.pm +++ b/perl/Thingy/Ping.pm @@ -59,7 +59,7 @@ sub gen_DXProt $from ||= $thing->{user} if Route::Node::get($thing->{user}); $from ||= $thing->{origin}; my $to = $thing->{o} unless $thing->{out}; - $to ||= $thing->{touser} if Route::Node::get($thing->{touser}); + $to ||= $thing->{touser} unless Route::User::get($thing->{touser}); $to ||= $thing->{group};