projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3bf6ed7
)
make sure the version no is updated correctly
author
minima
<minima>
Sat, 9 Jun 2001 04:41:48 +0000
(
04:41
+0000)
committer
minima
<minima>
Sat, 9 Jun 2001 04:41:48 +0000
(
04:41
+0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index a1f909e752511fec43e175726d37a3afa8121b87..3f4575aa3907ca18ac361c364d5978eaff05a2e9 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-195,7
+195,7
@@
sub new
# add this node to the table, the values get filled in later
my $pkg = shift;
my $call = shift;
# add this node to the table, the values get filled in later
my $pkg = shift;
my $call = shift;
- $main::routeroot->add($call) if $call ne $main::mycall;
+ $main::routeroot->add($call
, '0000', Route::here(1)
) if $call ne $main::mycall;
return $self;
}
return $self;
}
@@
-634,6
+634,7
@@
sub normal
next if length $call < 3; # min 3 letter callsigns
# update it if required
next if length $call < 3; # min 3 letter callsigns
# update it if required
+ my $r;
if ($parent->call eq $call && !$parent->version) {
$parent->version($ver);
$parent->flags(Route::here($here)|Route::conf($conf));
if ($parent->call eq $call && !$parent->version) {
$parent->version($ver);
$parent->flags(Route::here($here)|Route::conf($conf));
@@
-643,6
+644,13
@@
sub normal
my $r = $parent->add($call, $ver, Route::here($here)|Route::conf($conf));
push @rout, $r if $r;
my $r = $parent->add($call, $ver, Route::here($here)|Route::conf($conf));
push @rout, $r if $r;
+ } else {
+ $r = Route::Node::get($call);
+ if ($r && (!$r->version || $r->version eq '0000')) {
+ $r->version($ver);
+ $r->flags(Route::here($here)|Route::conf($conf));
+ push @rout, $r;
+ }
}
# unbusy and stop and outgoing mail (ie if somehow we receive another PC19 without a disconnect)
}
# unbusy and stop and outgoing mail (ie if somehow we receive another PC19 without a disconnect)