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

Comparing GPS/GPS.pm (file contents):
Revision 1.2 by root, Fri Apr 26 21:50:28 2002 UTC vs.
Revision 1.3 by root, Fri Apr 26 21:53:14 2002 UTC

… …
30 30
31 print {$self->{fh}} "dpva\n"; 31 print {$self->{fh}} "dpva\n";
32 32
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.]+)%) { 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.]+)%) {
34 local $ENV{TZ} = "+0000"; 34 local $ENV{TZ} = "+0000";
35 warn "$6,$5,$4,$1,$2,$3,0,0\n";
36 $self->{data} = { 35 $self->{data} = {
37 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),
38 lat => $7, 37 lat => $7,
39 long => $8, 38 long => $8,
40 v => $9, 39 v => $9,

Diff Legend

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