[aprssig] Perl code to filter packets

[Roger Bille]

 Below is an example how to set the server filter from Perl. You will need
to change the $user to your call and $filter to the filter definition you
want. E.g.

 my $filter = "b/W9IF";  If you only want packets from that call only.

 73 de sm5nrk/Roger

=== Perl ===
use Net::Telnet;
my $host = "ahubswe.net";
my $user = "SM5NRK";
my $filter = "b/k*/w*";
my $srvr = new Net::Telnet(
	   Timeout => '5',
	   port => '14580',
);
$srvr->Net::Telnet::open($host);
print $srvr "user $user pass -1 vers Perl V1.0 filter $filter\n";
while (<$srvr>)
{
	print $_;
}
=== End Perl ===


> -----Original Message-----
> From: aprssig-bounces at lists.tapr.org [mailto:aprssig-
> bounces at lists.tapr.org] On Behalf Of AE5PL Lists
> Sent: den 26 september 2004 19:01
> To: TAPR APRS Mailing List
> Subject: RE: [aprssig] Perl code to filter packets
> 
> If I understand your question correctly, you are asking how to set a
> filter to javAPRSSrvr from a Perl script.  There are three methods to
> set a filter on a javAPRSSrvr user-defined filter port: via the login,
> via a comment line (# is the first character), or via a numbered APRS
> message (one requiring an ack from the server).  There are further
> described at http://www.aprs-is.net/javaprssrvr in the Server Adjunct
> section.
> 
> Hope this helps.
> 
> 73,
> 
> Pete Loveall AE5PL
> mailto:pete at ae5pl.net
> 
> > -----Original Message-----
> > From: APRS SIG
> > Posted At: Sunday, September 26, 2004 11:50 AM
> > Subject: [aprssig] Perl code to filter packets
> >
> > filtered packets sent. For example, it tells javAPRSSrv to
> > send packets from W9IF only. I don't know how to do that in
> > perl. Any suggestions?
> >
> > thanks in advance,
> > Rich Parry, W9IF
> 
> _______________________________________________
> aprssig mailing list
> aprssig at lists.tapr.org
> https://lists.tapr.org/cgi-bin/mailman/listinfo/aprssig