projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8793642
)
change touser login in gen_DXProt
author
minima
<minima>
Sat, 12 Mar 2005 10:28:59 +0000
(10:28 +0000)
committer
minima
<minima>
Sat, 12 Mar 2005 10:28:59 +0000
(10:28 +0000)
perl/DXProtVars.pm
patch
|
blob
|
history
perl/Thingy/Ping.pm
patch
|
blob
|
history
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
-$myprot_version = 525
2
;
+$myprot_version = 525
3
;
# 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};
- $to ||= $thing->{touser}
if Route::Node
::get($thing->{touser});
+ $to ||= $thing->{touser}
unless Route::User
::get($thing->{touser});
$to ||= $thing->{group};