summaryrefslogtreecommitdiff
path: root/d/sys/lampion/local/sbin/apbteambot-say
blob: 47c3ea664df0094ed9d0cf27579e1107599cbfcc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl -w
# apbteambot-say
use strict;
use IO::Socket::UNIX;

my $socketname = '/var/run/apbteambot/sock';

# Client socket.

my $socket = new IO::Socket::UNIX (Peer => $socketname)
    or die $!;

while (<STDIN>)
{
    print $socket $_;
}
$socket->close ();