ua1zbe
/
aprsc
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixes on aprspass call parameter 

git-svn-id: http://repo.ham.fi/svn/aprsc/trunk@194 3ce903b1-3385-4e86-93cd-f9a4a239f7ac
This commit is contained in:
Matti Aarnio 2008-03-19 22:30:57 +00:00
parent 3295640dc3
commit 694ed0a060
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tools/aprs-is-coresimurx
View File

@ -124,7 +124,7 @@ sub aprspass {
my ($a, $h) = (0, 0);
map($h ^= ord(uc) << ($a^=8),
pop =~ m/./g);
return ($h ^ 29666);
return (($h ^ 29666) & 65535);
}
sub sock {
@ -155,7 +155,7 @@ sub new {
$self->{aprsmycall} = uc( $mycall );
$mycall =~ s/-.*//;
$self->{aprspass} = aprspass( $self->{aprsmycall} );
$self->{aprspass} = aprspass( uc($mycall) );
if ($self->{aprsmycall} =~ m/CW\d{4}/o) {
$self->{aprspass} = -1;
}

2
tools/aprs-is-multirx
View File

@ -126,7 +126,7 @@ sub new {
$self->{aprsmycall} = uc( $mycall );
$mycall =~ s/-.*//;
$self->{aprspass} = aprspass( $self->{aprsmycall} );
$self->{aprspass} = aprspass( uc($mycall) );
if ($self->{aprsmycall} =~ m/CW\d{4}/o) {
$self->{aprspass} = -1;
}