| … | |
… | |
| 2 | |
2 | |
| 3 | use Event; |
3 | use Event; |
| 4 | use Time::HiRes qw(time); |
4 | use Time::HiRes qw(time); |
| 5 | use Curses; |
5 | use Curses; |
| 6 | use Socket; |
6 | use Socket; |
|
|
7 | use GPS; |
|
|
8 | |
|
|
9 | my $GPS = eval { new GPS }; |
| 7 | |
10 | |
| 8 | $DEV = "eth1"; |
11 | $DEV = "eth1"; |
| 9 | $RAWDEV = "wifi0"; |
12 | $RAWDEV = "wifi0"; |
| 10 | $PROC = "/proc/driver/aironet/$DEV"; |
13 | $PROC = "/proc/driver/aironet/$DEV"; |
| 11 | |
14 | |
| … | |
… | |
| 46 | $menu_idx += @menu if $menu_idx < 0; |
49 | $menu_idx += @menu if $menu_idx < 0; |
| 47 | $menu_idx -= @menu if $menu_idx >= @menu; |
50 | $menu_idx -= @menu if $menu_idx >= @menu; |
| 48 | |
51 | |
| 49 | erase; |
52 | erase; |
| 50 | |
53 | |
|
|
54 | my $data = $GPS->data; |
|
|
55 | |
| 51 | move 0, 0; |
56 | move 0, 0; |
| 52 | addstr $frame++; |
57 | addstr $frame++ . " $data->{lat} $data->{long} $data->{alt}"; |
| 53 | |
58 | |
| 54 | for my $idx (0 .. $#menu) { |
59 | for my $idx (0 .. $#menu) { |
| 55 | move 1 + $idx, 0; |
60 | move 1 + $idx, 0; |
| 56 | standout if $idx == $menu_idx; |
61 | standout if $idx == $menu_idx; |
| 57 | addstr $menu[$idx][0]; |
62 | addstr $menu[$idx][0]; |
