summaryrefslogtreecommitdiff
path: root/d/sys/lampion/local/sbin/apbteambot-say
diff options
context:
space:
mode:
authorschodet2005-07-29 18:18:15 +0000
committerschodet2005-07-29 18:18:15 +0000
commit1ae2a29d75aca1dc612aebe5238ec4df109c1418 (patch)
treedb4cae5ffa5090df012aa3a940c1b9e65cabe077 /d/sys/lampion/local/sbin/apbteambot-say
parent2d7050e4f2e9cd5950cf22beee8ae9c34dd18094 (diff)
Ajout de sbin et du APBTeamBot.
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 ();