1 |
wakaba |
1.1 |
<?xml version="1.0" encoding="iso-2022-jp"?>
|
2 |
|
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
|
3 |
|
|
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
|
4 |
|
|
<html xml:lang="ja" xmlns="http://www.w3.org/1999/xhtml">
|
5 |
|
|
<head>
|
6 |
|
|
<title xml:lang="en">Message::* Perl modules</title>
|
7 |
|
|
<link rel="index" href="./" />
|
8 |
|
|
<?xml-stylesheet href="/s/simpledoc"?>
|
9 |
|
|
<link rel="stylesheet" href="/s/simpledoc" />
|
10 |
|
|
<link rev="made" href="mailto:w@suika.fam.cx" />
|
11 |
|
|
<link rel="copyright" href="/c/pd" title="Public Domain." />
|
12 |
|
|
<meta name="author" content="��t" />
|
13 |
|
|
<meta name="keywords" content="Perl, module, pm, Message, RFC 822, RFC 2822, RFC 1036, son-of-RFC 1036, MIME, Usefor, HTTP, CGI, header, field" />
|
14 |
|
|
</head>
|
15 |
|
|
<body>
|
16 |
|
|
<h1>Message::* Perl modules</h1>
|
17 |
|
|
|
18 |
|
|
<h2>�͂��߂̂͂��߂�</h2>
|
19 |
|
|
|
20 |
|
|
<p>���Ƃ��� Perl �ŏ����ꂽ CGI script, ������f���Ȃɂ́A
|
21 |
|
|
����Ȃ�����Ȃ� code ���ڂ��Ă����肵�܂��B</p>
|
22 |
|
|
|
23 |
|
|
<pre class="application-x-perl">
|
24 |
|
|
jcode'convert(*from, "jis");
|
25 |
|
|
jcode'convert(*subject, "jis");
|
26 |
|
|
jcode'convert(*message, "jis");
|
27 |
|
|
open (MAIL, "| $sendmail");
|
28 |
|
|
print MAIL "From: $mail ($from)\n";
|
29 |
|
|
print MAIL "To: $mailto\n";
|
30 |
|
|
print MAIL "Subject: $subject\n";
|
31 |
|
|
print MAIL "\n";
|
32 |
|
|
print MAIL "$message";
|
33 |
|
|
print MAIL "\n";
|
34 |
|
|
close (MAIL);
|
35 |
|
|
</pre>
|
36 |
|
|
|
37 |
|
|
<p>����ł͎��F�����ǂ��Ȃ��ł����A��������C�����ԈႦ���
|
38 |
|
|
�ςȃ��b�Z�[�W�𑗐M���Ă��܂��܂��B
|
39 |
|
|
(�M�҂͂�������イ�͂܂��Ă܂���:-)
|
40 |
|
|
(����ɑ����� code �ł́A
|
41 |
|
|
HTML �ł̃N���X�T�C�g�X�N���v�e�B���O (CSS) ����
|
42 |
|
|
�ގ��̖��ւ̑Ώ������Ă��܂���B)</p>
|
43 |
|
|
|
44 |
|
|
<p>�I�u�W�F�N�g�w����������Ď��̂悤�Ȋ����Ń��b�Z�[�W��
|
45 |
|
|
�\���������Ƃ���ł��B</p>
|
46 |
|
|
|
47 |
|
|
<pre class="application-x-perl">
|
48 |
|
|
use Message::Entity;
|
49 |
|
|
my $msg = new Message::Entity;
|
50 |
|
|
my $hdr = $msg->header;
|
51 |
|
|
$hdr->add ('From')->add ('me@bar.example');
|
52 |
|
|
$hdr->add ('To')->add ('foo@bar.example', display_name => 'Mr. foo');
|
53 |
|
|
$hdr->add ('Subject' => $subject);
|
54 |
|
|
$msg->body ($body);
|
55 |
|
|
|
56 |
wakaba |
1.2 |
# $smtp->send �� SMTP �ő��M���� method �Ɖ���B
|
57 |
|
|
$smtp->send ($msg);
|
58 |
wakaba |
1.1 |
</pre>
|
59 |
|
|
|
60 |
|
|
<p><a href="http://www.cpan.org/" xml:lang="en">CPAN</a> ��T���ƁA
|
61 |
|
|
����Ɏ����悤�Ȃ��Ƃ��ł������ȃ��W���[���͂���悤�ł����A
|
62 |
|
|
���ۂɎg���Ă݂�ƁA�^����l�ɂ���Ă� <a href="urn:ietf:rfc:822">RFC 822</a>/<a href="urn:ietf:rfc:2822">2822</a> �Ɉᔽ����
|
63 |
|
|
���ʂ��o�͂���Ȃǂ̕s��������܂��B (�Ⴆ���̗��
|
64 |
|
|
<code xml:lang="en">To:</code> �̈�Ɏg���Ă���
|
65 |
|
|
<code xml:lang="en">display_name</code> �Łu.�v���܂܂�܂����A
|
66 |
|
|
RFC 2822 �I�ɂ͐V�������b�Z�[�W�ł͌݊����̂���
|
67 |
|
|
<code xml:lang="en" class="bnf rfc2822">quoted-string</code>
|
68 |
|
|
�ɂ���K�v������܂��B���������̂܂o�͂���܂��B)</p>
|
69 |
|
|
|
70 |
|
|
<p class="note">�Q�l: �u.�v�̏ꍇ�� RFC 2822 �I�ɂ͐���������
|
71 |
|
|
����Ȃ���Ȃ�܂��� (�o�͂͂��ׂ��łȂ�)�A
|
72 |
wakaba |
1.2 |
����ȊO�̕����A�Ⴆ�ΐ��䕶�� <code class="character">ESCAPE</code> �ł������悤�ɂȂ�܂��B
|
73 |
wakaba |
1.1 |
������͊��S�ɊԈႢ�ł��B</p>
|
74 |
|
|
<p class="note">�Q�l: �������j�Ƃ��Ă͕s���Ȓl�̓��W���[����
|
75 |
|
|
�n���O�ɒe���ׂ��Ƃ����l����������ł��傤�B
|
76 |
|
|
�ł�����Ȃ͕̂s�ւł��B</p>
|
77 |
|
|
|
78 |
|
|
<p>�Ƃ������ƂŁA�͂��߂͊����̃��W���[���� wrapper (���邢�͕⊮)
|
79 |
|
|
����������ł������A�Ȃ������Ⴒ���Ⴕ�Ă��āA
|
80 |
|
|
����Ȃ�ԗւ̍Ĕ����ɂȂ��Ă��ꂩ�珑���Ă݂悤�ƍl���܂����B</p>
|
81 |
|
|
|
82 |
|
|
<h2>������</h2>
|
83 |
|
|
|
84 |
|
|
<ol>
|
85 |
|
|
<li>RFC 822, RFC 2822 �̓��̈� (<code class="bnf rfc2822">header</code> <code class="rfc2822">field</code>) �����ߏo���܂��B</li>
|
86 |
|
|
<li>�d�q�j���[�X (<a href="urn:ietf:rfc:1036">RFC 1036</a> �Ȃ�), MIME, ���̑��̒lj����̈�̊�������ߏo���܂��B</li>
|
87 |
|
|
<li>RFC 822/2822 �� <code class="bnf rfc2822">group</code> �ȃ��C���E�A�h���X�̗̈���e�����ߏo���܂��B</li>
|
88 |
|
|
<li>���t�`���ł� RFC 822/<a href="urn:ietf:rfc:1123">1123</a>, <a href="urn:ietf:rfc:733">RFC 733</a>, asctime, ISO 8601 (HTTP) �ȂǂɑΉ��B���̗p�r�ɓ]�p�o���܂��B</li>
|
89 |
|
|
<li><a href="urn:ietf:id:draft-ietf-usefor-msg-id-alt-00">draft-ietf-usefor-msg-id-alt-00</a> �Ɋ�Â������M�A�h���X�Ȃǂɂ�� <code class="rfc2822">Message-ID</code> ���o���܂��B</li>
|
90 |
|
|
<li>�܂����ߏo���Ȃ��\���� (<code class="rfc2822">structured</code>) ���̈�ɂ��āA�\���̂��߂� <code class="bnf rfc2822">quoted-pair</code> �� unquote ���Ēl��Ԃ��ȂǏo���܂��B</li>
|
91 |
|
|
<li>MIME �{�� (<code class="bnf rfc822">body</code>) �ɂ͂܂��Ή����Ă��܂���B (<code class="media-type">text/plain</code> <code class="mime-cte">8bit</code> �Œ�)</li>
|
92 |
|
|
<li>�����͂܂��s���ł��B�e���W���[���� pod �Ő����������Ă��܂����A
|
93 |
|
|
�����Ă�������Ԃɍ����Ă��Ȃ�����������܂��B
|
94 |
|
|
���̒i�K�ł� code ���̂��̂��ȒP�ɗ����o����Ƃ͎v���܂����B</li>
|
95 |
|
|
</ol>
|
96 |
|
|
|
97 |
|
|
<h2>����̗\��</h2>
|
98 |
|
|
|
99 |
|
|
<ol>
|
100 |
wakaba |
1.2 |
<li>�d�q�j���[�X�̓��̈� (RFC 1036, <a href="spec/son-of-RFC1036">son-of-RFC1036</a>, draft-usefor-article) �̎���</li>
|
101 |
wakaba |
1.1 |
<li>MIME �̓��̈�̎����B</li>
|
102 |
|
|
<li>�lj�/��W���̓��̈�̎����B</li>
|
103 |
|
|
<li>MIME �{�� (<code class="bnf rfc822">body</code>) �̎����B</li>
|
104 |
|
|
<li>���������ϊ��̂��߂� hook �̎���?</li>
|
105 |
|
|
<li>documentation�B</li>
|
106 |
|
|
<li>�g�p��̍쐬�B</li>
|
107 |
|
|
</ol>
|
108 |
|
|
|
109 |
|
|
<h2>����</h2>
|
110 |
|
|
|
111 |
|
|
<p>suika.fam.cx �� SSH account ���������̏ꍇ�A CVS �������o���܂��B</p>
|
112 |
|
|
|
113 |
|
|
<p class="example">$ cvs -d :ext:<var xml:lang="en">username</var>@suika.fam.cx:/home/cvs -d perl/lib/Message/</p>
|
114 |
|
|
|
115 |
|
|
<p>Web ��������o���܂��B <<a href="/gate/cvs/perl/lib/Message/">http://suika.fam.cx/gate/cvs/perl/lib/Message/</a>> (tarball �ňꊇ�擾���o���܂��B)</p>
|
116 |
|
|
|
117 |
|
|
<h2>���C�Z���X</h2>
|
118 |
|
|
|
119 |
|
|
<p>Message::* Perl modules �͎��R�\�t�g�E�F�A�ł��B
|
120 |
|
|
GNU GPL �ɏ]���ė��p�o���܂��B�ڂ����͊e�t�@�C�����䗗�������B</p>
|
121 |
|
|
|
122 |
|
|
<h2>�Q�l����</h2>
|
123 |
|
|
|
124 |
|
|
<ul>
|
125 |
|
|
<li><a href="spec/">�֘A����d�l�� (RFC, Internet-Draft ��)</a></li>
|
126 |
|
|
</ul>
|
127 |
|
|
|
128 |
|
|
<div class="navigation">
|
129 |
|
|
[<a href="/" title="���̃T�[�o�[�̎��">/</a>
|
130 |
|
|
<a href="/map" title="���̃T�[�o�[�̈ē�" rel="index">�n�}</a>
|
131 |
|
|
<a href="/search/" title="���̃T�[�o�[�̌���">����</a>]
|
132 |
|
|
<a href="http://validator.w3.org/check/referer" xml:lang="en"><img
|
133 |
|
|
src="http://www.w3.org/Icons/valid-xhtml11" id="w3c-html"
|
134 |
|
|
alt="Valid XHTML 1.1!" style="height: 31px; width: 88px" /></a>
|
135 |
|
|
<a href="http://jigsaw.w3.org/css-validator/validator?uri=http://suika.fam.cx/~wakaba/Message-pm/introduction.ja.html" xml:lang="en">
|
136 |
|
|
<img style="width: 88px; height: 31px" id="w3c-css"
|
137 |
|
|
src="http://jigsaw.w3.org/css-validator/images/vcss"
|
138 |
|
|
alt="Valid CSS!" /></a>
|
139 |
|
|
</div>
|
140 |
wakaba |
1.2 |
<div class="update">$Date: $</div>
|
141 |
wakaba |
1.1 |
<ul class="myuri">
|
142 |
|
|
<li><URL:<a href="http://suika.fam.cx/~wakaba/Message-pm/introduction">http://suika.fam.cx/~wakaba/Message-pm/introduction</a>></li>
|
143 |
|
|
<li><CVS:<a href="http://suika.fam.cx/gate/cvs/perl/web/Message-pm/">suika.fam.cx:/home/cvs/perl/web/Message-pm/</a>></li>
|
144 |
|
|
</ul>
|
145 |
|
|
</body></html>
|