[______TOC_______] [NEXT CHAPTER]

1 MAIL to IRC (Internet Relay Chat)

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

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

    1.1	IRCへのリレー

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

    fml.pl -> 処理

    	IRCへ入る。
    	connect -> irc server:6667

    	IRC protocol

    	&Write2Irc(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の画面で見張りたいなど
    に使います(何だそりゃ:)

[______TOC_______] [NEXT CHAPTER]