70 lines
1.3 KiB
Perl
Executable File
70 lines
1.3 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# vim:set ts=4 sw=4:
|
|
|
|
use strict;
|
|
use Curses;
|
|
use POSIX qw(strftime);
|
|
|
|
use FindBin;
|
|
use lib "$FindBin::Bin/lib";
|
|
use r0ket;
|
|
|
|
$|=1;
|
|
|
|
my $ser;
|
|
if($ARGV[0] eq "-d"){
|
|
shift;
|
|
$ser=shift;
|
|
};
|
|
r0ket::r0ket_init($ser);
|
|
|
|
# Default mesh settings.
|
|
r0ket::set_txmac("ORBIT");
|
|
r0ket::set_rxmac("ORBIT");
|
|
r0ket::set_channel(83);
|
|
r0ket::set_rxlen(32);
|
|
|
|
r0ket::readbeacon();
|
|
|
|
my $str;
|
|
my %bdata;
|
|
|
|
initscr;
|
|
END{endwin;}
|
|
use constant WIDTH => 80;
|
|
use constant m_height => 15;
|
|
my $win_top=subwin(2,WIDTH,0,0);
|
|
my $win=subwin(m_height,WIDTH,2,0);
|
|
noecho;
|
|
curs_set(0);
|
|
$win_top->addstr(0,0,"r0ket Mesh-Trace 0.1");
|
|
$win_top->addstr(1,0,"-"x20);
|
|
$win_top->refresh;
|
|
|
|
my $beaconctr=0;
|
|
my $crcerr=0;
|
|
while(1){
|
|
$str=r0ket::get_packet();
|
|
my $p=r0ket::nice_mesh($str);
|
|
if($p->{crc} ne "ok"){
|
|
$crcerr++;
|
|
next;
|
|
};
|
|
|
|
if(!$bdata{$p->{beacon}}){
|
|
$bdata{$p->{beacon}}=++$beaconctr;
|
|
};
|
|
$win->addstr($bdata{$p->{beacon}},0,
|
|
sprintf "%s | g=%d rel=%s time=%s =%+4d | %s",
|
|
$p->{beacon},
|
|
$p->{generation},
|
|
$p->{release},
|
|
strftime("%Y-%m-%d %H:%M:%S",gmtime $p->{time}),
|
|
$p->{time}-(time+$r0ket::timediff),
|
|
r0ket::getbeacon($p->{beacon})
|
|
);
|
|
$win->refresh;
|
|
};
|
|
r0ket::rest();
|