1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
<!--
$FML: internal.sgml,v 1.13 2008/08/17 18:28:36 fukachan Exp $
-->
<sect1 id="fml.command.internal.change">
<title>
��:
��&fml4;�� &fml8; �Υ����ɤν����ϤɤΤ��餤�㤦������
</title>
<para>
���ޥ�ɤ�ŵ���Ǥ���إե�����������֤��٤�����
help ���ޥ�ɤ���ˤȤꡢ
��������������ޤ��礦��
</para>
<para>
&fml4; �Ǥϡ�Ŭ���ʴؿ������Ȥ��� myProcHelpFileSendBack ���ꡢ
%LocalProcedure �˽Ƥ����ޤ���
<screen>
%LocalProcedure = (
'help', 'myProcHelpFileSendBack',
);
</screen>
myProcHelpFileSendBack ���ƽ����ȡ��Ĥ��Τ褦�ʤ�ΤǤ��礦��
<screen>
sub myProcHelpFileSendBack
{
local($proc, *Fld, *e, *misc) = @_;
my $UJA_FILE = "/some/where/help";
&SendFile($Envelope{'Addr2Reply:'}, "UJA $ML_FN", $UJA_FILE);
}
</screen>
</para>
<para>
������&fml8; �Ǥ� help �ե�����������֤������ɤμ��Τ�
FML::Command::User::help �ˤ��ꡢ
FML::Process::Command ���饹����
(FML::Command �� AUTOLOAD ���ͳ����)�ƤӽФ���ޤ���
</para>
<warning>
<para>
���ƤΥ��ޥ�ɤϡ�FML::Command::User::���ޥ�ɡץ��饹�⤷����
��FML::Command::Admin::���ޥ�ɡץ��饹�Ȥ��Ƽ�������Ƥ��ޤ����ʤ�
makefml �ϡ�FML::Command::Admin::���ޥ�ɡפ�Ȥ��ޤ���
���ޥ�ɥ��� CGI �� User �� Admin �¤˱�����Ŭ���Ȥ�ʬ���ޤ���
</para>
</warning>
<para>
help ���ޥ�ɤμ��Τ� FML::Command::User::help �� process() �ؿ��Ǥ���
<screen>
sub process
{
my ($self, $curproc, $optargs) = @_;
my $config = $curproc->config();
my $charset = $config->{ report_mail_charset_ja };
my $help_file = $config->{ help_file };
# template substitution: kanji code, $varname expansion et. al.
my $params = {
src => $help_file,
charset_out => $charset,
};
my $help_template = $curproc->reply_message_prepare_template( $params );
if (-f $help_template) {
$curproc->reply_message( {
type => "text/plain; charset=$charset",
path => $help_template,
filename => "help",
disposition => "help",
});
}
else {
croak("no help file ($help_template)\n");
}
}
</screen>
������ $curproc �ϥϥå����ե���ǡ�&fml4; �� %Envelope �ˤ�����
���������ޤ���̾�����̤ꡢUnix �����ͥ�Ǥ��ʤ��ߤ� current process ��
¤�ΤؤΥݥ��Τ褦�ʤ�Τǡ��ץ������˴�Ϣ���뤤�������ʥǡ�����¤
�䥪�֥������ȤؤΥ�ե����ޤ�Ǥ��ޤ���
</para>
<para>
&fml4; ���ѿ��ϡ����٤ƥ������Х��ѿ��Ǥ������� &fml8; �Ǥ� $config ��
�֥������Ȥ��̤��ƥ��������Ǥ��������ѿ����֤���ˤ���ޤ������
$config ���֥������Ȥ��̤����ɤ߽Ƥ���������
</para>
<para>
reply_message_prepare_template() ��åɤ������֤���å������Υƥ��
�졼����ˤ����ѿ���Ÿ����ʸ���������Ѵ���Ԥʤ����������줿�ƥ�ץ졼
�ȤؤΥե�����ѥ����֤��ޤ�(�ƥ�ץ졼�ȥե������ $tmp_dir �ǥ��쥯
�ȥ�˺���ޤ�)��
</para>
<para>
�����ɤ��ƥ�ץ졼�ȥե�������ѰդǤ����顢
$curproc->reply_message() �Ȥ����ץ��������ΤΥ�å�����������Ԥʤ���
�����Υȥåץ�٥��åɤ�ƤӽФ�����å�������������������ꤷ�ޤ���
</para>
<para>
$curproc->reply_message() �ϰ����ˤ�äƿ������Ȥʤ�ޤ�����
������ˤ��衢��å��������å��������塼��������åɤǤ���
</para>
<para>
���ޥ�ɥ⥸�塼��Ǥν����ϡ����塼�����줿�Ȥ����ǽ���Ȥʤ�ޤ���
�ʲ������������ϡ��ɤ�ʻ��Ǥ�Ԥʤ����̾�Υե����ΰ����Ǥ���
</para>
<para>
��å��������塼�������줿��å��������ϡ��ץ������ν�λľ���˼�����
���Ȥ˥�å��������ޤȤ�����̤Υ��Ȥ����Ȥ�Ω�Ƥʤ�����ޤ���
��å��������塼�μ��ब�ե�����ȥ�å����������ߤ��Ƥ������Ŭ��
MIME �ޥ���ѡ��ȤΥ�å���������������ޤ���
</para>
<para>
��å������ν����������ȡ�����������ô�������åɤ��ƤФ�ޤ���
Mail::Delivery ���饹������������ô������⥸�塼��Ǥ���
�������줿���ϡ�
�ǽ�Ū�� Mail::Delivery ���饹���Ϥ��������������Ԥʤ��ޤ���
</para>
<para>
������������ڤ� &fml4; �� Notify() ��Ʊ�ͤǤ������������å�������
���٥��塼�������졢�Ǹ�˰쵤�˽��������Ȥ��������礭���ۤʤ�ޤ���
</para>
<para>
�ʤ� get ���ޥ�ɤʤɤ�Ʊ�����塼���λ��Ȥߤ�ȤäƤ��ޤ����Ĥޤ�
&fml4; �� Notify() ������ʬ��(�̾�ε��������ʳ���)������������ǽ��
ô���������ĥ��塼���Τߤޤ��������ƥ��塼�����줿��å���
���ϺǸ�˰쵤�˽�������ޤ����������ˤ����ơ������Υ��塼���Υᥫ
�˥��ब &fml4; ���礭���ۤʤäƤ���櫓�Ǥ���
</para>
</sect1>
|
