#!/usr/bin/perl

use strict;
use Data::Dumper;
use Ham::APRS::FAP;

my $aprspacket = 'OH2RDP>BEACON,OH2RDG*,WIDE:!6028.51N/02505.68E#PHG7220/RELAY,WIDE, OH2AP Jarvenpaa';

my %packet;
my $retval = Ham::APRS::FAP::parseaprs($aprspacket, \%packet);

if ($retval == 1) {
	# decoding ok, do something with the data
	print "Parsing succesful:\n";
	printf(
		"Position: latitude %.4f longitude %.4f\n",
		$packet{'latitude'}, $packet{'longitude'}
	) if (defined $packet{'latitude'});
	print "Comment: $packet{comment}\n" if defined $packet{'comment'};
	print "\n";
	print Dumper(\%packet);
} else {
	warn "Parsing failed: $packet{resultmsg} ($packet{resultcode})\n";
}