ansible-ffibk/roles/service-fastd/files/fastd-status
Tobias Hachmer 387f3bbf6b Update fastd peer limit configuration
* 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
2017-11-06 17:41:17 +01:00

17 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;
}