| … | |
… | |
| 6 | use POSIX (); |
6 | use POSIX (); |
| 7 | use Curses; |
7 | use Curses; |
| 8 | use AnyEvent; |
8 | use AnyEvent; |
| 9 | use AnyEvent::FCP; |
9 | use AnyEvent::FCP; |
| 10 | |
10 | |
| 11 | my $hst = "10.0.0.17"; |
|
|
| 12 | my $cnt = 20; |
11 | my $cnt = 20; |
| 13 | my $log = 15; |
12 | my $log = 15; |
| 14 | |
13 | |
| 15 | initscr; |
14 | initscr; |
| 16 | curs_set 0; |
15 | curs_set 0; |
| … | |
… | |
| 48 | refresh; |
47 | refresh; |
| 49 | } |
48 | } |
| 50 | |
49 | |
| 51 | my $w = AE::timer 10, 10, \&updater; |
50 | my $w = AE::timer 10, 10, \&updater; |
| 52 | |
51 | |
| 53 | my $fcp = new AnyEvent::FCP host => $hst, progress => sub { |
52 | my $fcp = new AnyEvent::FCP progress => sub { |
| 54 | my ($fcp, $type, $kv, $rdata) = @_; |
53 | my ($fcp, $type, $kv, $rdata) = @_; |
| 55 | |
54 | |
| 56 | delete $kv->{pkt_type}; |
55 | delete $kv->{pkt_type}; |
| 57 | (my $id = delete $kv->{identifier}) =~ s/^FProxy://; |
56 | (my $id = delete $kv->{identifier}) =~ s/^FProxy://; |
| 58 | |
57 | |
