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
|
<!--
$FML: internal.sgml,v 1.11 2005/06/25 15:11:28 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 �� CGI �� FML::Command::Admin::���ޥ�� ��Ȥ��ޤ������ޥ�ɥ
��� 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 ��
�֥������Ȥ��̤��ƥ��������Ǥ��������ѿ����֤���ˤ���ޤ���
</para>
<para>
reply_message_prepare_template() �ϥ�å������ƥ�ץ졼�Ȥ���ˤ�����
����Ÿ����ʸ���������Ѵ���Ŭ���Ԥʤ��ޤ���
</para>
<para>
$curproc->reply_message() �ϰ����ˤ�äƿ������Ȥʤ�ޤ�����
������ˤ��衢��å��������å��������塼��������åɤǤ���
</para>
<para>
��å��������塼�������줿��å��������ϡ��ץ������ν�λľ���˼�����
���Ȥ˥�å��������ޤȤ�����̤Υ��Ȥ����Ȥ�Ω�Ƥʤ�����ޤ������
���������塼�μ��ब�ե�����ȥ�å����������ߤ��Ƥ������Ŭ�� MIME
�ޥ���ѡ��ȤΥ�å���������������ޤ���
</para>
<para>
Mail::Delivery ���饹������������ô������⥸�塼��Ǥ����������줿�
��Ϻǽ�Ū�� Mail::Delivery ���饹���Ϥ��������������Ԥʤ��ޤ���
</para>
<para>
���λ��Ȥߤ� &fml4; �� Notify() ��Ʊ�ͤǤ������������å����������塼
�������졢�Ǹ�˰쵤�˽��������Ȥ��������礭���ۤʤ�ޤ���
</para>
<para>
�ʤ� get ���ޥ�ɤʤɤ�Ʊ�����塼���λ��Ȥߤ�ȤäƤ��ޤ����Ĥޤ�
&fml4; �� Notify() ������ʬ��(�̾�ε��������ʳ���)������������ǽ��
ô���������ĥ��塼���ΤߤƤ��ޤ��������ƥ��塼�����줿���
�������ϺǸ�˰쵤�˽�������ޤ����������ˤ����ơ������Υ��塼����
�ᥫ�˥���� &fml4; ���礭���ۤʤäƤ��ޤ���
</para>
</sect1>
|
