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

Make aprs-is-file-feed run with archives. 

git-svn-id: http://repo.ham.fi/svn/aprsc/trunk@470 3ce903b1-3385-4e86-93cd-f9a4a239f7ac
This commit is contained in:
Heikki Hannikainen 2012-06-26 05:49:29 +00:00
parent e63a36c9dc
commit 46b561734b
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
tools/aprs-is-file-feed
View File

@ -13,7 +13,7 @@ my $APRSIS;
my $mycall = 'OH2MQK-FF';
my $filter = ''; 'p/OH2R -p/OH2 p/OH ';
$APRSIS = APRS::IS->new('127.0.0.1:10190', $mycall, $filter);
$APRSIS = APRS::IS->new('127.0.0.1:55580', $mycall, $filter);
if (!defined($APRSIS)) {
printf "aprsazel: Failed to open APRS-IS socket!\n";
@ -32,19 +32,23 @@ while (<>) {
local $line = $_;
local %aprs;
chomp $line;
next if ($line !~ /^(\d+) (.*)$/);
$line = $2;
$APRSIS->sendline(sprintf("%d",$now)."\t".$line);
# $APRSIS->sendline(sprintf("%d",$now)."\t".$line);
$APRSIS->sendline("$line\r\n");
++$cnt;
$now += 0.03; ## magic
#$now += 0.03; ## magic
if ($cnt >= $next) {
$APRSIS->flush();
while ($line = $APRSIS->getline) {
;
}
$next += 1000;
}
#if ($cnt >= $next) {
# $APRSIS->flush();
# while ($line = $APRSIS->getline) {
# ;
# }
# $next += 1000;
# }
# next if (!defined $line);
@ -54,6 +58,8 @@ while (<>) {
$APRSIS->flush();
exit(0);
printf "\n cnt = $cnt\n";
printf "Last tick: %s\n", $now;