何の役に立つのか分からないのがおしゃれ(謎:-)まぁあるとすれば

-----------------------------------------------------
	ML -> mail2irc -> irc server
	ML <- pirc <-----
?
-----------------------------------------------------

1.1	IRCへのリレー

IRCへ入って、書いて、抜けるという一撃離脱の処理をするルーチンがありま
す。


1.2	変数

# irc server 
$IRC_SERVER  = "irc.server";

# irc port
$IRC_PORT    = 6667;

# irc channel to write
$IRC_CHANNEL = '#test';

# Your Name
$IRC_NAME    = "test";

# Nickname
$IRC_NICK    = "test";

# the last message of the end of irc session
$IRC_SIGNOFF_MSG = "そ、そなの？";


1.3	設定例

config.phに付け加える例:
メーリングリストに来た記事をIRCへリレーする

$IRC_SERVER  = "hikari.sapporo.iij.ad.jp";
$IRC_PORT    = 6667;
$IRC_CHANNEL = '#test';
$IRC_NAME    = "test";
$IRC_NICK    = "test";

$FML_EXIT_HOOK = q!
	local($buf);

	$IRC_SIGNOFF_MSG = "End of Article $ID";
	require 'contrib/irc/libirc.pl';

	$buf .= "From: $Envelope{'h:From:'}\n";
	$buf .= "Subject: $Envelope{'h:Subject:'}\n";
	$buf .= "Article: $ID\n";
	$buf .= "\n";
	$buf .= $Envelope{'Body'};

	&Write2Irc($buf);
!;

1.4	stdin2irc.pl

STDIN からほうり込んだ文字列をIRCへ書き込みます。
前述のものと異なり、この stdin2irc.pl ではIRCには入りっぱなしで、
入力を待つものです。典型的な使い方は

tail -f 何かのログファイル | perl stdin2irc.pl -f 設定ファイル

のように使います。例えば /var/log/messages をIRCの画面で見張りたいなど
に使います(何だそりゃ:)