change touser login in gen_DXProt

diff --git a/perl/DXProtVars.pm b/perl/DXProtVars.pm
index 05f02bb70cba567105350d86f386b422d0ab0e2b..95acac91d1354fb183c6f1e8d811911f77875a91 100644 (file)
--- 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
 $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;
 
 # default hopcount to use
 $def_hopcount = 30;

diff --git a/perl/Thingy/Ping.pm b/perl/Thingy/Ping.pm
index a1ab4599fa4cebe310fb60774c5369a6851c61e7..902347dc30ec3a8f176bf9c30189d56407acc7b0 100644 (file)
--- 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};
            $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};
 
                
                $to ||= $thing->{group};