387f3bbf6b
* add list of legacy gateways (temporarily) * change backend-scripts branch to ansible * Role server-basic: ensure ffmwu config directory is present * Role service-fastd: add fastd-status script * role service-fastd-mesh: add templating for fastd peer limit configuration
18 lines
308 B
Perl
18 lines
308 B
Perl
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
|
|
use IO::Socket::UNIX qw( SOCK_STREAM );
|
|
|
|
$ARGV[0] or die("Usage: fastd-status <socket>\n");
|
|
|
|
my $socket = IO::Socket::UNIX->new(
|
|
Type => SOCK_STREAM,
|
|
Peer => $ARGV[0],
|
|
)
|
|
or die("Can't connect to server: $!\n");
|
|
|
|
foreach my $line (<$socket>) {
|
|
print $line;
|
|
}
|