summaryrefslogtreecommitdiff
path: root/d/sys/lampion/local/sbin/apbteambot-say
diff options
context:
space:
mode:
Diffstat (limited to 'd/sys/lampion/local/sbin/apbteambot-say')
-rwxr-xr-xd/sys/lampion/local/sbin/apbteambot-say17
1 files changed, 17 insertions, 0 deletions
diff --git a/d/sys/lampion/local/sbin/apbteambot-say b/d/sys/lampion/local/sbin/apbteambot-say
new file mode 100755
index 0000000..47c3ea6
--- /dev/null
+++ b/d/sys/lampion/local/sbin/apbteambot-say
@@ -0,0 +1,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 ();