ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/GPS/GPS.pm
(Generate patch)

Comparing GPS/GPS.pm (file contents):
Revision 1.1 by stefan, Fri Apr 26 18:37:25 2002 UTC vs.
Revision 1.3 by root, Fri Apr 26 21:53:14 2002 UTC

1package GPS; 1package GPS;
2 2
3use 5.007003;
4use strict; 3use strict;
5use warnings; 4use warnings;
6use POSIX (); 5use POSIX ();
7use Coro::Socket; 6use Coro::Socket;
8 7
… …
31 30
32 print {$self->{fh}} "dpva\n"; 31 print {$self->{fh}} "dpva\n";
33 32
34 if ($self->{fh}->readline =~ m%GPSD,D=(\d\d)/(\d\d)/(\d\d\d\d) (\d\d):(\d\d):(\d\d),P=([\-0-9.]+) ([\-0-9.]+),V=([0-9.]+),A=([\-0-9.]+)%) { 33 if ($self->{fh}->readline =~ m%GPSD,D=(\d\d)/(\d\d)/(\d\d\d\d) (\d\d):(\d\d):(\d\d),P=([\-0-9.]+) ([\-0-9.]+),V=([0-9.]+),A=([\-0-9.]+)%) {
35 local $ENV{TZ} = "+0000"; 34 local $ENV{TZ} = "+0000";
36 warn "$6,$5,$4,$1,$2,$3,0,0\n";
37 $self->{data} = { 35 $self->{data} = {
38 time => (POSIX::mktime $6,$5,$4,$2,$1-1,$3-1900,0,0), 36 time => (POSIX::mktime $6,$5,$4,$2,$1-1,$3-1900,0,0),
39 lat => $7, 37 lat => $7,
40 long => $8, 38 long => $8,
41 v => $9, 39 v => $9,

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines