	᡼¾ΥץϤ

------------------------------------------------------------
1	MAIL to IRC (Internet Relay Chat)
1.1	IRCؤΥ졼
1.2	ѿ
1.3	
1.4	stdin2irc.pl

2	Mail2news (᡼󥰥ꥹȤ˥塼)
2.1	Mail2news Ȥ߹
2.2	Mail2newsѿ

3	PAGER (ݥ٥) Ƥ֤ץ
3.1	euc2jiskuten.pl 
3.2	FMLȹ礻ƥݥ٥Ƥ
------------------------------------------------------------


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β̤Ǹĥꤿʤ
˻Ȥޤ(:)

2	Mail2news (᡼󥰥ꥹȤ˥塼)

: ١ƥȤǤޤ Perl 5 ǤʤȻȤޤ

ޤǽΥ᡼󥰥ꥹȤͥåȥ˥塼ؤήǤ:-)
NNTPClient.pm λȤȤǤ⤤⤷ʤperl 5 Ǥ
߻Ȥ뵡ǽǤޤ NNTPClient.pm 󥹥ȡ뤵Ƥ뤳Ȥɬ
פǤ

ʤ libnntp.pl  contrib/mail2news äƤޤ

2.1	Mail2news Ȥ߹

contrib/mail2news/libnntp.pl  perl  include  search path Τɤ
ޤ㤨 makefml ǥ󥹥ȡ뤷 ( fml.pl  
libsmtp.pl äƤ)ޤ

2.2	Mail2newsѿ

ޤΥ饤֥ fml.pl κǸ˼¹Ԥ褦Ȥ߹ߤޤ

:

	$FML_EXIT_HOOK .= q#;
		&use('nntp');
		&NntpPost(*Envelope);
	#;

ޤɬפѿꤷޤ (e.g. config.ph ꤹ)

    $NEWS_SERVER

	ƤΥ˥塼СꤷʤȼʬȤΥۥ

    $DEFAULT_NEWS_GROUP

	MLΥ᡼ Newsgroup: إåʤƤ٤ Newsgroup:
	ꤷʤ Newsgroup: إåʤ᡼ϥ顼ˤ

    @NEWS_HDR_FIELDS_ORDER

	˥塼Ƥ˸Υ᡼뤫ƤΤ
	إåǥեȤ

	("from", "newsgroups", "subject", "supersedes", "references")

	ʸʤΤfmlϤ줿᡼ΥإåȤǤ
	Capital ˤХ᡼󥰥ꥹȤˤʤƤƱΤʤ
	ޤ㤨subject ǤϤʤ Subject ˤ(
	Ƥ) Counter ĤΤήȤäǤ

   %NEWS_FIELD_DEFAULT

	᡼ˤʤɬפƤϥå롣
	Organization Ȥ˻ȤȻפ롩

   %NEWS_FIELD_TO_OVERWRITE

	Ū˽񤭴Ƥϥå롣
	Organization Ȥ˻ȤȻפ롩

3	PAGER (ݥ٥) Ƥ֤ץ

ϥǥͳǥڡ㡼ɽ뤿ץǤڡ
㡼ܸ򤷤ʤΤΥɤѴڡ㡼Ϥ
ʤФʤޤ
: ǥƤʬˤĤƤOSϡɰ¸ʤΤʹƤ⺤ޤ
ޤޤѥ᡼ pager ˰¸ǤʹʤǤ(Ĥʹ
Ƥ⤽ʬΤʤ)

3.1	euc2jiskuten.pl 

   ftp://ftp.iij.ad.jp/pub/IIJ/dist/fukachan/calling-pager/

pager ˤ #0103 Τ褦JISɤä򤫤ФǤޤ(¿ʬ)
NTT DOCOMO ̳ƻϿΥơ֥򸫤¤ꤳǽФޤ

EUC(ǤʸѴƤƤ餤Τ̵ǿ侩)
 euc2jiskuten.pl ͤùСJISɤѴޤ
ʸǥ pager ֹˤ

	᡼  ݥ٥

ν夬Ǥǥä񤱤ʬϼʬǹפƲ

ʤ빽ФäƤȤͤƤʤΤǡޥ˥
ܸɽȤȤǤΤɤƤʤΤΤޤ

3.2	FMLȹ礻ƥݥ٥Ƥ

ɤФȤ

1 	ǥƤ֥ץѰդ (modem2pager Ȥޤ礦)

2 	$START_HOOK 

ޤ᡼ʸEUCˤ

	open(PAGER, "| euc2jiskuten.pl | modem2pager");
	print PAGER $Envelope{'Body'}:
	close(PAGER);
	$DO_NOTHING = 1;

ߤʤΤꡣϤ modem2pager ʬǤʬ 
spooler, queuing, pagerӥ桢Ԥ˹碌ƺ٤塼
˥󥰤򤹤ɬפޤ


		INDEX

$DEFAULT_NEWS_GROUP                        ...   2.2 
euc2jiskuten.pl                            ...   3.1 
$IRC_CHANNEL                               ...   1.2 
$IRC_NAME                                  ...   1.2 
$IRC_NICK                                  ...   1.2 
$IRC_PORT                                  ...   1.2 
$IRC_SERVER                                ...   1.2 
$IRC_SIGNOFF_MSG                           ...   1.2 
mail2news (ML -> News)                     ...   2 
mail2news (᡼󥰥ꥹȤ˥塼)   ...   2 
mail2pager                                 ...   3 
%NEWS_FIELD_DEFAULT                        ...   2.2 
%NEWS_FIELD_TO_OVERWRITE                   ...   2.2 
@NEWS_HDR_FIELDS_ORDER                     ...   2.2 
$NEWS_SERVER                               ...   2.2 
pager                                      ...   3 
