79 |
} else { |
} else { |
80 |
warn "<<<< ", dump($data), $/; |
warn "<<<< ", dump($data), $/; |
81 |
if ( $data->{repl} ) { |
if ( $data->{repl} ) { |
82 |
my $response = { repl => $$, info => $info }; |
my $response = { repl => $$ }; |
83 |
if ( $data->{repl} =~ m/ping/ ) { |
if ( $data->{repl} =~ m/ping/ ) { |
84 |
foreach my $port ( keys %{ $session->{port} } ) { |
foreach my $port ( keys %{ $session->{port} } ) { |
85 |
warn ">>>> [$port]\n"; |
warn ">>>> [$port]\n"; |
86 |
Storable::store_fd( { ping => 1 }, $session->{port}->{$port} ); |
Storable::store_fd( { ping => 1 }, $session->{port}->{$port} ); |
87 |
} |
} |
88 |
|
} elsif ( $data->{repl} =~ m/info/ ) { |
89 |
|
$response->{info} = $info; |
90 |
} |
} |
91 |
Storable::store_fd( $response, $sock ); |
Storable::store_fd( $response, $sock ); |
92 |
} elsif ( $data->{ping} ) { |
} elsif ( $data->{ping} ) { |