From d0b280ab098497a7013807e869e4c641cbfcfc94 Mon Sep 17 00:00:00 2001 From: minima Date: Sat, 12 Mar 2005 10:28:59 +0000 Subject: [PATCH] change touser login in gen_DXProt --- perl/DXProtVars.pm | 2 +- perl/Thingy/Ping.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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}; -- 2.43.0