projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
892f669
)
fix K1XX's problem with node eq user callsigns on PC11s
author
minima
<minima>
Sun, 4 Nov 2001 16:35:08 +0000
(16:35 +0000)
committer
minima
<minima>
Sun, 4 Nov 2001 16:35:08 +0000
(16:35 +0000)
Changes
patch
|
blob
|
history
perl/DXChannel.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index a16c7ca350286361bef2804af2cb7bb7aabbccc1..0140f812fded7953fbce303556108adb8030f126 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,3
+1,7
@@
+04Nov01=======================================================================
+1. Allow the user to equal the node in RSPF checks (this allows spots and
+stuff with the origin and spotter to be the same (although it is STRONGLY
+recommended that they are NOT!!! [hint hint]).
02Nov01=======================================================================
1. fixed some Aliasing problems, but this whole area will have to be addressed
more comprehensively.
02Nov01=======================================================================
1. fixed some Aliasing problems, but this whole area will have to be addressed
more comprehensively.
diff --git
a/perl/DXChannel.pm
b/perl/DXChannel.pm
index 584015518e6ea2b93478b10660d80d7e60ac4da3..8dae7cd6d54dc3e66a2f31a317f3268628b6c7d0 100644
(file)
--- a/
perl/DXChannel.pm
+++ b/
perl/DXChannel.pm
@@
-493,12
+493,12
@@
sub decode_input
# the above regexp must work
unless (defined $sort && defined $call && defined $line) {
# $data =~ s/([\x00-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg;
# the above regexp must work
unless (defined $sort && defined $call && defined $line) {
# $data =~ s/([\x00-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg;
- dbg("DUFF Line on $chcall: $data")
if isdbg('err')
;
+ dbg("DUFF Line on $chcall: $data");
return ();
}
if(ref($dxchan) && $call ne $chcall) {
return ();
}
if(ref($dxchan) && $call ne $chcall) {
- dbg("DUFF Line come in for $call on wrong channel $chcall")
if isdbg('err')
;
+ dbg("DUFF Line come in for $call on wrong channel $chcall");
return();
}
return();
}
@@
-513,15
+513,16
@@
sub rspfcheck
if ($nref && $dxchan) {
if ($dxchan == $self) {
return 1 unless $user;
if ($nref && $dxchan) {
if ($dxchan == $self) {
return 1 unless $user;
+ return 1 if $user eq $node;
my @users = $nref->users;
return 1 if @users == 0 || grep $user eq $_, @users;
my @users = $nref->users;
return 1 if @users == 0 || grep $user eq $_, @users;
- dbg("RSPF: $user not on $node") if isdbg('
rspf
');
+ dbg("RSPF: $user not on $node") if isdbg('
chanerr
');
} else {
} else {
- dbg("RSPF: Shortest path for $node is " . $nref->dxchan->{call}) if isdbg('
rspf
');
+ dbg("RSPF: Shortest path for $node is " . $nref->dxchan->{call}) if isdbg('
chanerr
');
}
} else {
return 1 if $flag;
}
} else {
return 1 if $flag;
- dbg("RSPF: required $node not found" ) if isdbg('
rspf
');
+ dbg("RSPF: required $node not found" ) if isdbg('
chanerr
');
}
return 0;
}
}
return 0;
}