[Xastir] UI-View32 logfiles vs. Xastir logfiles

[Jeremy McDermond]

I wrote this up really quick, but it appears I'm a little late:

--------
#!/usr/bin/perl

use strict;

use Date::Parse;
use Date::Manip qw(UnixDate ParseDateString);

$ENV{TZ} = 'GMT';

open MYFILE, "<", $ARGV[0];

while(<MYFILE>) {
         if(!/([0-9]{4}-[0-9]{2}-[0-9]{2}) ([0-9]{2}:[0-9]{2}:[0-9] 
{2}) ([0-9]{2}:[0-9]{2}:[0-9]{2})R ([0-9A-Z-]+>([0-9A-Z-]+,{0,1})+)  
<UI Len=[0-9]+>:(.*)/) { next };

	my $time = str2time("$1 $2");
         my $path = $4;

         my $packet = <MYFILE>;
         chomp($packet);
         print "# $time " . UnixDate(ParseDateString("epoch $time"),  
"%a %b %e %H:%M:%S %Z %Y") . "\n";
         print "$path:$packet\n";
}

close(MYFILE);
-------

You just call it with the filename you want to parse and it outputs to  
STDOUT.


On Nov 9, 2009, at 3:47 PM, Curt, WE7U wrote:

> On Mon, 9 Nov 2009, Kevin Ratcliff wrote:
>
>> ...others
>> could potentially find it useful if you put it in the Xastir scripts
>> directory.
>
> Done.
>
> -- 
> Curt, WE7U.                         <http://www.eskimo.com/~archer>
>   APRS:  Where it's at!                    <http://www.xastir.org>
>  Lotto:  A tax on people who are bad at math. - unknown
> Windows:  Microsoft's tax on computer illiterates. - WE7U.
> The world DOES revolve around me:  I picked the coordinate system!"
> _______________________________________________
> Xastir mailing list
> Xastir at lists.xastir.org
> http://lists.xastir.org/cgi-bin/mailman/listinfo/xastir
>