[______TOC_______] [NEXT CHAPTER]

1 MAIL to IRC (Internet Relay Chat)

    Hmm ... meaningless must be nice :D one idea is

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

    1.1	Relay to IRC

    Mail2irc enters an IRC server, write and get out from it:).

    1.2	Variables

    # 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

    1.3	A configuration example

    Relaying mail to IRC and put the mail body to the channel "#test".

    $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

    stdin2irc.pl writes strings from STDIN to IRC.
    stdin2irc.pl continues to connect IRC and writes inputs to IRC.
    e.g.
    tail -f logfile |perl stdin2irc.pl -f config-file

    where a logfile is /var/log/messages and so on. Is it useful?:D

[______TOC_______] [NEXT CHAPTER]