From 1ae2a29d75aca1dc612aebe5238ec4df109c1418 Mon Sep 17 00:00:00 2001 From: schodet Date: Fri, 29 Jul 2005 18:18:15 +0000 Subject: Ajout de sbin et du APBTeamBot. --- d/sys/lampion/local/sbin/apbteambot-say | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100755 d/sys/lampion/local/sbin/apbteambot-say (limited to 'd/sys/lampion/local/sbin/apbteambot-say') 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 () +{ + print $socket $_; +} +$socket->close (); -- cgit v1.2.3