projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
da115e3
)
chase down version errors
author
minima
<minima>
Fri, 11 Mar 2005 21:44:58 +0000
(21:44 +0000)
committer
minima
<minima>
Fri, 11 Mar 2005 21:44:58 +0000
(21:44 +0000)
perl/Thingy/Hello.pm
patch
|
blob
|
history
diff --git
a/perl/Thingy/Hello.pm
b/perl/Thingy/Hello.pm
index 6c64302662e8bb505cd22bf5215c525a9c1c7c47..b1af92d14990829dd8a11afcee88398901a526e5 100644
(file)
--- a/
perl/Thingy/Hello.pm
+++ b/
perl/Thingy/Hello.pm
@@
-62,6
+62,13
@@
sub handle
my $nref;
$thing->{pc19n} ||= [];
my $nref;
$thing->{pc19n} ||= [];
+
+ my $v = $thing->{v};
+ if ($v) {
+ $v = $DXProt::myprot_version + int ($v*100) if $v > 2 && $v < 3;
+ $v = $DXProt::myprot_version + 150 unless $v >= 5400;
+ $thing->{pcv} = $v;
+ }
# verify authenticity
if ($node eq $origin) {
# verify authenticity
if ($node eq $origin) {
@@
-82,7
+89,7
@@
sub handle
}
}
if ($dxchan->{state} ne 'normal') {
}
}
if ($dxchan->{state} ne 'normal') {
- $nref = $main::routeroot->add($origin, $thing->{v}, $thing->{h});
+ $nref = $main::routeroot->add($origin, $thing->{
pc
v}, $thing->{h});
push @{$thing->{pc19n}}, $nref if $nref;
$dxchan->start($dxchan->{conn}->{csort}, $dxchan->{conn}->{outbound} ? 'O' : 'A');
if ($dxchan->{outbound}) {
push @{$thing->{pc19n}}, $nref if $nref;
$dxchan->start($dxchan->{conn}->{csort}, $dxchan->{conn}->{outbound} ? 'O' : 'A');
if ($dxchan->{outbound}) {
@@
-102,7
+109,7
@@
sub handle
# note that we cannot do any connections at this point
$nref = Route::Node::get($origin);
unless ($nref) {
# note that we cannot do any connections at this point
$nref = Route::Node::get($origin);
unless ($nref) {
- my $v = $thing->{user} ? undef : $thing->{v};
+ my $v = $thing->{user} ? undef : $thing->{
pc
v};
$nref = Route::Node->new($origin, $v, 1);
push @{$thing->{pc19n}}, $nref;
$nref->np(1);
$nref = Route::Node->new($origin, $v, 1);
push @{$thing->{pc19n}}, $nref;
$nref->np(1);
@@
-116,7
+123,7
@@
sub handle
my @ref;
my $uref = DXUser->get_current($user) || Thingy::Rt::_upd_user_rec($user, $origin)->put;
if ($uref->is_node || $uref->is_aranea) {
my @ref;
my $uref = DXUser->get_current($user) || Thingy::Rt::_upd_user_rec($user, $origin)->put;
if ($uref->is_node || $uref->is_aranea) {
- push @ref, $nref->add($user, $thing->{v} || 0, $thing->{h} || 0);
+ push @ref, $nref->add($user, $thing->{
pc
v} || 0, $thing->{h} || 0);
push @{$thing->{pc19n}}, @ref if @ref;
do $_->np(1) for @ref;
} else {
push @{$thing->{pc19n}}, @ref if @ref;
do $_->np(1) for @ref;
} else {
@@
-126,7
+133,7
@@
sub handle
}
}
} else {
}
}
} else {
- $nref->version($
thing->{v}
) unless $nref->version;
+ $nref->version($
v
) unless $nref->version;
$nref->build($thing->{b}) unless $nref->build;
$nref->sw($thing->{sw}) unless $nref->sw;
$nref->here($thing->{h}) if exists $thing->{h};
$nref->build($thing->{b}) unless $nref->build;
$nref->sw($thing->{sw}) unless $nref->sw;
$nref->here($thing->{h}) if exists $thing->{h};