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

debug tools 

git-svn-id: http://repo.ham.fi/svn/aprsc/trunk@192 3ce903b1-3385-4e86-93cd-f9a4a239f7ac
This commit is contained in:
Matti Aarnio 2008-03-19 14:12:30 +00:00
parent 376605c1cc
commit df4e2b8b1a
2 changed files with 23 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tools/aprs-is-multirx
View File

@ -33,7 +33,7 @@ foreach my $i (1 .. $n) {
$call = sprintf("CW%04d",$i);
$APRSIS = APRS::IS->new('localhost:14580', $call, undef );
} else {
$APRSIS = APRS::IS->new('localhost:14580', $call, '-p/CW' );
$APRSIS = APRS::IS->new('localhost:14580', $call, 'u/APZMDR' );
}
if (!defined($APRSIS)) {
printf "aprsazel: Failed to open APRS-IS socket!\n";

32
tools/aprs-is-rx
View File

@ -12,9 +12,11 @@ my $APRSIS;
my $mycall = 'OH2MQK-RR';
my $filter = 'p/OH2R -p/OH2 p/OH ';
#my $filter = 'p/OH2R';
$filter = 'p/OH';
$filter = 't/c*'; #'p/OH';
#$filter = undef;
#$APRSIS = APRS::IS->new('finland.aprs2.net:10152', $mycall, $filter);
#$APRSIS = APRS::IS->new('rotate.aprs.net:23', $mycall, $filter);
$APRSIS = APRS::IS->new('localhost:14580', $mycall, $filter );
if (!defined($APRSIS)) {
@ -116,16 +118,26 @@ sub new {
##
$self->{sock}->blocking(1);
$self->{sock}->printf( "user %s pass %s vers %s filter %s\r\n",
$self->{aprsmycall},
$self->{aprspass}, # -- but we are read-only !
$main::VERSION, $self->{filterre}
);
if (defined($self->{filterre})) {
$self->{sock}->printf( "user %s pass %s vers %s filter %s\r\n",
$self->{aprsmycall},
$self->{aprspass}, # -- but we are read-only !
$main::VERSION, $self->{filterre} );
printf( "user %s pass %s vers %s filter %s\n",
$self->{aprsmycall},
$self->{aprspass}, # -- but we are read-only !
$main::VERSION, $self->{filterre} );
} else {
$self->{sock}->printf( "user %s pass %s vers %s\r\n",
$self->{aprsmycall},
$self->{aprspass}, # -- but we are read-only !
$main::VERSION );
printf( "user %s pass %s vers %s\n",
$self->{aprsmycall},
$self->{aprspass}, # -- but we are read-only !
$main::VERSION );
}
printf( "user %s pass %s vers %s filter %s\n",
$self->{aprsmycall},
$self->{aprspass}, # -- but we are read-only !
$main::VERSION, $self->{filterre} );
$self->{sock}->flush;
$self->{sock}->blocking(1);